Question

Viết ctrinh nhập vào biểu chieu dai và chiều rộng của hinh chữ nhật. Thực hiện tính dính tich và chu vi hình chu nhat đó.

........; {khai báo....}

........; { khai báo thu vien màn hình CRT }

.......; { khai báo biến cdai, còng, dtich, chi hinh chu nhat}

Begin {..………}

........; {lenh lao sach màn hình}

Writeln('........'); {xuat thông báo'....' fa màn hình}

.....(.....); { nhập dữ liệu từ bàn phím vào biến....}

If (....)....(....) then {nếu cdai=0 và crộg=0 thì k thực hiện tính dtich và cvi}

...... :=........; { gán gtri...vao biến.....}

...... :=.....; { gán gtri ....vao bien...}

Writeln('....',.....,'.....',.....); { xuất thông báo'......' ra màn hình}

End; {tại s có cặp lệnh"begin...end" ở đây?...}

....... { dừng màn hình}

End. {..........}

Answer 1

program Khai_bao;

uses CRT;

var a, b:longint;

begin

clrscr;

write('Hay nhap chieu dai');

readln(a);

write('Hay nhap chieu rong');

readln(b);

if (a=0) and (b=0) then

begin

writeln('Loi, khong thuc hien phep tinh');

readln;

end

else

if (a>0) and (b>0) then

begin

writeln('Chu vi hinh chu nhat la ',(a+b)*2);

writeln('Dien tich hinh chu nhat la ',a*b);

readln;

end.