даны y,e. Вычислить с точностью до е
http://fotki.yandex.ru/users/garagag/view/140760/ вот текст. было бы замечательно, если бы еще и с блок схемой, ибоя ну не понимаю я эту задачу совсем.

(IMG:http://s008.radikal.ru/i305/1010/71/1414719bd06b.jpg)

И чего тут сложного? суммировать пока член ряда не станет меньше или равен 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;
...

спасибо

(IMG:style_emoticons/default/blink.gif) Пожалуйста! (IMG:style_emoticons/default/smile.gif)

(IMG:style_emoticons/default/smile.gif)