(Итерационные циклы.) Загвоздка(

[Mr0max]

Ребят помогите. Исправьте прогу. кол-во итераций получается минус(
Я просто только начинаю изучать.


program ANDR_LABA4;
uses crt;
label 1,2,3;
var
z,x,x1,q,E:real;
Zn,k,kk:integer;
f:longint;
begin
clrscr;
Zn:=-1;k:=0;f:=-1;x1:=1;
1:write('Введите х<>0:');
readln(x);
if x=0 then goto 1;
3:write('Введите точность Е (в промежутке 0-1):');
readln(E);
if (E<=0)or(E>=1) then goto 3;
repeat
q:=Zn*x1/(f+(4*k+1));
z:=z+q;
K:=k=1;
f:=f*(2*k);
x1:=x1*x;
Zn:=-Zn;
until abs (q)<E;kk:=k-1;
writeln ('Промежуточный результат -',q:8:8);
writeln ('кол-во итераций'-,kk:1);
write ('результат-',z:5:5);
readkey;
end.

[Mr0max]

K:=k=1;
K:=k+1;

[Mr0max]

K:=k=1;
K:=k+1;

[kitty19]

Удивительно как она у вас вообще что то выдает. В этой строке -

q:=Zn*x1/(f+(4*k+1))

деление на 0.

[Mr0max]

спасибо а дальше?

[kitty19]

А что дальше? Вы эту ошибку в каком месте исправили, f поменяли или формулу? Надо знать на чем проверить.