Developing.ru

Люди плиз помогите решить задачку, очень надо!

По заданной формуле (K+1)/K*sqrt(K*K*K+2) члена ряда с номером K составить прогу вычисления всех членов ряда не меньших заданного числа E

Тут надо сначала анализ функции сделать, как она себя ведет на разных промежутках. Это еще в 10-ом классе делают. Судя по формуле промежутков где-то три, причем К<>0, К > Корня_Кубического(2) ну и т.д. в том же духе. Получив ООФ несложно проверить в каких диапазонах функция больше Е.

Все, уже разобрались. Все равно спасибо!
program pr;
var res:real;
K,e:integer;
begin

readln(e);
K:=1;
res:=(K+1)/(K*sqrt(K*K*K+2));
while res>=e do
begin
writeln(K,': ',res:0:4);
inc(K);
res:=(K+1)/(K*sqrt(K*K*K+2));
end;
readln;
end.

Можно и так, но такой подход - методом перебора, все-таки неправильный. При сложных формулах никогда не знаешь когда получишь деление на 0 или переполнение результата. В этой формуле например при К = 1300 скорее всего будет переполнение