Hãy tìm các lỗi trong câu lệnh sau và sửa lại:
a) for i=1 to 10 do; writeln(‘A’);
b) for i:=1 to 10 for j:=1 to 10 do x:=x+1;
c) while x=10 do x=x+5;
d) S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n;
Hãy tìm các lỗi trong câu lệnh sau và sửa lại:
a) for i=1 to 10 do; writeln(‘A’);
b) for i:=1 to 10 for j:=1 to 10 do x:=x+1;
c) while x=10 do x=x+5;
d) S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n;
a) for i=1 to 10 do; writeln(‘A’);
lỗi: dư dấu ; sau do và thiếu dấu : sau i
sửa: for i:=1 to 10 do writeln(‘A’);
b) for i:=1 to 10 for j:=1 to 10 do x:=x+1;
lỗi: câu lệnh lặp for-to-do đầu thiếu do
sửa: for i:=1 to 10 do for j:=1 to 10 do x:=x+1;
c) while x=10 do x=x+5;
lỗi: câu lệnh gán thiếu dấu :
sửa: c) while x=10 do x:=x+5;
d) S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n;
lỗi: vòng lặp sẽ lặp vô hạn lần vì điều kiện luôn đúng
sửa: S:=0; n:=0; while S<=10 do begin n:=n+1; S:=S+n; end;
$O^ke_n$
a) sai:
– sau biến đếm i thiếu :
– sau do có ;
sửa: for i:=1 to 10 do writeln(‘A’);
b)
sai thiếu do
sửa: for i:=1 to 10 do for j:=1 to 10 do x:=x+1;
c)
sai: x gán giá trị x+5 thiếu :
sửa: while x=10 do x:=x+5;
d)
sai vòng lặp sẽ lặp vô hạn vì điều kiện luôn đúng
sửa:
S:=0; n:=0; while S<=10 do
begin
n:=n+1;
S:=S+n;
end;
chúc bạn học tốt