Phan Tiến's Profile

Viết chương trình tính chu vi và diện tích hình chữ nhật, hình vuông, hình tam giác trong free pascal

Program Hinh_vuong;

uses Crt;

var a, b, s, p:real;

Begin

Write('canh hinh vuong:');readln(a);

S:=a*4;

p:=a*a;

Writeln('dien tich hinh vuong:',s);

Writeln('chu vi hinh vuong:',p:10:2);

readln

End.

Program Hinh_vuong;

uses Crt;

var a, b, s, p:real;

Begin

Write('canh hinh vuong:');readln(a);

S:=a*4;

p:=a*a;

Writeln('dien tich hinh vuong:',s);

Writeln('chu vi hinh vuong:',CV:10:2);

readln

End.

Program Hinh_chu_nhat;

uses Crt;

var a, b, s, CV:real;

Begin

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

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

S:=a*b;

CV:=(a+b)*2;

Writeln('dien tich hinh chu nhat:',s);

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

readln

End.

Program Hinh_vuong;

uses Crt;
var a, s, p:real;
Begin
Write('canh hinh vuong:');readln(a);
S:=a*4;
p:=a*a;
Writeln('dien tich hinh vuong:',s);
Writeln('chu vi hinh vuong:',p);
readln
End.