Viết chương trình pascal tính chu vi và diện tích hình tam giác . GIÚP MÌNH VỚI Ạ

0 bình luận về “Viết chương trình pascal tính chu vi và diện tích hình tam giác . GIÚP MÌNH VỚI Ạ”

1. Program Example3;uses Crt;var a,b,c,P,S :real;begin write(‘Nhap vao 3 canh : ‘); readln(a,b,c); If (a<b+c) and=”” (b<a+c)=”” (c<a+b)=”” then=”” begin=”” p:=”(a+b+c)/2;” s:=”sqrt(p*(p-a)*(p-b)*(p-c));” writeln(‘3=”” canh=”” ban=”” vua=”” nhap=”” la=”” 3=”” cua=”” 1=”” tam=”” giac.’);=”” writeln(‘chu=”” vi=”” giac=”” :=”” ‘,p*2:4:2,’=”” cm’);=”” writeln(‘dien=”” tich=”” ‘,s:4:2,’=”” end=”” else=”” khong=”” giac’);=”” readlnend.=”” <br=””>

   Bình luận

2.      Program Hotboy ;

        Uses crt;

        Var p,S,a,b,c: 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.

   Bình luận