Kết quả nhận được trên màn hình là: a.. Kết quả nhận được trên màn hình: a.. 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..
Trang 1ĐỀ 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:
a 1 lần
b 10 lần
c Không một lần nào
d 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:
a 5
b 6
c 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:
a 1
b N
c Chương trình trên bị bắt lỗi
d 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:
a 3 2 1
b 0 1 2
c 123
d 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, ' ');
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:
e 1 2 3
f 0 1 2
g 123 Không có câu nào đúng
Trang 2T2 := t2 + t1;
T1 := t2 - t1;
N := n - 1;
END;
END
Kết quả nhận được trên màn hình là:
a 1 1 2 4 6
b 1 1 2 3 5
c 1 1 1 3 4
d 1 2 3 4 5
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:
a 255
b 1
c 127
d 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:
a Câu "Chao Cac Ban" được hiển thị trên 5 dòng khác nhau
b Câu "Chao Cac Ban" được hiển thị 5 lần trên 1 dòng
c 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:
a *20
b **10
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
Trang 3c ***5
d ****2
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:
a ***5
b **10
c *20
d 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:
a
01 12 23 34 b
123 4 c
0123 4 01234
Bài7:
Cho chương trình sau:
Var i : Byte;
BEGIN
I := 1;
WHILE i <= 5 DO
BEGIN
Writeln('Chao Cac Ban');
I:= i+1;
END;
Bài 15:
Thực hiện chương trình sau: Const n = 3;
Var I,j: byte;
BEGIN
FOR i:=0 TO 2 DO
FOR j := 1 TO n DO
Write( i ); END
Trang 4END
Kết quả nhận được trên màn hình:
a Câu "Chao Cac Ban" được hiển
thị 1lần trên 1 dòng
b Câu "Chao Cac Ban" được hiển
thị trên 5 dòng khác nhau
c Câu "Chao Cac Ban" được hiển
thị 5 lần trên 1 dòng
d Chương trình bị lỗi
Kết quả nhận được:
a 000111222
b 123123123
c 012301230123 0123456
Bài 8:
Thực hiện chương trình sau:
Var i, j: byte;
BEGIN
FOR i := 1 TO 3 DO
FOR j := i - 1 DOWNTO 1 DO
write(j:2);
END
Kết quả trên màn hình:
a 1 2 3
b 1 2 2
c 1 2 1
d 1 1 1
Bài 16:
Thực hiện chương trình sau:
Var i, j: byte;
BEGIN FOR i := 1 TO 3 DO
FOR j := i - 1 DOWNTO 1 DO write(i:2);
END
Kết quả trên màn hình:
a 1 2 2 3 3 3
b 1 1 2 2 3
c 2 2 3
2 3 3