viết chương trình tính diện tích hoặc chu vi của hình vuông, hình chữ nhật, hình tam giác, hình tròn… viết theo pascal lớp 8

Diện tích & chu vi của hình vuông:

Program hinhvuong;

Uses crt;

Var a: real;

Begin

Clrscr;

Write('Nhap do dai 1 canh:');

Readln(a);

Writeln('Dien tich hinh vuong do:',a*a);

Writeln('Chu vi hinh vuong do:',a*4);

Readln

End.

___________________________________

Diện tích & chu vi của hình chữ nhật 

Program hinhchunhat;

Uses crt;

Var a,b: real;

Begin

Clrscr;

Write('Nhap lan luot chieu dai va chieu rong:');

Readln(a,b);

Writeln('Dien tich hinh chu nhat do:',a*b);

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

Readln

End.

_____________________________

Diện tích & chu vi của hình tam giác

*HÌNH TAM GIÁC.

Program hinhtamgiac;

Uses crt;

Var a,b,c,h: real;

Begin

Clrscr;

Write('Nhap 2 canh ben:');

Readln(a,b);

Write('Nhap canh day:');

Readln(c);

Write('Nhap chieu cao ung voi canh day:');

Readln(h);

Writeln('Dien tich cua hinh tam giac do la:',(c*h)/2:5:2);

Writeln('Chu vi cua hinh tam giac do la:',a+b+c);

Readln

End.

_________________________________________

Diện tích & chu vi của hình tròn

Program hinhtron;

Uses crt;

Var r: real;

Begin

Clrscr;

Write('Nhap ban kinh:');

Readln(r);

Writeln('Dien tich hinh tron do:',r*r*3.14:5:2);

Writeln('Chu vi hinh tron do:',r*2*3.14:5:2);

Readln

End.

Lời giải :

*HÌNH TAM GIÁC.

 Program Hotboy ;

     Uses crt;

     Var a,b,c,p,S: real;

     Begin

     clrscr;

     Write('Nhap canh a:');readln(a);

     Write('Nhap canh b:');readln(b);

     Write('Nhap canh c:');readln(c);

     p:=(a+b+c)/2;

     S:= sqrt(p*(p-a)*(p-b)*(p-c));

     Write('Dien tich hinh tam giac la',s:3:6);

     Write('chu vi cua hinh tam giac          la',a+b+c);

     Readln

     End.

*HÌNH CHỮ NHẬT

Uses crt;

Var s, p, a, b: real;

Begin

     Clrscr;

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

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

     s:=a*b;

     p:=(a+b)*2;

     Writeln('Dien tich HCN la: ',s1:2:0);

     Writeln('Chu vi HCN la: ',p1:2:0);

Readln

End.

*HÌNH VUÔNG

Uses crt;

Var a, s, p: real;

Begin

     Clrscr;

     Write('Nhap canh a = '); readln(a);

     s:=a*a;

     p:=a*4;

     Writeln('Chu vi la: ',p:0:2);

     Writeln('Dien tich la: ',s:0:2);

Readln

End.

*HÌNH TRÒN.

Uses crt;

Var r,s1,c1: real;

Begin

Write('Nhap r = ');

readln(r);

c1:=pi*r*2;

s1:=pi*r*r;

Writeln('Dien tich cua hinh tron la: ',s1);

Writeln('Chu vi cua hinh tron la: ',c1);

Readln

End.

@hanachan