15p
Chia sẻ bởi Nguyễn Công Quang |
Ngày 26/04/2019 |
74
Chia sẻ tài liệu: 15p thuộc Tin học 11
Nội dung tài liệu:
Trường THPT Lê Hồng Phong Môn : Tin học lớp 11 - Thời gian làm bài : 15`
Họ tên học sinh : . . . . . . . . . . . . . . . . . . . . . . . . . . .
Lớp : . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1. (3 điểm) Các khai báo sau đây về xâu là đúng hay sai?
1.1. VAR Xau : STRING[255]; Trả lời : …………………………………..
1.2. VAR Xau : STRING; Trả lời : …………………………………..
1.3. VAR 1_Xau : STRING[255]; Trả lời : …………………………………..
2. (4 điểm) Điền vào chỗ trống (…) kết quả đúng:
Giá trị của S1
Giá trị của S2
Thao tác hoặc biểu thức
Kết quả
‘cua Me.’
‘Em la con’
Insert(…,S2,…);
‘Em la con cua Me.’
‘abcdef’
Delete(S1,…,…);
‘abef’
‘Truong Le Hong Phong’
Length(S1);
…
‘Truong Le Hong Phong’
Pos(’Le’,S1);
…
3. (4 điểm) Chương trình sau đây thực hiện công việc gì? Hãy viết lại dòng 8 để chương trình in ra tất cả các các nguyên âm xuất hiện trong 1 xâu nhập từ bàn phím.
Dòng 1: PROGRAM Vidu1;
Dòng 2: VAR s, t : STRING; i : Byte;
Dòng 3: BEGIN
Dòng 4: Write(‘Nhap vao mot xau : ’);
Dòng 5: Readln(s);
Dòng 6: t := ’’;
Dòng 7: FOR i := 1 TO Length(s) DO
Dòng 8: IF (s[i] >= ‘a’) AND (s[i] <= ‘z’) THEN t := t + s[i];
Dòng 9: Writeln(‘Ket qua la : ‘, t);
Dòng 10: END.
Họ tên học sinh : . . . . . . . . . . . . . . . . . . . . . . . . . . .
Lớp : . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1. (3 điểm) Các khai báo sau đây về xâu là đúng hay sai?
1.1. VAR Xau : STRING[255]; Trả lời : …………………………………..
1.2. VAR Xau : STRING; Trả lời : …………………………………..
1.3. VAR 1_Xau : STRING[255]; Trả lời : …………………………………..
2. (4 điểm) Điền vào chỗ trống (…) kết quả đúng:
Giá trị của S1
Giá trị của S2
Thao tác hoặc biểu thức
Kết quả
‘cua Me.’
‘Em la con’
Insert(…,S2,…);
‘Em la con cua Me.’
‘abcdef’
Delete(S1,…,…);
‘abef’
‘Truong Le Hong Phong’
Length(S1);
…
‘Truong Le Hong Phong’
Pos(’Le’,S1);
…
3. (4 điểm) Chương trình sau đây thực hiện công việc gì? Hãy viết lại dòng 8 để chương trình in ra tất cả các các nguyên âm xuất hiện trong 1 xâu nhập từ bàn phím.
Dòng 1: PROGRAM Vidu1;
Dòng 2: VAR s, t : STRING; i : Byte;
Dòng 3: BEGIN
Dòng 4: Write(‘Nhap vao mot xau : ’);
Dòng 5: Readln(s);
Dòng 6: t := ’’;
Dòng 7: FOR i := 1 TO Length(s) DO
Dòng 8: IF (s[i] >= ‘a’) AND (s[i] <= ‘z’) THEN t := t + s[i];
Dòng 9: Writeln(‘Ket qua la : ‘, t);
Dòng 10: END.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Nguyễn Công Quang
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)