Программа с процедурой - 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.
Объяснение кода листинга программы
- Программа на языке Pascal с процедурой.
- Процедура vol(r1,r2,r3:real; var Z:real) принимает три аргумента типа real и изменяемую переменную Z типа real.
- Внутри процедуры объявлены три переменные типа real с именами v1,v2,v3.
- Значение переменной v1 вычисляется как 4/3Pir1r1r1.
- Значение переменной v2 вычисляется как 4/3Pir2r2r2.
- Значение переменной v3 вычисляется как 4/3Pir3r3r3.
- Значение переменной Z вычисляется как сумма v1,v2 и v3, делённая на 3.
- В основной части программы объявлены четыре переменные типа real с именами r1,r2,r3 и Z.
- Ввод значений переменных r1,r2,r3 с помощью функции readln.
- Вызов процедуры vol с передачей значений переменных r1,r2,r3 и Z в качестве аргументов и указанием изменяемой переменной Z.
- Вывод значения переменной Z с помощью функции write.
- Ввод с помощью функции readln.