ĐỀ THI TRẮC NGHIỆM

ĐỀ TRẮC NGHIỆM

Bài 1:
Thực hiện chương trình sau:
Var i,n:byte;
BEGIN
N:=10; i:=1;
WHILE i<=n DO
Writeln(‘Turbo Pascal’);
I:=i+1;
END.
Câu ‘Turbo Pascal’ viết ra màn hình:
1 lần
10 lần
Không một lần nào.
Vòng lặp vô tận.
Bài 9:
Cho thực hiện chương trình sau:
Var i:Integer;
BEGIN
FOR i:=1 TO 5 DO write(‘lap lai’);
END.
‘lap lai’ in ra trên màn hình với số lần:
5
6
4
Chương trình bị lỗi.

Bài 2:
Thực hiện chương trình sau:
Var i,p:byte;
BEGIN
I:=1;p:=1;
WHILE i<=n DO
BEGIN
P:=p*i;
I:=i+1;
END;
Writeln(p);
END.
Kết quả trên màn hình:
1
N
Chương trình trên bị bắt lỗi.
Vòng lặp vô tận.
Bài 10:
Thực hiện chương trình sau:
Var i: Byte;
BEGIN
FOR i := 3 DOWNTO 1 DO Write(i);
END.
Kết quả nhận được trên màn hình:
3 2 1
0 1 2
123
Không có câu nào đúng.


Bài 3:
Thực hiện chương trình sau:
Var
T1, t2: word;
N: byte;
BEGIN
T1 := 0; t2 := 1;
N := 5;
WHILE n > 0 DO
BEGIN
Write(t2, ` `);
T2 := t2 + t1;
T1 := t2 - t1;
N := n - 1;
END;
END.
Kết quả nhận được trên màn hình là:
1 1 2 4 6
1 1 2 3 5
1 1 1 3 4
1 2 3 4 5
Bài 11:
Thực hiện chương trình sau:
Var i: Byte;
BEGIN
FOR i := 1 TO 3 DO Write(i);
END.
Kết quả nhận được trên màn hình:
1 2 3
0 1 2
123
Không có câu nào đúng.

Bài 4:
Giả sử thực hiện chương trình sau:
Var
I : boolean;
J : byte;
BEGIN
I := False; j := 0;
WHILE Not i DO
BEGIN
I := Succ(i);
J := j + 1;
END;
Write(j);
END.
Kết quả hiển thị trên màn hình:
255
1
127
256
Bài 12:
Chương trình sau:
Const n=5;
Var i : Byte;
BEGIN
FOR i := 1 TO n DO ;
BEGIN
Writeln(`Chao Cac Ban`);
END;
END.
Kết quả nhận được trên màn hình:
Câu "Chao Cac Ban" được hiển thị trên 5 dòng khác nhau.
Câu "Chao Cac Ban" được hiển thị 5 lần trên 1 dòng.
Câu "Chao Cac Ban" được hiển thị 1 lần trên 1 dòng.
Không có câu nào đúng.

Bài 5:
Thực hiện chương trình sau:
Varn : byte;
BEGIN
N := 40;
WHILE n mod 2 = 0 DO
BEGIN
Write(`*`);
N := n div 2;
END;
Write(n);
END.
Kết quả thực hiện chương trình trên:
*20
**10
***5
****2
Bài 13:
Thực hiện chương trình sau:
Var
I: byte;
BEGIN
FOR i := 0 TO 10 DO
BEGIN
IF i mod 5 = 0 THEN writeln;
Write(i: 3);
END;
END.
Kết quả nhận được là:
A.
0
1 2345
6 78910
B.
01 2 34
5 6 789
10
C.
012345678910
D.
012345
678910

Bài 6:
Thực hiện chương trình sau:
Varn : byte;
BEGIN
N := 40;
WHILE n div 2 = 0 DO
BEGIN
Write(`*`);
N := n div 2;
END;
Write(n);
END.
Kết quả nhận được trên màn hình:
***5
**10
*20
40
Bài 14:
Thực hiện chương trình sau:
Const n = 3;
Var
I: byte;
BEGIN
FOR i := 0 TO n DO
Write( i );
Writeln(i+1);
END.
Kết quả nhận được:

01
12
23
34

123
4

0123