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) 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) 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.