Các câu lệnh lặp sau đây đúng hay sai? Sửa lại cho đúng?
a/ For i:= 10 to 1 do write ('a');
b/ For i:= 1 to 10 do write ('a');
c/ For i:= 1 to 10 do write ('a');write ('b');
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 1:
-Đánh răng rửa mặt mỗi ngày
-Đi học
-Đi ngủ
Câu 2:
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng
Câu 3:
Lặp n-1+1=n(lần)
Câu 4:
S=15
Câu 5:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
a.for i:=1 to 10;do x:=x+1;
-> lệnh sai vì sau "to 10" không có dấu ';'
For<biến đếm > := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Sửa lại:for i:=1 to 10 do x:=x+1;
b.for i:=10 to 1 do x:=x+1;
-> lệnh sai vì for i:=10 to 1 giá trị đầu phải nhỏ hơn giá trị cuối(10>1) nên không lặp được.
Sửa for i:=1 to 10 do x:=x+1;
c.while i:=1 do t=10;
-> lệnh sai phép gán giá trị cho biến VD: x:=1
t=10(sai) thiếu dấu ':'
Sửa lại:
while i:=1 do t:=10;
d.while a<=b;do write('b lon hon a');
-> lệnh sai vì Sau While a<=b không có ';'(While <điều kiện> do <câu lệnh>)
Sửa lại:
while a<=b do write('b lon hon a');
a) Lỗi: Dư dấu ; sau từ do
b) Lỗi: While i>20 then (sửa: While i>20 do)
c) Lỗi: B=B+2; (sửa: B:=B+2;)
d) Lỗi: dư dấu ; sau từ do
e) Lỗi: S=S*2; (sửa: S:=S*2;)
f) Lỗi: i:=1 (sửa: i:=1;)
a: Sai bởi chỉ số đầu lớn hơn chỉ số cuối
b: Sai vì chỉ số đầu, chỉ số cuối là số thực
c: Sai vì chỗ end thiếu chấm phẩy
d: Sai vì chỉ số đầu lớn hơn chỉ số cuối
e: Sai vì chỉ số đầu và chỉ số cuối là số thực
d: Đúng
For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
a: Sai
Sửa lại: For i:=1 to 5 do writeln('A');
b: Sai
For i:=1 to 5 do writeln('A');
c: Sai
x:=5;
while x>=5 do
x:=x+5;
d: var x:array[1..10]of integer;
a) sai:
sửa: for i:=1 to 10 do write('a');
b) Đúng
c) Đúng
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng