Вопрос по информатике:
19 б!!! СРОЧНО!!!
напишите, пожалуйста, программу в паскале!!!
Вычислить р=а1*а2*а3*...*an, где аn= 2n-1/2^n (функция)
часть программы
for i:=1 to n do
a:=(2*i-1)/ f(2,i)
p:=p*a;
ПОЖАЛУЙСТА, 10 КЛАСС
Пожаловаться
- 19.06.2018 06:56
- Информатика
- remove_red_eye 2058
- thumb_up 15
Ответы и объяснения 2
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var (p,z):=(1.0,1.0);
for var i:=1 to n do begin
z*=2;
p*=(2*i-1)/z
end;
Writeln('P = ',p)
end.
Пример
n=10
P = 1.81723823489133E-08
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var (p,z):=(1.0,1.0);
for var i:=1 to n do begin
z*=2;
p*=(2*i-1)/z
end;
Writeln('P = ',p)
end.
Пример
n=10
P = 1.81723823489133E-08
Пожаловаться
- 20.06.2018 08:42
- thumb_up 40
var
p, a: real;
n,i:integer;
function f(n, i: integer):integer;
var j,res :integer;
Begin
res:=1;
For j:= 1 to i do
res:= res * n;
f:= res;
end;
begin
readln(n);
p:= 1;
for i:= 1 to n do begin
a:=(2*i-1)/f(2,i);
p:= p*a;
end;
Writeln('P = ', p:0:16);
end.
// P.S. Функция замедлит работу программы.
Пожаловаться
- 21.06.2018 03:31
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы