Question

Viết công thức tính diện tích và chu vi hình chữ nhật trong phần mềm Free Pascal biết chiều dài là 6, chiều rộng là 3.

Answer 1

Program cv_dientich;

uses crt;

var cv,s,a,b:real;

begin

clrscr;

write('nhap chieu dai :');

readln(a);

write('nhap chieu rong :');

readln(b);

s:=a*b;

cv:=(a+b)*2;

writeln('chu vi hinh chu nhat = ' , cv);

writeln('dien tich hinh chu nhat = ' ,s);

readln

end.

Answer 2

program cv_dt_hcn;

uses crt;

var 6,3,cv,dt : integer;

begin

writeln('Nhap chieu dai'); readln(6);

writeln('Nhap chieu rong'); readln(3);

cv:=(6+3)*2;

dt:=6*3;

writeln('Chu vi HCN =', cv);

writeln('Dien tich HCN =', dt);

end.