Считать до тех пор, пока подкоренное выражение больше 0. Определить k - количество вычисленных F. Циклы.

[KatruKot]

42. Дано: q =3; dq=-0.2. F вычислять по формуле: f:=(sqrt(1+0.5*dq)-(1/(dq+1))); Считать до тех пор, пока подкоренное выражение больше 0. Определить k - количество вычисленных F.
Вывести на экран q, F, k. Помогите, пожалуйста....

var q,dq,f,r,t: double;
k:real;
begin
 q:=3;
 dq:=-0.2;
 k:=0;
 t:=(1+0.5*q);
 while t>0 do
 begin
    q:=dq+q;
    f:=(sqrt(1+0.5*dq)-(1/(dq+1)));
    writeln('',f:0:6);
    writeln(f:0:0);
    if f>0 then  k:=k+1;

end;
readln;
writeln('Quantity of numbers ',k:0:6);
end.

[Valio]

У тебя цикл никогда не завершится ибо t в теле цикла не меняется.

Надо это:

t:=(1+0.5*q);

внести в тело цикла. У тебя там и строка пустая как раз для этого сама собой нарисовалась )

    writeln(f:0:0);
    if f>0 then  k:=k+1;

end;

[KatruKot]

точно, Вы правы Спасибо=)