Câu 2: Các câu lệnh sau đúng hay sai?
a) if x:=7 then a:=b;
b) if x > 5; then a:=b;
c) if x > 5 then; a:=b;
d) if x > 5 then a:=b; m:=n;
e) if x > 5 then a:=b; else m:=n;
f) if n > 0 then begin a:=0; m:=-1 end else c:=a;
Câu 1. Câu lệnh lặp For...do, vòng lặp dừng lại khi nào?
A. Có lệnh dừng lại C. Không thê dừng B. Biến đếm bằng giá trị cuối D. Biến đếm bằng giá trị đầu
Câu 2. Trong Pascal, câu lệnh nào để lặp với số lần biết trước?
A. If...then B. If…then…else C. For…do D. While…do
Câu 3. Chọn phát biểu sai:
A. Biến đếm là biến kiểu số nguyên
B. Câu lệnh lặp với số lần chưa biết trước có dạng: For...do...
C. Câu lệnh có thể là câu lệnh đơn hay câu lệnh ghép
D. Sau mỗi vòng lặp, biến đếm được tự động tăng thêm một đơn vị
Câu 4. Hãy cho biết số lần lặp của câu lệnh sau: For i:=1 to 100 do...
A. 100 B. 101 C. 99 D. 1
Câu 1: B
Câu 2: C
Câu 3: B
Câu 4: A
a: Sai ở chỗ x=y
Sửa lại: x:=y;
b: Sai ở chỗ dấu chấm phẩy sau y>10
Sửa lại là bỏ dấu chấm phẩy
c: Sai ở chỗ có dấu chấm phẩy trước else
Sửa lại là bỏ dấu chấm phẩy
d:
Sai ở chỗ dấu chấm phẩy sau x>=7
Sửa lại là bỏ dấu chấm phẩy
Các câu lệnh Pascal sau đây được viết đúng hay sai?
a) if x:=7 then a=b;
b) if x>5; then a:=b;
c) if x>5 then; a:=b;
d) if x>5 then a:=b; m:=n;
e) if x>5 then a:=b; else m:=n;
f) if n>0 then begin a:=0; m:=-1 end else c:=a;
Câu lệnh nào dưới đây dùng để kiểm tra 1 số là số chẵn hay số lẻ?
A.If So div 2=0 So then write('so le') else write('so chan');
B. If N mod 2<>0 So then write('so le') else write('so chan');
C. If So div 2<>So then write('so le') else write('so chan');
D. If N mod 2=0 So then write('so le') else write ('so chan');
Câu 1:
a) Với mỗi câu lệnh sau đây giá trị của biến x sẽ là bao nhiêu, nếu trước đó giá trị của x bằng 7?
if (75 mod 5) = 0 then x := x + 1;
if x > 10 then x := x + 1 else x := x - 1;
b) Câu lệnh Pascal sau đây có hợp lệ không? Giải thích.
If x > y then max: = x; else max: = y
Câu 2:
Viết chương trình sử dụng lệnh lặp FOR để tính tổng các số tự nhiên từ 1 đến 10
Câu 3:
Viết chương trình sử dụng lệnh lặp While – Do để tính tổng các số tự nhiên từ 1 đến 10
Câu 1.
a/ x:=7;
if (75 mod 5) = 0 then x := x + 1;
-> Điều kiện đúng -> x=7+1= 8
if x > 10 then x := x + 1 else x := x - 1;
x> 7 <=> 7 > 10 -> Điều kiện sai -> rẽ nhánh -> x=7-1 = 6
b/
Câu lệnh đó không hợp lệ. Vì để sai cấu trúc rẻ nhánh (thùa dấu ; ) sau max:=x
Câu 2
Program HOC24;
var t,i: byte;
begin
t:=0;
for i:=1 to 10 do t:=t+i;
write('Tong la: ',t);
readln
end.
Câu 3
Program HOC24;
var i,t: byte;
begin
i:=1; t:=0;
while i<=10 do
begin
t:=t+i;
i:=i+1;
end;
write('Tong la: ',t);
readln
end.
Câu 19: Cho biết giá trị của x sau câu lệnh sau?
x:=5;
If x > 8 then x:=x+3;
A. 5; B. 2; C. 3; D. 0;
Câu 20: Cho biết kết quả của c sau câu lệnh sau?
a:= 3; b:= 5;
If a + b < 18 then c := a – b else c := b – a;
A. -2; B. -5; C. 10; D. 2;
Câu 21:Hãy cho biết giá trị của biến X bằng bao nhiêu sau khi thực hiện câu lệnh:
X:= 10;
IF (91 mod 3 ) = 0 then X :=X+20;
A. 10 B. 30 C. 2 D. 1
Câu 20: Điền một trong các điều kiện : (a mod b=0) (adivb = 0) , (a div b =0), (a > b) (a^ < b),(a=b) vào câu lệnh sau cho đúng?
A. If......... then write( 'a chia het cho b^ prime ) else write(^ / không chia hết cho b);
B. If......... then write( a lon hon b');
Các câu lệnh Pascal nào sau đây được viết đúng: *
a If x:= 5 then a = b;
b If x > 4; then a:= b;
c If x > 4 then a:=b else m:=n;
d If x > 4 then a:=b; else m:=n;
