Question

Var a,b,c:real; begin writeln('введите a,b,c'); readln(a,b,c); if (a>0) and (b>0) and (c>0) then begin if (a=c) and (b=c) and (a=b) then writeln('равносторонний'); If (a=b) and (b<>c) then writeln('равнобедренный'); If (b=c) and (b<>a) then writeln('равнобедренный'); If (c=b) and (c<>a) then writeln('равнобедренный'); if (a<>b) and (c<>b) and (a<>c) then writeln('произвольный'); end; if (a<0) or (b<0) or (c<0) then writeln('такого треугольника нет'); end.

Answer 1

Можно код сделать покороче, если ты об этом.

program tri;

var

a, b, c: real;

begin

writeln('Введите a,b,c:');

readln(a, b, c);

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

begin

if (a = c) and (b = c) and (a = b) then

writeln('Треугольник равносторонний') ;

if (((a = b) and (b <> c)) or

((b = c) and (b <> a)) or

((c = b) and (c <> a))) then

writeln('Треугольник равнобедренный');

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

writeln('Треугольник произвольный') ;

end

else

writeln('такого треугольника нет') ;

end.

Ну вот, на 5 строчек короче, но смысл тот же.

Изменения:

• Использовал if.. else вместо двух if при проверке положительности сторон.
• Собрал 3 if при проверке на равносторонность в один if.

Answer 2

Этот код находит тип треугольника на основе введенных значений сторон a, b и c.

Вот как работает код:

1. Сначала объявляются переменные a, b и c как вещественные числа.
2. Затем выводится сообщение "Введите a, b, c", и пользователь должен ввести значения для этих переменных.
3. Затем происходит проверка условия: если a, b и c все больше нуля, то выполняется блок кода, который определяет тип треугольника.
4. Внутри блока кода с помощью условных операторов if проверяется тип треугольника на основе значений сторон. Если все стороны равны, то треугольник считается равносторонним. Если две стороны равны, а третья отличается, то треугольник считается равнобедренным.
5. Если ни одно из условий не выполняется, то треугольник считается произвольным.
6. Если хотя бы одна из сторон (a, b или c) меньше нуля, то выводится сообщение "Такого треугольника нет".

В итоге, код анализирует введенные значения сторон треугольника и определяет его тип.