С клавиатуры вводятся три числа, которые есть углами треугольника. Написать програму Паскаль и вычислить может ли быть этот треугольник равносторонним, равнобедренным
Ответы
Ответ дал:
0
В равностороннем треугольнике все три угла равны между собой и равны 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
Треугольник равнобедренный
В равнобедренном треугольнике два угла равны между собой и оба острые.
В прочих треугольников значения всех трех углов различаются между собой.
Эффективность алгоритма решения напрямую зависит от того, насколько успешно производится сравнение углов.
Первый вариант программы (логика ЕСЛИ-ТО-ИНАЧЕ)
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
Треугольник равнобедренный
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад