Лабораторная работа: Проектування ітераційних алгоритмів

xn:=1; {prysvoyemo znachenia zminnyh}

n:=0;

s:=0;

repeat {r}

an:=xn*sqr(n+1); s:=s+an;

xn:=xn*x;

n:=n+1;

until (abs(an)<eps) or (n>kk); {r}

if (n>kk) then writeln('perevyscheno limit kilkosti krokiv'); {yaksho cykl zakin iteraciyamy}

writeln('resultat:');

writeln(' kilkist krokiv iteratsii:',n);

writeln(' nablyzhene znachennia funktsii:',s);

f:=(1+x)/((1-x)*(1-x)*(1-x)); {tochne znachenia}

writeln(' tochne znachennia funktsii:',f);

writeln(' |f|-|s|=',abs(f)-abs(s)); {pohybka mizh tochnym ta nabl}

end;

readkey;

end.

Приклади роботи програми:

Висновок

У цій роботі ми навчилися розробляти ітераційні алгоритми, будувати їх блок-схеми та програмувати засобами мови TurboPascal з використанням циклів. Ітерації корисні для обчислення приблизних значень деяких величин чи функцій.