Программа с процедурой - Pascal

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

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

Задание 5. Написать программу с процедурой: а) Написать процедуру для расчета факториала данного числа. Вывести на экран значение n!. б) Вычислить Z=(v1+v2+v3)/3, где v1, v2, v3 - объемы шаров с радиусами r1, r2, r3 соответственно. Написать процедуру, подсчитывающую объем шара.

Решение задачи: «Программа с процедурой»

textual
Листинг программы
uses crt;
procedure vol(r1,r2,r3:real; var Z:real);
var v1,v2,v3:real;
begin
v1:=4/3*Pi*r1*r1*r1;
v2:=4/3*Pi*r2*r2*r2;
v3:=4/3*Pi*r3*r3*r3;
Z:=(v1+v2+v3)/3;
end;
var r1,r2,r3,Z:real;
begin
clrscr;
readln(r1,r2,r3);
vol(r1,r2,r3,Z);
write('Z=',Z:0:2);
readln
end.

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

  1. Программа на языке Pascal с процедурой.
  2. Процедура vol(r1,r2,r3:real; var Z:real) принимает три аргумента типа real и изменяемую переменную Z типа real.
  3. Внутри процедуры объявлены три переменные типа real с именами v1,v2,v3.
  4. Значение переменной v1 вычисляется как 4/3Pir1r1r1.
  5. Значение переменной v2 вычисляется как 4/3Pir2r2r2.
  6. Значение переменной v3 вычисляется как 4/3Pir3r3r3.
  7. Значение переменной Z вычисляется как сумма v1,v2 и v3, делённая на 3.
  8. В основной части программы объявлены четыре переменные типа real с именами r1,r2,r3 и Z.
  9. Ввод значений переменных r1,r2,r3 с помощью функции readln.
  10. Вызов процедуры vol с передачей значений переменных r1,r2,r3 и Z в качестве аргументов и указанием изменяемой переменной Z.
  11. Вывод значения переменной Z с помощью функции write.
  12. Ввод с помощью функции readln.

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

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