Question

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

Answer 1

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

 

Answer 2

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.