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à...
Đọc tiếp
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. {..........}
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.