nhật* Xác định bài toán :

- Input : chiều dài a, chiều rộng b

- Output : số mét lướt cần rào và diện tích miếng đất

* Viết chương trình :

uses crt;

var a, b, s, c : real;

begin

clrscr;

write('nhap chieu dai :');readln(a);

write('nhap chieu rong :');readln(b);

c := (a + b) * 2;

s := a * b;

writeln('so met luot can de rao la :', c :3:2);

writeln('dien tich mien dat la :', s:3:2);

readln;

end.

►Xác định bài toán

input: chiều dài, chiều rộng(a,b)

output: số mét lưới cần để rào và diện tích đất(c,s)

►Viết chương trình bằng NNLT Pascal

uses crt;

var a,b,cv,s: real;

begin

clrscr;

write('nhap a: ');        readln(a);

write('nhap a: ');         readln(b);

cv:=(a+b)*2;

s:=a*b;

writeln('met luoi can de rao la: ',cv:1:2);

writeln('dien tich la: ',s:1:2);

readln;

end.