F
Famous
Собственно вот сама задача
Определить, существует ли треугольник с заданными целочисленными длинами сторон а, в, с. Если да, то определить тип треугольника - остроугольный, тупоугольный или прямоугольный.
А вот та кодировка которую я составил, но в чём-то присутствует ошибка, когда я ввожу стороны любые какие я бы не ввёл, выдаёт сообщение об ошибки или же что треугольник не существует...помогите разобраться
Определить, существует ли треугольник с заданными целочисленными длинами сторон а, в, с. Если да, то определить тип треугольника - остроугольный, тупоугольный или прямоугольный.
А вот та кодировка которую я составил, но в чём-то присутствует ошибка, когда я ввожу стороны любые какие я бы не ввёл, выдаёт сообщение об ошибки или же что треугольник не существует...помогите разобраться
Код:
program treygolnichek;
var x,y,z,m,n,p,x1,x2,y1,y2,l1,l2,l3,c:real;
begin
write ('x= ');readln (x);
write ('y= ');readln (y);
write ('z= ');readln (z);
write ('m= ');readln (m);
write ('n= ');readln (n);
write ('p= ');readln (p);
if (x>0) and (y>0) and (z>0) then
begin
if (x+y>=z) and (x+z>=y) and (y+z>=x) then
begin
l1:=sqrt(sqr((x1-x2))+(sqr(y1-y2)));
l2:=sqrt(sqr((x1-x2))+(sqr(y1-y2)));
l3:=sqrt(sqr((x1-x2))+(sqr(y1-y2)));
c:=(sqr(l1)+sqr(l2)-sqr(l3))/(2*l1*l2);{cosinus naibolshego ygla}
if abs(c)<1e-10 then writeln('treugolnik pryamougolnyj')
else if c>0 then writeln('treugolnik ostrougolnyj') {ECJIu cos>0, To ygol Menbshe 90 gradusov}
else if c<0 then writeln('treugolnik tupougolnyj');{boJIshe 90 gradusov}
readln;
end
else
writeln('Treygolnik ne sushestvuet"');
end
else
writeln('Treygolnik ne sushestvuet');
end.