a/Program Chu_vi_dien_tich_hinh_thang
Var a, b, c, d, h, S, P : Real;
Begin
writeln ('nhap a');
readln (a);
writeln ('nhap b');
readln (b);
writeln ('nhap c');
readln (c);
writeln ('nhap d');
readln (d);
writeln ('nhap h');
readln (h);
P = a + b + c + d
S = (a + b ) * h / 2
writeln ( 'Chu vi cua hinh thang la, P : 3 : 2);
writeln ( 'Dien tich cua hình thang la, S : 3 : 2);
readln;
readln
End.
b/
Program CHU_VI_Hinh_Tron;
Uses Crt;
Var r,dt,cv:real;
Begin
Clrscr;
Writeln (‘Nhap ban kinh R=’);readln(r);
dt:=pi*r*r;
cv:=2*pi*r;
Writeln(‘Dien tich hinh tron la:’,dt:6:2);
Writeln(‘Chu vi hinh tron la:’,cv:6:2);
Readln;
End.
