Question

Составить программу, вычисляющую площадь треугольника в паскаль

Answer 1

Ответ:

program z1;

var a,b,c,p: real;

begin

writeln('Определение площади треугольника по теореме Герона');

writeln('Введите стороны треугольника');

write ('a = ');

readln(a);

write ('b = ');

readln(b);

write ('c = ');

readln(c);

if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника с такими сторонами не существует')

else

begin

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

writeln('Площадь треугольника равна ',sqrt(p*(p-a)*(p-b)*(p-c)):0:3)

end

end.

Answer 2

Для вычисления площади треугольника в Pascal можно использовать следующую программу:

program CalculateTriangleArea;
var
  base, height, area: real;
begin
  writeln('Введите значение основания треугольника:');
  readln(base);
  
  writeln('Введите значение высоты треугольника:');
  readln(height);
  
  area := (base * height) / 2;
  
  writeln('Площадь треугольника равна: ', area);
end.

В этой программе мы используем переменные `base` (основание треугольника), `height` (высота треугольника) и `area` (площадь треугольника). Пользователю предлагается ввести значения основания и высоты треугольника, после чего программа вычисляет площадь треугольника по формуле `(base * height) / 2` и выводит результат на экран.

Примечание: В данной программе предполагается, что пользователь будет вводить числовые значения для основания и высоты треугольника. Если требуется обработка некорректного ввода, то код программы можно дополнить соответствующими проверками и обработкой ошибок.

Надеюсь, эта информация будет полезной! Если у вас возникнут еще вопросы, не стесняйтесь задавать.