Question

[Yến Nguyễn]

Bài 1: Trong các câu lệnh lặp Pascal sau đây, câu lệnh nào sai và sai ở đâu?
A. While i:=1 do t:=10;
B. While a<=b; do write(‘b khong nho hon a);
C. While 1=1 do write(‘Toi lap trinh gioi);
D. i:=1; while i<10 do sum:=sum+1; i:=i+1;

Bài 2:Viết chương trình nhập vào hai cạnh a,b là cạnh của hcn, a<=0; b<=0 thì yêu cầu
nhập lại, sau đó tính diện tích hcn.

Answer 1

[Nguyễn Lê Phước Thịnh]

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.

Answer 2

[Yến Nguyễn]

cảm ơn bạn rất rất rất rất nhiều.