Question

Напишите программу в Pascal ABC: существует ли треугольник со сторонами а, b, с. Если существует, то какой он - тупоугольный, прямоугольный или остроугольный.

Answer 1

Ответ:

var a,b,c: double;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите c: ');

readln(c);

if (a<b+c) and (b<a+c) and (c<a+b) then begin

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

writeln('Треугольник существует. Он тупоугольный')

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

writeln('Треугольник существует. Он прямоугольный')

else writeln('Треугольник существует. Он остроугольный')

end

else  writeln('Треугольник не существует.')

end.

Answer 2

Конечно, вот пример программы на Pascal ABC, которая определяет, какого типа треугольник с заданными сторонами a, b и c:

pascalCopy code
program TriangleType;

var
  a, b, c: real;

procedure Swap(var x, y: real);
var
  temp: real;
begin
  temp := x;
  x := y;
  y := temp;
end;

procedure Sort(var x, y, z: real);
begin
  if x > y then
    Swap(x, y);
  if y > z then
    Swap(y, z);
  if x > y then
    Swap(x, y);
end;

begin
  writeln('Введите длины сторон треугольника:');
  readln(a, b, c);
  
  Sort(a, b, c);  // Сортируем стороны треугольника по возрастанию
  
  if a + b <= c then
    writeln('Треугольник с такими сторонами не существует')
  else
  begin
    if a*a + b*b = c*c then
      writeln('Прямоугольный треугольник')
    else if a*a + b*b < c*c then
      writeln('Тупоугольный треугольник')
    else
      writeln('Остроугольный треугольник');
  end;
end.

Программа запрашивает у пользователя длины сторон треугольника, сортирует их в порядке возрастания и затем проверяет, существует ли треугольник с такими сторонами. Если треугольник существует, программа определяет его тип: прямоугольный, тупоугольный или остроугольный.