Мета роботи: Отримання навичок реалізації циклічних алгоритмів зневідомим числом повторень циклу, операторів циклу з передумовою іпостусловіем і ітераційних циклічних алгоритмів.
Завдання № 17. Обчислити функцію при заданих значеннях аргументу

Блок-схема.

Программа на Turbo Pascal
{************************************************* *****}< br> (Програма: lab8, Лаб. раб.8, Вар. 17

)
(Мета: Обчислення подвійної суми

)
(Опис параметрів і перемненних:
)
(c, q-проміжні значення

)
(X, a-аргументи функції

)
(S-сума

)
(N, K-мінлива підсумовування

)
(x = x0 (xh) xn

)
(Необхідні підпрограми: немає

)
(Програміст: Позднишев AA , Гр. 316

)
(Перевірив: Новачків BC, каф. ВПМ

)
(Дата написання: 10 квітня 2004

)
{***************** **************************************}< br> Program lab8; var a, x, x0, hx, xn, c, q, s: real; k, n: byte; begin (CS) write ( 'x0 ='); read (x0); write ( 'hx ='); read (hx); write ( 'xn ='); read (xn); writeln ( 'x0 =', x0, 'hx =', hx, 'xn =', xn); x: = x0; s: = 0; repeat for k : = 1 to 5 do for n: = 1 to 10 do if k> = n then a: = 1 else a: = 0.1; begin s: = s + exp ((k/n) * ln (a * x) ); end; writeln ( 'x =', x, 'S =', s); x: = x + hx; until x> xn end. (CS)
-----------------------x: = x0; s: = 0;

Введення x0, hx, xn

f: = f + exp (n * ln (a * b));a: = a + hx;

n = 1 (1) 6

Кінець

Висновок f

початок

n = 1 (1) 6