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

[Mr0max]

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

[Mr0max]

вот в лечшем качестве
http://www.cyberforum.ru/turbo-pascal/thread273041.html

[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]

Сложно помоч? Накой черт этот форум?

[artem611]

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

Сложно помоч? Накой черт этот форум?

ща все будет)

[phomm]

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

K:=k=1;

как у вас это скомпилировалось )) ?
должно быть k := k+1;