đề thi HK2!

Mở tệp để đọc.. Trong pascal, thứ tự các thao tác trên như thế nào để có thể đọc được dữ liệu từ tệp: Câu 2: Với câu 4: {biểu thức} phải là câu nào dưới đây?. Sau khi mở tệp, con trỏ tệp

SỞ GIÁO DỤC VÀ ĐÀO TẠO

MÔN TIN HỌC 11 – NĂM HỌC: 2007 - 2008

Thời gian làm bài:30 phút;

(20 câu trắc nghiệm)

Mã đề thi 357

Họ, tên thí sinh:

Số báo danh:

Câu 1: Cho các thao tác sau:

1 Đóng tệp 2 Mở tệp để đọc 3 Đọc dữ liệu từ tệp 4 Gán tên tệp với biến tệp

Trong pascal, thứ tự các thao tác trên như thế nào để có thể đọc được dữ liệu từ tệp:

Câu 2: Với câu 4: {biểu thức} phải là câu nào dưới đây?

A S1[i]>='0' B S1[i]>= 0 C S1[i] <= 0 D S1[i]<='0'

Câu 3: Cho xâu S có nội dung là: 'Que huong toi' Kết quả của hàm length (s) là:

Câu 4: Cho chương trình gợi ý sau là chương trình nhập từ bàn phím xâu kí tự S1, tạo xâu S2 gồm tất cả các chữ số có trong xâu S1 và in các chữ số đó ra màn hình.

{Câu lệnh 1} phải là câu lệnh nào trong các câu lệnh dưới đây?

A S1, S2: string; B S1, S2: integer; C S1: String; D S2: String;

Câu 5: Trong Pascal, đoạn chương trình nào là 1 hàm đúng để tìm Max của 2 số a và b?

A Function max (a, b:real): real; B Function max (a, b:real): integer;

C Function max (a, b:real); D Function max (a, b:real): real;

Câu 6: Với câu 4: {câu lệnh 4} là câu lệnh nào trong các câu lệnh dưới đây?

Câu 7: Khai báo xâu nào dưới đây là SAI?

A type xau:string; B Var xau: string; C Var s1, s2: string; D type xau=string[30];

Câu 8: Trong pascal, S là 1 biến xâu, để truy xuất đến phần tử cuối của xâu S ta viết:

Câu 9: Trong Pascal, cho s là 1 biến xâu đoạn chương trình sau thực hiện công việc gì?

For i:= length(s) downto 1 do

Write(S[i]);

A In ra kí tự cuối của xâu S B In ra xâu đảo ngược của xâu S.

Var {câu lệnh1}

i: integer;

Begin

Write(' Nhap vao xau :'); Readln (S1);

{ câu lệnh 2}

For i:= 1 to length (S1) do

If ({biểu thức}) and (s1[i] <='9') then S2:=S2 + S1[i];

{ câu lệnh 4}

Readln End

C In ra xâu S D Không thực hiện gì vì chương trình có lỗi Câu 10: Phát biểu nào sau đây là SAI?

A Sau khi mở tệp, con trỏ tệp ở vị trí đầu tệp.

B Muốn đọc / ghi dữ liệu trong tệp, sau khi gắn biến tệp với tên tệp ta cần phải thực hiện thao tác

mở tệp đó

C Trong lệnh mở tệp, cần khai báo tên tệp để xác định đúng tệp trên đĩa.

D Trong lệnh gán tên tệp với biến tệp, cần khai báo tên tệp để xác định đúng vị trí tệp trên đĩa Câu 11: Với chương trình câu 18 biến cục bộ là:

Câu 12: Để khai báo thủ tục trong Pascal bắt đầu bằng từ khoá:

Câu 13: Cho S:='Viet Nam que huong toi';

Câu lệnh nào dưới đây để xoá các kí tự trong xâu S sao cho S còn nội dung 'Viet Nam':

A Delete(S, 9,13); B Delete(S, 8, 14); C Delete(s,9,12); D Delete(S, 9,14);

Câu 14: Trong Pascal, cho tệp văn bản Ktra.TXT chỉ có 1 dòng chứa dòng chữ: CHUC BAN LAM BAI TOT ngay ở đầu dòng Cho chương trình sau:

Thực hiện chương trình sau, trên màn hình sẽ hiện ra kết quả nào trong các kết quả sau:

Câu 15: Trong các đoạn chương trình sau, đoạn chương trình nào là 1 thủ tục đúng để in ra màn hình dòng chữ: Welcome to you!

Câu 16: Cho khai báo: Var A:array[1 5] of byte;

i: byte;

Sau khi chương trình thực hiện lệnh: For i:=1 to 5 do A[i]:=i*2;

thì các phần tử của mảng A là:

Câu 17: Với câu 4:{câu lệnh 2} phải là câu lệnh nào trong các câu lệnh dưới đây?

Câu 18: Cho đoạn chương trình sau:

Khi thực hiện chương trình trên, màn hình cho kết quả nào?

Uses crt;

Var f: text; s:

string[8];

Begin

Clrscr;

'Ktra.txt');

Reset (f);

Read ( f, s);

Write (s);

Close (f);

End

Var a, b: integer;

Procedure vidu ( var x:byte; y:

byte);

Var i: byte;

Begin

I:=5;

X:= x+I;

Y:=y*I;

End;

Begin a:=2; b:=3;

vidu(a,b);

Write(a,' ',b);

End.

A 2 15 B 2 3 C 7 3 D 7 15

Câu 19: Trong lập trình Pascal, cho đoạn chương trình:

thực hiện xong đoạn chương trình trên, biến X có giá trị là gì?

Câu 20: Cho A là 1 mảng có n phần tử và đoạn chương trình:

d:=0;

For i: = 1 to n do

If a[i] mod 2 = 0 then d:= d+1;

Đoạn chương trình trên thực hiện công việc gì?

A Tính tổng các phần tử là số lẻ trong mảng A.

B Tính tổng các phần tử là số chẵn trong mảng A.

C Đếm số lượng phần tử là số chẵn trong mảng A

D Đếm số lượng phần tử là số lẻ trong mảng A.

- HẾT

-S:= 'Truong THPT Nguyen Thong';

X:='';

I:= 1;

While S[i] <>' ' do {' ' là 1khoảng

trắng}

Begin

X+S[i];

I:= i+1;

End;