15p

Chia sẻ bởi Nguyễn Công Quang | Ngày 26/04/2019 | 68

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.













* 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)