Нужно срочно решить задачу по паскалю

[Макс]

Вычислить сумму
1+x1/1! +x2/2! +x3/3! +… +xn! , где k!=1* 2*3* ... *k
Значение n вводится с клавиатуры (1 < n 10).

[Ghostep]

ничего не понял, факториалы не изучал

[YaKuT-ST]

що за "x" в условии задачи?

[Ghostep]

может x - это k... хрень какая-то

[InternetStranger]

Вот прям так и пишется. Вставь в txt-файл и смени раширение на pas! И можешь смело запускать


Program Ryad;
Var i,n : integer;
s,x,r : real;
Begin
Write('Vvedite X :>'); ReadLn(x);
Write('Vvedite N :>'); ReadLn(n);
s:=0; r:=1;

for i:=1 to n do begin
r:= r*x/i;
s:= s+ r;
end;

WriteLn;
WriteLn('Ryad = ',s:10:10);
ReadLn;
End.

[YaKuT-ST]

программа не правильна...в числителе вычисляется факториал...
вот так правильнее

Program Ryad;
Var i,n,k : integer;
s,x,l : real;
Begin
Write('Vvedite X :>'); ReadLn(x);
Write('Vvedite N :>'); ReadLn(n);
s:=0; l:=0;

for i:=1 to n do begin
l:=0;
for k:=1 to i do l:=l+1/k;
s:= s+ l;
end;

WriteLn;
WriteLn('Ryad = ',s:10:10);
ReadLn;
End.

[Shang-i]

Не, ересь. Не так надо

Добавлено через 8 минут
Program Votvam;
Var i,n,k : integer;
l : real;
x: array [1..10000] of real;

Function fakt(k:integer):integer;
var j,f: integer;
begin
f:=1;
For j:=k downto 1 do f:=f*j;
result:=f;
end;

Begin
Write('Vvedite n :>'); ReadLn(n);
for i:=1 to n do
begin
Write('Vvedite x',n,' :>'); ReadLn(x[i]);
end;
l:=0;

for i:=1 to n do
begin
l:=l+x[i]/Fakt(k);
end;

WriteLn;
WriteLn('Ryad = ',l);
ReadLn;
End.

[InternetStranger]

Сообщение от Shang-i

Не, ересь. Не так надо

Добавлено через 8 минут
Program Votvam;
Var i,n,k : integer;
l : real;
x: array [1..10000] of real;

Function fakt(k:integer):integer;
var j,f: integer;
begin
f:=1;
For j:=k downto 1 do f:=f*j;
result:=f;
end;

Begin
Write('Vvedite n :>'); ReadLn(n);
for i:=1 to n do
begin
Write('Vvedite x',n,' :>'); ReadLn(x[i]);
end;
l:=0;

for i:=1 to n do
begin
l:=l+x[i]/Fakt(k);
end;

WriteLn;
WriteLn('Ryad = ',l);
ReadLn;
End.

Скорее всего не проканает! Преподы за такой алгоритм буксуют из-за не оптимальности и лишнем расходе ресурса!

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

)))) Shang-i, не бузи, сё правильно. ти читай про факториалы

[Shang-i]

)))) Shang-i, не бузи, сё правильно. ти читай про факториалы

С каких пор 1/n! стало равно 1+1/1+1/2+...+1/n????

Добавлено через 1 минуту
Лично я всегда считал, что n!=n*(n-1)*(n-2)*...*1,
вы уж извините, не силен я в математике

[InternetStranger]

Ой, да совсем не прогер. У меня в цикле в переменной r сохраняется значение! Внимательно код смотри:

for i:=1 to n do begin
r:= r*x/i;
s:= s+ r;
end;

предыдущий член r, при каждой i-й итерации домножается на x/i.

вначале был r=1.

i=1 => r:= 1*x/1= x/1!;
i=2 => r:= r*x/2 = x^2/(1*2) = x^2/2!;
i=3 => r:= r*x/3 = x^3/(1*2*3) = x^3/3!;
.....
i=n => r:= r*x/n = x^n/(1*...*n) = x^n/n!

Посмотри мой первый пост в этой теме и найди десять отличий.

Если не веришь, перепиши аккуратно на листочек и посчитай! В подобных задачах основная задача, как из предыдущего члена получить последующий!

[Shang-i]

Тьфу ты, да я не про твою версию вообще говорю, я про последнюю, которая перед моей

[InternetStranger]

Ну та, точно. Я про ту вопче молчу - там кабанство какое-то)))

[Ghostep]

зайдите в профайл к автору:

Последняя активность: 06.06.2007 13:05

так что хз

[Ferrari]

Сообщение от Макс

Вычислить сумму
1+x1/1! +x2/2! +x3/3! +… +xn! , где k!=1* 2*3* ... *k
Значение n вводится с клавиатуры (1 < n 10).

мне на первом курсе на экзамене попалась поищу, помню что там функцию писать надо рекурсивную с сумматором

Добавлено через 1 минуту
Я делала через функцию, после писала faktorial(a), где а-значение, затем формула с использованием функции, найду напишу

[mADviser]

Вот текст
var
n,i:integer;
x,sum:real;
begin
readln(n);
readln(x);
p:=1;
f:=1;
sum:=1;
for i:=1 to n do begin
p:=p*x;
f:=f*i;
sum:=sum+p/f;
end;
writeln(sum:5:4);
end;

p.s. Давно не програмлю на Паскале и такое чувство что автору поста это уже не нужно))