Написать программу на ЯП Паскаль для вычисления площади треугольника по его сторонам AB, BC, CA (формула Герона). Программу написать на 13 строк.

3 Сен 2019 в 14:42
197 +1
2
Ответы
1

program TriangleArea;
var
AB, BC, CA, p, S: real;
begin
write('Enter the length of side AB: ');
readln(AB);
write('Enter the length of side BC: ');
readln(BC);
write('Enter the length of side CA: ');
readln(CA);

p := (AB + BC + CA) / 2;
S := sqrt(p (p - AB) (p - BC) * (p - CA));

writeln('The area of the triangle is: ', S:0:2);
end.

20 Апр 2024 в 04:47
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир