Question

Написать программу на языке Паскаль Дано: а,b,с Найти:S S=SQRT(p(p-a)(p-b)(p-c)) где р=(а+b+c)/2

Answer 1

Var a,b,c,s:real;

procedure Pl(var a,b,c,s:real);
var p:real;
begin;
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end;

begin;
readln(a);
readln(b);
readln(c);
if (a>=(b+c)) or (b>=(a+c)) or (c>=(a+b)) then
begin;
writeln('error');
exit;
end;
Pl(a,b,c,s);
end.

Answer 2

Var a,b,c,s:integer;
function f(a1,b1,c1:real):real;
var p:real;
begin
p:=(a+b+c)/2;
f:=sqrt(p*(p-a)*(p-b)*(b-c)); end;
BEGIN
readln(a,b,c);
writeln('S=',f(a,b,c):4:2);
end.

Answer 3

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

program Heron;
var
  a, b, c, p, S: real;
begin
  writeln('Введите длины сторон треугольника:');
  readln(a, b, c);
  p := (a + b + c) / 2; // полупериметр
  S := sqrt(p * (p - a) * (p - b) * (p - c)); // площадь по формуле Герона
  writeln('Площадь треугольника равна ', S:0:2);
end.

Эта программа считывает три вещественных числа `a`, `b` и `c`, которые представляют длины сторон треугольника, и вычисляет его площадь `S` по формуле Герона. Формула Герона гласит, что площадь треугольника равна квадратному корню из произведения полупериметра `p` и разностей полупериметра и каждой стороны. Полупериметр `p` равен сумме сторон треугольника, деленной на два. Программа выводит площадь треугольника с двумя знаками после запятой.

Надеюсь, это поможет вам. Если у вас есть еще вопросы, я рад помочь.

: [Формула Герона]