Kết quả nhận được trên màn hình: a.. Kết quả nhận được trên màn hình: e..[r]
(1)ĐỀ TRẮC NGHIỆM Bài 1:
Thực 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 hình: a lần
b 10 lần
c Không lần d Vịng lặp vơ tận
Bài 9:
Cho thực chương trình sau: Var i:Integer;
BEGIN
FOR i:=1 TO DO write(‘lap lai’); END
‘lap lai’ in hình với số lần: a
b c
Chương trình bị lỗi
Bài 2:
Thực 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 hình: a
b N
c Chương trình bị bắt lỗi d Vịng lặp vơ tận
Bài 10:
Thực chương trình sau: Var i: Byte;
BEGIN
FOR i := DOWNTO DO Write(i);
END
Kết nhận hình: a
b c 123
d Khơng có câu
Bài 3:
Thực chương trình sau: Var
T1, t2: word; N: byte; BEGIN
T1 := 0; t2 := 1; N := 5;
WHILE n > DO BEGIN
Write(t2, ' ');
Bài 11:
Thực chương trình sau: Var i: Byte;
BEGIN
FOR i := TO DO Write(i); END
Kết nhận hình: e
f g 123
(2)T2 := t2 + t1; T1 := t2 - t1; N := n - 1; END;
END
Kết nhận hình là: a 1
b 1 c 1 d
Bài 4:
Giả sử thực 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 hiển thị hình: a 255
b c 127 d 256
Bài 12:
Chương trình sau: Const n=5;
Var i : Byte; BEGIN
FOR i := TO n DO ; BEGIN
Writeln('Chao Cac Ban'); END;
END
Kết nhận hình:
a Câu "Chao Cac Ban" hiển thị dòng khác
b Câu "Chao Cac Ban" hiển thị lần dòng
c Câu "Chao Cac Ban" hiển thị lần dịng
Khơng có câu
Bài 5:
Thực chương trình sau: Varn : byte;
BEGIN
N := 40;
WHILE n mod = DO BEGIN
Write('*'); N := n div 2; END;
Write(n); END
Kết thực chương trình trên: a *20
b **10
Bài 13:
Thực chương trình sau: Var
I: byte; BEGIN
FOR i := TO 10 DO BEGIN
IF i mod = THEN writeln;
Write(i: 3); END;
END
Kết nhận là: A
(3)c ***5 d ****2
1 2345 78910 B
01 34 789 10 C
012345678910 D
012345 678910
Bài 6:
Thực chương trình sau: Varn : byte;
BEGIN
N := 40;
WHILE n div = DO BEGIN
Write('*'); N := n div 2; END;
Write(n); END
Kết nhận hình: a ***5
b **10 c *20 d 40
Bài 14:
Thực chương trình sau: Const n = 3;
Var I: byte; BEGIN
FOR i := TO n DO Write( i ); Writeln(i+1); END
Kết nhận được: a
01 12 23 34 b
123 c
0123 01234
Bài7:
Cho chương trình sau: Var i : Byte;
BEGIN I := 1;
WHILE i <= DO BEGIN
Writeln('Chao Cac Ban'); I:= i+1;
END;
Bài 15:
Thực chương trình sau: Const n = 3;
Var
I,j: byte; BEGIN
FOR i:=0 TO DO
(4)END
Kết nhận hình:
a Câu "Chao Cac Ban" hiển thị 1lần dòng
b Câu "Chao Cac Ban" hiển thị dòng khác
c Câu "Chao Cac Ban" hiển thị lần dịng
d Chương trình bị lỗi
Kết nhận được: a 000111222 b 123123123 c 012301230123 0123456
Bài 8:
Thực chương trình sau: Var i, j: byte;
BEGIN
FOR i := TO DO
FOR j := i - DOWNTO DO write(j:2);
END
Kết hình: a
b 2 c d 1
Bài 16:
Thực chương trình sau: Var i, j: byte;
BEGIN
FOR i := TO DO
FOR j := i - DOWNTO DO write(i:2);
END
Kết hình: a 2 3