Написать программу вычисления периметра и площади треугольника, используя процедуру и функцию - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Обращаюсь за помощью. Никак не получается написать следующую программу:
Написать программу вычисления периметра и площади треугольника на PASCAL. Стороны треугольника a,b,c ввести с клавиатуры. Вычисление площади треугольника оформить

функцией

, вычисление периметра -

процедурой

.
Я пробовала написать, но тщетно. В общем, мои попытки кончились этим:
Никак не пойму, в чём ошибка. Буду очень признательна за помощь!

Решение задачи: «Написать программу вычисления периметра и площади треугольника, используя процедуру и функцию»

textual
Листинг программы
program P1;
 
var
  a, b, c, P, S: real;
 
procedure Pr(a, b, c: real; var P: real);
begin
  P := a + b + c;
end;
 
function F(a, b, c: real): real;
var
  pp: real;
begin
  pp := (a + b + c) / 2;
  f := sqrt(pp * (pp - a) * (pp - b) * (pp - c));
end;
 
begin
  Writeln('Vvedite a,b,c');
  readln(a, b, c);
  pr(a, b, c, p);
  writeln('P = ', P, ' S = ', f(a, b, c));
  
end.

Объяснение кода листинга программы

  1. Создаётся программа P1.
  2. Объявляются переменные: a, b, c, P, S типа real.
  3. Создаётся процедура Pr с параметрами a, b, c типа real и переменной P типа real.
  4. В процедуре Pr значение переменной P вычисляется как сумма значений переменных a, b и c.
  5. Создаётся функция F с параметрами a, b, c типа real.
  6. В функции F объявляется переменная pp типа real.
  7. Значение переменной pp вычисляется как среднее арифметическое значений переменных a, b и c.
  8. Вычисляется значение переменной f как квадратный корень из значения переменной pp, умноженного на разность между pp и a, pp и b, pp и c, и делённого на 2.
  9. Выводится приглашение на ввод значений a, b, c.
  10. Чтение значений a, b, c с помощью функции readln.
  11. Вызывается процедура pr с параметрами a, b, c и переменной P.
  12. Выводится значение переменной P.
  13. Выводится значение переменной f.
  14. Программа заканчивается.

Оцени полезность:

15   голосов , оценка 3.733 из 5
Похожие ответы