Составить пользовательскую процедуру или функцию для вычисления произведения

@NovAID · Регистрация: 02.11.2013

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

Составить пользовательскую процедуру или функцию для вычисления произведения:
(1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ••• * (n/(n+1)2).

@MatMaster · 03.11.2013, 12:33

Pascal

uses crt;
var n,i:integer; pro:real;
procedure p(pro:real; i:integer; var pr:real);
begin pr:=pro*2*i/(i+1); end;
begin
clrscr;
write('Vvedite N: ');
readln(n);
pro:=1;
for i:=1 to n do p(pro,i,pro);
write('Proizvedenie=',pro:0:8);
readkey;
end.

@NovAID 1 / 1 / 1 Регистрация: 02.11.2013 Сообщений: 153
		1
	Составить пользовательскую процедуру или функцию для вычисления произведения 02.11.2013, 16:58. Показов 1177. Ответов 1 Метки нет (Все метки) Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * ( 2/(2+1)2) * ( 3/(3+1)2) * ••• * (n/(n+1)2). 0

	03.11.2013, 12:33

Опции темы

Составить пользовательскую процедуру или функцию для вычисления произведения

Решение