Viết chương trình pascal tính: Tính diện tích và chu vi của tam giác có 3 cạnh là A, B, C (được nhập từ bàn phím)

0 bình luận về “Viết chương trình pascal tính: Tính diện tích và chu vi của tam giác có 3 cạnh là A, B, C (được nhập từ bàn phím)”

1. uses crt;
   var a,b,c:longint; p:real;
   begin
   clrscr;
      write(‘a,b,c: ‘);readln(a,b,c);
      p:=(a+b+c)/2;
      writeln(‘Chu vi: ‘,p*2:0:2);
      writeln(‘Dien tich: ‘,sqrt(p*(p-a)*(p-b)*(p-c)):0:2);
   readln;
   end.

   Bình luận

2. program hoidap247;

   uses crt;

   var A,B,C,P:real;

   Begin

   write (‘Canh 1’);

   Readln (A);

   write (‘Canh 2’);

   Readln (B);

   write (‘Canh 3’);

   Readln (C);

   P:=A+B+C;

   Writeln (‘Chu vi hinh tam giac’,P);

   Readln

   End.

   Bình luận