Question

Viết chương trinh tính diện tích hcn, hình thang,hình thoi

Answer 1

 hình chữ nhật 

program Hinh_Chu_Nhat;

var a,b,S,P: integer;

writeln(‘Nhap_chieu_dai:’);

readln(a);

writeln(‘Nhap_chieu_rong:’);

readln(b);

P:=((a+b)*2);

writeln(‘Dien tich la:’,P);

Answer 2

begin
  write('Nhap canh day thu nhat: ');readln(a);
 hình thang 

write('Nhap canh day thu hai: ');readln(b);
  write('Nhap chieu cao: ');readln(c);
  write('Dien tich hinh thang: ',(((a+b)/2)*c):0:2);
  end;
end;
readln;
end.

Answer 3

program dien-tich-hinh-thoi

uses crt;

var m,n,dt:Real;

begin

clrscr;

Writeln(‘Hay nhap gia tri cho bien:’);

Readln(m,n);

dt:= (m*n)/2;

Writeln(‘Dien tich cua hinh thoi ABCD la:’,dt:7:2);

Readln

End.