Câu 1 câu lệnh sau trong pasal sau có hợp lệ ko ? Nếu ko hãy sửa lại cho hợp lệ?
a,For i : = 100 to 1 do writeln (‘A’) ;
b,X: = 10; whileX:=10 do X:=X+12 ;
c,Var a:array (100…10) of integer;
Câu 1 câu lệnh sau trong pasal sau có hợp lệ ko ? Nếu ko hãy sửa lại cho hợp lệ?
a,For i : = 100 to 1 do writeln (‘A’) ;
b,X: = 10; whileX:=10 do X:=X+12 ;
c,Var a:array (100…10) of integer;
Đáp án: Như phần “Giải thích các bước giải”:
Giải thích các bước giải:
a) Sai do đây phải thuộc câu lệnh lặp for…downto -> For i:= 100 downto 1 do writeln(‘A’);
b) Sau while..do không có lệnh gán -> X:=10; While x=10 do x:=x+12;
c) Sai chỉ số (chỉ số đầu phải nhỏ hơn chỉ số cuối), thừa một dấu “.” và phải dùng ngoặc [] chứ không phải ngoặc () -> Var a:array[10..100] of integer;
dòng 1:
sai vì 100>1( đúng thì <gtd> bé hơn hoặc bằng <gtc>)
sửa lại: for i:=1 to 100 do writeln(‘A’);
dòng 2:
sai vì <gtd> và <gtc> phải là những số nguyên (ở đây thì 1.5 và 10.5 là các số thập phân)
sửa lại:
for i:=1 to 10 do writeln(‘A’);