Question

Viết phương trình bằng ngôn ngũ lập trình Pascal tính diện tích hình sau:

Answer 1

uses crt;
var s,s1,s2,s3,a,h,b:real;
begin
clrscr;
s:=a*h;
s1:=b*h/2;
s2:=0.3925*h*h;
s3:=s+s1+s2;
writeln('Dien tich hinh tren la: ',s3:0:2);
readln
end.

Answer 2

uses crt;

var a,b,h,hcn:longint;

tg,bt:real;

begin

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

tg:=(b*h)/2;

hcn:=a*h;

bt:=3.14*((h/2)*(h/2))

writeln('dien tich hinh tren la:',tg+hcn+bt);

readln

end.