Циклы с известным числом повторений Опции

[Kelsi]

Нужно вычислить y при x=1.5
y=x^6/1!+x^5/2!+x^4/3!+...+x/6!
Короче, прог-у я написала, но она высчитывает не то, что мне хотелось бы.
Уже мучаюсь непойми сколько, все гениальные идеи давно иссякли. Можа гляните, что нетак и чего не хватает?

Код

Program N;
Var n,i: integer;
y,x: real:
Begin
Writeln ('wwod n');
readln (n);
x:=1.5;
y:=0;
for i:=1 to n do begin
y:=y+exp(i*ln(x))/n;
n:=n*(n+1);
end;
writeln('y=',y);
end.

В первую очередь - не хватает тегов CODE

Сообщение отредактировано: volvo - 9.04.2005 16:08

[Kelsi]

И так по порядку:
FreeMan, вроде все работает, но я не уверена так ли, т. к. при n=2 должно получится 3, а получается 3.75. такое допустимо?
Volvo, я не знаю, что такое divider Мы енто не проходили, а потому я не могу им воспользоваться...
А в общем, спасибо ребята за понимание. Молодцы, что помогаете людям :thanks: