Program Chu_nhat;

uses crt;

Var a, b, S, CV: real;

Begin

Write('Nhap chieu dai:'); readln(a);

Write('Nhap chieu rong:'); readln(b);

S := a*b; CV := (a+b)*2;

Writeln('Dien tich hinh chu nhat la:',S);

Writeln('Chu vi hinh chu nhat la:',CV:10:2); readln;

end.

Bài 1:
Program HINH_CHU_NHAT;
Uses Crt;
Var a,b,s,c: real;
Begin
   Clrscr;
   Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’);
   Writeln(‘————————————————————–‘);
   Write('Nhap chieu dai='); readln(a);
   Write('Nhap chieu rong=');readln(b);
   s:=a*b;
   c:=(a+b)*2;
   Writeln('Dien tich hinh chu nhat la:’,s:6:2);
   Writeln('Chu vi hinh chu nhat:',c:6:2);
   Readln;
End.

 

Bài 2 :
Program Dien_tich_tam_giac;
Var
a,b,c:Integer;
p,s:Real;
Begin
Writeln('DIEN TICH TAM GIAC');
Writeln('------------------');
Write('-Nhap so thu nhat: ');
Readln(a);
Write('-Nhap so thu hai : ');
Readln(b);
Write('-Nhap so thu ba : ');
Readln(c);
If (a+b>c) And (b+c>a) And (c+a>b) Then
Begin
Writeln('+Dung la Tam giac');
p:=0.5*(a+b+c);
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('+Dien tich= ',s:10:2);
End
Else
Writeln('+Khong phai la Tam giac');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.

Program chuvidientich;

Uses crt;

Var a,b:integer;

Begin

Write('Nhap chieu dai hinh chu nhat:');

Read(a);

Write('Nhap chieu rong hinh chu nhat:');

Read(b);

Write('Chu vi hinh chu nhat la:',(a+b)*2);

Write('Dien tich hinh chu nhat la:',a*b);

Readln;

End.