Cho 3 số a,b,c . Viết chương trình Pascal kiểm tra xem a,b,c có phải 3 cạnh của tam giác vuông không, tính diện tích tam giác đó ̣(công thức Heron)

program sksk;

uses crt;

var a, b, c, p, s : real;

begin

clrscr;

write('nhap do dai canh a :');readln(a);

write('nhap do dai canh b :');readln(b);

write('nhap so dai canh c :');readln(c);

if (a + b > c) and (a + c > b) and (b + c > a) then

begin

writeln(a:4:1, b:4:1, c:4:1,' la do dai ba canh tam giac');

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

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

writeln('dien tich tam giac la :', s:8:2);

end

else writeln(a:4:1, b:4:1, c:4:1,' khong la do dai ba canh tam giac');

if (a*a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = a*a + b*b) then

writeln('day la tam giac vuong');

readln

end.

Program Dien_tich_tam_giac_vuong;

Uses crt;

Var a,b,c:real;

Begin    

    clrscr;     

     write('do dai canh a,b,c=');     readln(a,b,c);   

  if (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then         

            writeln('Day la tam giac vuong')     

            else         

            writeln('Day la tam giac thuong');   

  If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
    Begin
         p:=(a+b+c)/2;
         s:=sqrt(p*(p-a)*(p-b)*(p-c));
         Writeln('Chu vi tam giac:',2*p:4:2) ;
         Writeln('Dien tich tam giac:',s:4:2);
     End;

    readln

End.

xin ctlhn, cảm ơn chúc bạn học tốt