Написать программу вычисления периметра и площади треугольника, используя процедуру и функцию - 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.
Объяснение кода листинга программы
- Создаётся программа P1.
- Объявляются переменные: a, b, c, P, S типа real.
- Создаётся процедура Pr с параметрами a, b, c типа real и переменной P типа real.
- В процедуре Pr значение переменной P вычисляется как сумма значений переменных a, b и c.
- Создаётся функция F с параметрами a, b, c типа real.
- В функции F объявляется переменная pp типа real.
- Значение переменной pp вычисляется как среднее арифметическое значений переменных a, b и c.
- Вычисляется значение переменной f как квадратный корень из значения переменной pp, умноженного на разность между pp и a, pp и b, pp и c, и делённого на 2.
- Выводится приглашение на ввод значений a, b, c.
- Чтение значений a, b, c с помощью функции readln.
- Вызывается процедура pr с параметрами a, b, c и переменной P.
- Выводится значение переменной P.
- Выводится значение переменной f.
- Программа заканчивается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д