Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

С клавиатуры вводятся три числа, которые есть углами треугольника. Написать програму Паскаль и вычислить может ли быть этот треугольник равносторонним, равнобедренным

Ответ оставил Гость

В равностороннем треугольнике все три угла равны между собой и равны 60 градусов.
В равнобедренном треугольнике два угла равны между собой и оба острые.
В прочих треугольников значения всех трех углов различаются между собой.

Эффективность алгоритма решения напрямую зависит от того, насколько успешно производится сравнение углов.

Первый вариант программы (логика ЕСЛИ-ТО-ИНАЧЕ)
program v1;

var
  a, b, c: real;

begin
  Write(Введите значения углов треугольника в градусах: );
  Readln(a, b, c);
  if a = b then
    if a = c then Writeln(Треугольник равносторонний)
    else Writeln(Треугольник равнобедренный)
  else
  if a = c then Writeln(Треугольник равнобедренный)
    else
  if b = c then Writeln(Треугольник равнобедренный)
  else Writeln(Все стороны треугольника имеют различную длину)
end.

Второй вариант программы (логические выражения)
program v2;

var
  a, b, c: real;

begin
  Write(Введите значения углов треугольника в градусах: );
  Readln(a, b, c);
  if (a = b) and (a = c) then Writeln(Треугольник равносторонний)
  else
  if (a = b) or (a = c) or (b = c) then Writeln(Треугольник равнобедренный)
  else Writeln(Все стороны треугольника имеют различную длину)
end.

Тестовое решение:
Введите значения углов треугольника в градусах: 75 30 75
Треугольник равнобедренный