Lập trình để tính diện tích tam giác. Các cạnh là các số nguyên dương nhỏ hơn 50

0 bình luận về “Lập trình để tính diện tích tam giác. Các cạnh là các số nguyên dương nhỏ hơn 50”

1. Program {tuỳ bạn};

   Uses crt;

   VAR S,P: Real;

          AB,BC,CA: Integer;

   BEGIN

   Clrscr;

   Readln(AB);

   Readln(BC);

   Readln(CA);

   P:=(AB+BC+CA)/2;

   S:= sqrt(P*(P-AB)*(P-BC)*(P-CA));

   Write(S:0:2);

   Readln

   END.

   Bình luận