Помощь - Поиск - Пользователи - Календарь
Полная версия: Циклы с известным числом повторений
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Kelsi
9.04.2005 16:07
Нужно вычислить 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
FreeMan
9.04.2005 16:11
Цитата
for i:=1 to n do begin
y:=y+exp(i*ln(x))/n;
n:=n*(n+1);
end;

сделай так
Код

m:=1
for i:=1 to n do begin
m:=m*i;
y:=y+exp((n-i+1)*ln(x))/m;
end;
volvo
9.04.2005 16:12
Код
Program _N_; { <--- Название программы
не должно совпадать с именами переменных или констант }
const
 n = 6; { <--- Зачем же его вводить? }
Var
 i, divider: integer;
 y,x: real:
Begin
 write('Ввод Х'); readln(X);
 y:=0; divider := 1; { <--- а вот Divider нужен ... }
 for i:=1 to n do begin
   y:=y+exp(i*ln(x))/divider;
   divider := divider * (i+1);
 end;
writeln('y=',y);
end.


FreeMan,
:yes:
Kelsi
9.04.2005 16:15
Попробую, но если что-я еще вернусь... rolleyes.gif
Kelsi
9.04.2005 16:50
И так по порядку:
FreeMan, вроде все работает, но я не уверена так ли, т. к. при n=2 должно получится 3, а получается 3.75. такое допустимо?
Volvo, я не знаю, что такое divider sad.gif Мы енто не проходили, а потому я не могу им воспользоваться...
А в общем, спасибо ребята за понимание. Молодцы, что помогаете людям :thanks:
volvo
9.04.2005 17:14
Цитата(Kelsi @ 9.04.05 12:50)
Volvo, я не знаю, что такое divider  sad.gif  Мы енто не проходили, а потому я не могу им воспользоваться...

Это просто имя переменной smile.gif точно такое же, как и X и Y и N... У тебя просто не совсем правильно было сделано, я немного подправил, и заодно ввел новую переменную с именем Divider (т.е. Делитель)... Не нравится Divider, можешь поменять на M как у FreeMan'а ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.