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) 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
HT
tham khảo ''
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
nha
hok tốt nha
ok nha
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
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;)
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.
Không có câu nào đúng.
A. Đúng theo cách trình bày nhưng thiếu dẫn đến vòng lặp vô hạn. Phải ghép 2 câu lệnh sau do lại bằng begin ... end;.
B. Sai vè sau while lại là 1 phép gán S:=10
C. Sai, vì sau do câu lệnh lại là 1 điều kiện a=b. Và đây cũng là 1 vòng lặp vô hạn
câu lệnh While a<b; do t:=10+a sai
Vì trong viết sai câu lệnh, dấu ; chỉ suất hiện ở mỗi cuối câu lệnh
Sửa lại: While a<b do t:=10+a;