Kiểm tra tin 11

Kiểm tra học kì i

Môn: Tin Học - 11

Họ và tên:

Lớp:

Cõu 1: Cho đoạn chơng trình sau:

Begin

Clrscr;

Write(‘nhap a, b: ‘); readln(a, b);

C := a;

If a<b Then C:= b;

Writeln(‘C: ’,C);

Readln;

End

bằng bao nhiêu?

A C = 18 B C nhận cả hai giá trị trên

C C không nhận giá trị nào D C := 15

bao nhiêu?

Cõu 2: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng?

A While <điều kiện> do <câu lệnh 1>; B While <điều kiện> do <câu lệnh>;

C While <điều kiện>; do <câu lệnh>; D While := <điều kiện> do <câu lệnh>;

Cõu 3: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng?

A Var a, b; integer; B Var m, n: byte C Var x, y:= real; D Var g, h: word;

Cõu 4: Hãy chỉ ra câu lệnh đúng về cấu trúc của câu lệnh ghép?

A Begin…… end; B Begin…… end

C Begin…… end D If…… then ……else……

Cõu 5: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng?

A Const h := 14; B Const b =: 10; C Const a = 15; D Const a: 15

Cõu 6: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng?

A for <biến đếm>:= <giá trị đầu> to <giá trị cuối>: do <câu lệnh>;

B for <biến đếm>:= <giá trị đầu> to <giá trị cuối> downto <câu lệnh>;

C for <biến đếm>= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

D for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Cõu 7: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng?

A if <điều kiện> then; <câu lệnh 1> else <câu lệnh 2>;

B if <điều kiện>; then <câu lệnh 1> else <câu lệnh 2>;

C if <điều kiện> then <câu lệnh 1> else; <câu lệnh 2>;

D if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

Cõu 8: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng?

A for <biến đếm>:= <giá trị đầu> downto <giá trị cuối> do <câu lệnh>;

B for <biến đếm>:= <giá trị cuối> downto <giá trị đầu> do <câu lệnh>:

C for <biến đếm>:= <giá trị cuối> to <giá trị đầu> do <câu lệnh>;

D for <biến đếm>=: <giá trị đầu> downto <giá trị cuối> do <câu lệnh>;

Cõu 9: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng?

A if <điều kiện>; then <câu lệnh>; B if <điều kiện> then; <câu lệnh>

C if <điều kiện> then <câu lệnh>; D if <điều kiện> then <câu lệnh>

M 1

Câu 10: Hãy chỉ ra lỗi trong chơng trình sau:

-Program bai tap10; (*dòng 1*)

Uses crt; (*dòng 2*)

Var z, x y:real; (*dòng 3*)

Begin (*dòng 4*)

clrscr; (*dòng 5*)

Writ(‘nhap x, y: ’); readln(x, y); (*dòng 6*)

if ((sqr(x)+sqr(y))<=1) then z:=(sqr(x)+sqr(y); (*dòng 7*)

if ((sqr(x)+sqr(y))>1) and (y>=x) than z:=x+y; (*dòng 8*)

if ((sqr(x)+sqr(y))>1) and (y<x) then z:=0.5 (*dòng 9*)

Write(‘z’,z:8:2); (*dòng 10*)

readln; (*dòng 11*)

end (*dòng 12*)

Câu 11: Viết chơng trình nhập vào từ bàn phím bốn số thực a, b, c, d Hãy tìm giá trị cực đại Max của bốn số đó

-M 1