Вычислить произведение Р

@sizoichel · Регистрация: 19.11.2010

Помогите написать программу ну или хотя бы тело) "Вычислить произведение Р = 1 * 3* 5* 7 * … * (2n+1) для заданного n".

@Ilana4ka · 01.12.2010, 18:22

Pascal

 
p:=0;
 for n:=0 to 1000 do begin
p:=(2n+1)*p;
end;
writeln('p=',p);

@SuPeR XaKer · 01.12.2010, 18:42

Pascal

Uses
 CRT;
var
 i,n:integer;
 f:real;
begin
ClrScr;
readln(n);
f:=1;
for i:=0 to n-1 do
begin
 f:=f*(2*i+1);
end;
write(f);
readkey
end.

@Эльбрус_ · 13.12.2016, 16:17

SuPeR XaKer, "Вычислить произведение Р = 1 * 3* 5* 7 * … * (2n+1) для заданного n". а как составить схему алгоритма программы?

@ILinker · 14.12.2016, 14:56

Эльбрус_

Как составлять блок-схемы написано тут:
http://learnpascal.ru/vvedenie... sxema.html

@Cyborg Drone · 15.12.2016, 21:50

Эльбрус_, я Вам в этой Вашей теме: Вычислить сумму ряда в посте #9 всё написал. Не знаю, может быть, Вы не прочитали до конца моё сообщение?

@sizoichel 1 / 1 / 0 Регистрация: 19.11.2010 Сообщений: 23
		1
	Вычислить произведение Р 01.12.2010, 17:41. Показов 1449. Ответов 5 Метки нет (Все метки) Помогите написать программу ну или хотя бы тело) "Вычислить произведение Р = 1 * 3* 5* 7 * … * (2n+1) для заданного n". 1

@Эльбрус_ 0 / 0 / 0 Регистрация: 13.12.2016 Сообщений: 6
	13.12.2016, 16:17	4
	SuPeR XaKer, "Вычислить произведение Р = 1 * 3* 5* 7 * … * (2n+1) для заданного n". а как составить схему алгоритма программы? 0

@ILinker Фриланс Pascal/Delphi etc 67 / 73 / 16 Регистрация: 25.11.2016 Сообщений: 263
	14.12.2016, 14:56	5
	Эльбрус_ Как составлять блок-схемы написано тут: http://learnpascal.ru/vvedenie... sxema.html 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	15.12.2016, 21:50	6
	Эльбрус_, я Вам в этой Вашей теме: Вычислить сумму ряда в посте #9 всё написал. Не знаю, может быть, Вы не прочитали до конца моё сообщение? 0