Организация подпрограмм - Turbo Pascal
Формулировка задачи:
Вычислить площадь правильного шестиугольника со стороной а. Определить функцию, печатающую площадь треугольника по его сторонам
Решение задачи: «Организация подпрограмм»
textual
Листинг программы
var s, z : real; {Функция расчета площади треугольника по формуле Герона} function sGeron (a, b, c : real) : real; var p : real; begin p := (a + b + c) / 2; {полупериметр} sGeron := sqrt(p * (p - a) * (p - b) * (p - c)) end; begin write('введите сторону правильного шестиугольника: '); readln(z); {как известно радиус описанной окружности правильного шестиугольника равен стороне - поэтому считаем сумму площадей 6 равносторонних треугольников} s := 6 * sGeron(z, z, z); writeln('площадь правильного шестиугольника: ', s:0:4); readln end.
Объяснение кода листинга программы
- Объявляются переменные s и z типа real.
- Определяется функция sGeron, которая принимает три аргумента типа real и возвращает один аргумент типа real.
- Внутри функции объявляется переменная p типа real и присваивается ей значение (a + b + c) / 2, где a, b и c - это аргументы функции sGeron. Это значение называется полупериметром.
- Затем вызывается функция sqrt, которая возвращает квадратный корень из значения переменной p. Результат сохраняется в переменной sGeron.
- В основной части программы считывается значение переменной z с помощью функции readln.
- Вычисляется площадь правильного шестиугольника, для чего используется формула Герона. Для этого вызывается функция sGeron шесть раз с аргументами z, z и z, и результаты суммируются.
- Полученная сумма площадей шести треугольников выводится на экран.
- Программа завершается вызовом функции readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д