Вычисление площади поверхности и объема правильной пирамиды - Turbo Pascal

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

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

Вычислить площадь поверхности и объем правильной пирамиды, в основании которой квадрат со стороной a и высотой h.

Решение задачи: «Вычисление площади поверхности и объема правильной пирамиды»

textual
Листинг программы
var a, h, s, v: real;
begin
  repeat
    write('a = ');
    readln(a)
  until a > 0;
  repeat
    write('h = ');
    readln(h)
  until h > 0;
  s := a * (a + 2 * sqrt(a * a / 4 + h * h));
  v := s * h / 3;
  write('S = ', s, ',  V = ', v);
  readln
end.

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

  1. Создается переменная a типа real и инициализируется значением, которое читается с консоли.
  2. Затем создается переменная h типа real и инициализируется значением, которое читается с консоли.
  3. Далее создается переменная s типа real и инициализируется значением, которое вычисляется по формуле a * (a + 2 * sqrt(a * a / 4 + h * h)).
  4. Затем создается переменная v типа real и инициализируется значением, которое вычисляется по формуле s * h / 3.
  5. Выполняется запись в консоль значений переменных S и V с помощью функции write.
  6. Выполняется чтение значения с консоли с помощью функции readln.

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

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