даны y,e. Вычислить с точностью до е
http://fotki.yandex.ru/users/garagag/view/140760/ вот текст. было бы замечательно, если бы еще и с блок схемой, ибоя ну не понимаю я эту задачу совсем.
http://www.radikal.ru
http://www.prepody.ru/ipb.html?act=boardrules
И чего тут сложного? суммировать пока член ряда не станет меньше или равен e.
Реалистичнее, мм, это последняя задачка которую осталось сдать и информатика заканчивается, специальность у меня с ней совершенно не связана, дела много, и париться я особо не хочу...
Суммировать пока член не станет меньше или равен е, я догадался, только не получается задачка и все тут..
Пишите,что конкретно у Вас не получается,какие ошибки выдаёт при запуске.
...
repeat read(y) until y<>0;
z:=0;
k:=1;
m:=y;
while abs(1/(k*m)>=e do
begin
z:=z+1/(k*m);
k:=k+2;
m:=m*sqr(y)
end;
...
спасибо
Пожалуйста!
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)