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

[vihlyaev]

Помогите, пожалуйста, очень нужно решить задачу. qBasic
Даны действительные числа x,E(0<x<=1, E>0) . Вычислить с точностью E:
Сумма от k=0 до бесконечности
(-1)^k*x^(4k+1)/(2k)!*(4k+1)
Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем E, - это и все последующие слагаемые можно уже не учитывать.

[Serebro]

Сообщение от vihlyaev

Помогите, пожалуйста, очень нужно решить задачу. qBasic
Даны действительные числа x,E(0<x<=1, E>0) . Вычислить с точностью E:
Сумма от k=0 до бесконечности
(-1)^k*x^(4k+1)/(2k)!*(4k+1)
Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем E, - это и все последующие слагаемые можно уже не учитывать.

...
DO WHILE (...<E)
  SUMMA=SUMMA+...
LOOP
...