*Viết chương trình tính diện tích hình vuông
program dientich;
uses crt;
var S,a:integer;
begin
writeln('nhap a');
readln(a);
S:=a*a;
writeln('ketqua',S);
readln;
end.
* program Hinh_chu_nhat;
uses crt;
var a,b,S,: integer;
begin
writeln('Nhap chieu dai:');
readln(a);
writeln('Nhap chieu rong:');
readln(b);
S:=(a*b);
writeln('Dien tich la:',S);
readln
end.
* Program S_Hinh_Tron;
Uses Crt;
Var r,S:real;
Begin
Clrscr;
Writeln(‘TINH DIEN TICH HINH TRON:’);
Write (‘Nhap ban kinh R=’);readln(r);
dt:=pi*r*r;
Writeln(‘Dien tich hinh tron la:’,dt:6:2);
Readln;
End.
*
Program dien_tich_hinh_thang;
uses crt;
var a,b,h: real;
begin
clrscr;
write('nhap a = '); readln(a);
write('nhap b = '); readln(b);
write('nhap h = '); readln(h);
writeln('dien tich hinh thang =' ,(1/2)*h*(a+b):4:2);
readln;
end.
