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.
a) 2 lỗi
- thiếu do
- vòng lặp for tuyệt đối không có ;
b: sau writeln('A') không có chấm phẩy
c: sai chỗ y:=10
phải là y=10 mới đúng
d: sử dụng 2 chấm phẩy là sai
sau while do nếu có từ 2 lệnh trở lên phải bao bọc trong begin end
e: thiếu dấu : sau i, đi từ 100 tới 20 là sai,
phải là for i:=100 downto 20 do mới đúng
f: không sai
a) Sai vì giá trị đầu lớn hơn giá trị cuối
b) Sai vì giá trị đầu lớn hơn giá trị cuối
b) Sai vì sau câu lệnh i:=1+1 thiếu dấu chấm phẩy
Câu lệnh sai ở đây là write('Gia tri cua i la: ',i);.
Phải sử dụng câu lệnh writeln('Gia tri cua i la: ',i); để ghi ra giá trị của i trên màn hình.
Câu lệnh mà bạn
Chừng nào mà đề bài là Chương trình sau thiếu cái gì thì mới thiếu chưa khai báo biến
a) Sai vì có dấu ; giữa số 10 và chữ do
b) Sai vì thiếu chữ down
c) Đúng
Bài 1:
a) Câu lệnh While i:=1 do sai.
Sai ở chỗ i:=1(vì có dấu gán)
b) Câu lệnh While a<=b; do sai
Sai ở chỗ có dấu chấm phẩy trước chữ do
Câu lệnh write('b khong nho hon a); sai
Sai ở chỗ vì thiếu dấu ' sau chữ a
c) Câu lệnh While 1=1 do sai
Vì nếu như vậy đây sẽ là vòng lặp vô hạn(vì 1 luôn bằng 1)
Câu lệnh write('Toi lap trinh gioi); sai
Sai ở chỗ thiếu dấu ' sau chữ gioi
d) Câu lệnh sum:=sum+1; i:=i+1; sai
Vì nguyên tắc là sau lệnh While(hoặc lệnh For) thì nếu làm nhiều câu lệnh thì phải bao bọc trong Begin End
Bài 2:
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('a='); readln(a);
if a<=0 then writeln('vui long nhap lai a');
until a>0;
repeat
write('b='); readln(b);
if b<=0 then writeln('vui long nhap lai b');
until b=0;
writeln('dien tich hinh chu nhat la: ',a*b:4:2);
readln;
end.
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;)
Lời giải :
Lỗi sai = ( )1) While i(:)=1 do t:=10;
3) For i:=1 to 10 (;) do x:=x+1;
4) i:=1; while i<10 do sum:=sum+i; i:=i+1; ( câu lệnh này vẫn chạy được nhưng phải đặt trong begin...end;)
i:=1; while i<10 do ( begin) sum:=sum+i; i:=i+1; (end; )