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

@Gagarin31 · Регистрация: 18.07.2010

Author24 — интернет-сервис помощи студентам

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

@DeLuxe · 18.07.2010, 17:22

a)

Pascal

uses crt;
var n:integer;
f:longint;
procedure fac(x:integer; f:longint);
var i:integer;
begin
f:=1;
for i:=1 to x do f:=f*i;
end;
begin
clrscr;
write('n=');
readln(n);
fac(n,f);
write(n,'!=',f);
readln
end.

Добавлено через 3 минуты
б)

Pascal

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.

@Gagarin31 · 18.07.2010, 17:25 **[ТС]**

Большое спасибо!)

@Gagarin31 0 / 0 / 0 Регистрация: 18.07.2010 Сообщений: 21
		1
	Программа с процедурой 18.07.2010, 16:33. Показов 1757. Ответов 2 Метки нет (Все метки) Задание 5. Написать программу с процедурой: а) Написать процедуру для расчета факториала данного числа. Вывести на экран значение n!. б) Вычислить Z=(v1+v2+v3)/3, где v1, v2, v3 - объемы шаров с радиусами r1, r2, r3 соответственно. Написать процедуру, подсчитывающую объем шара. 0

@Gagarin31 0 / 0 / 0 Регистрация: 18.07.2010 Сообщений: 21
	18.07.2010, 17:25 [ТС]	3
	Большое спасибо!) 0

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

Решение