Question

70 балов!!!!Даны три числа, определить существование треугольника, если да то определить площадь(программа в паскале)

Answer 1

program raf105;

var a,b,c,p,s: real;

begin

write('Введите длины трёх сторон: ');

readln(a,b,c);

p:= (a+b+c)/2;

s:= sqrt(p*(p-a)*(p-b)*(p-c));

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

 then

 begin

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

   writeln ('Периметр треугольника: ',s);

 end

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

end.

Программа написана на языке PascalABC.NET

Answer 2

Для определения существования треугольника по заданным трем числам и вычисления его площади вам потребуется написать программу на языке Паскаль. Вот пример такой программы: ```pascal program TriangleArea; var a, b, c, s: real; begin writeln('Введите длины сторон треугольника:'); readln(a, b, c); if (a + b > c) and (a + c > b) and (b + c > a) then begin s := sqrt((a + b + c) * (a + b - c) * (a - b + c) * (-a + b + c)) / 4; writeln('Треугольник существует.'); writeln('Площадь треугольника: ', s:0:2); end else writeln('Треугольник не существует.'); readln; end. ``` В этой программе мы сначала запрашиваем у пользователя длины сторон треугольника. Затем мы проверяем условие существования треугольника: сумма любых двух сторон должна быть больше третьей стороны. Если условие выполняется, мы вычисляем площадь треугольника с помощью формулы Герона и выводим результат. Если условие не выполняется, мы выводим сообщение о том, что треугольник не существует. **Примечание:** Пожалуйста, убедитесь, что ваш компилятор Паскаля поддерживает функцию `sqrt` для вычисления квадратного корня. Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.