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

Мета роботи. Закріпити практичні навички роботи із системою Borland Pascal, навчитися правильно використовувати різні оператори циклів; навчитися складати програми рішення задач з використання циклічних структур.

Алгоритм називається циклічним, якщо він містить багаторазове виконання тих самих операторів при різних значеннях проміжних даних. Число повторень цих операторів може бути задане в явній (цикл із відомим заздалегідь числом повторень) чи неявної (цикл із невідомим заздалегідь числом повторень) формі.

Перед виконанням роботи необхідно вивчити різні схеми організації циклів і оператори FOR, WHILE, REPEAT.

Приклад. Знайти суму ряду з точність до e.

Запишемо програму мовою Паскаль.

Program example3;

var k,a,n:integer; s,e,f,x:real;

begin

write('Уведіть точність обчислення e=');

readln(e);

write('Уведіть змінну ряду |x|<1, |x|=');

readln(x);

s:=0; k:=0; n:=1;

repeat

if k=0 then f:=x else

for a:=1 to k do

begin

n:=n*a;

if x<0 then f:=-exp((2*k+1)*ln(abs(x)))/n*(2*k+1)

else f:=exp((2*k+1)*ln(abs(x)))/n*(2*k+1);

s:=s+f;

end;

k:=k+1;

until abs(f)<e;

writeln;

writeln('сума ряду s=',s:11:9, '':10,'кількість ітерацій k=',k);

readkey;

end.