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

Блок-схема.

Программа на Turbo Pascal
{*********************************************}< br>(програма: Lab_9)
(мету: виведення графіка функції)
(змінні: x0, xn-початкове і кінцеве значення)
(hx-крок)
(q-шукане значення виразу)
(i-параметр циклу)
(z-шукане значення)
(x, a-змінні)
(метод рішення: обчислень за формулами)
(підпрограми: відсутні)
(програмист: студент гр. 316 Позднишев А.А. )
(перевірив: Новачків В.С. )
(дата: 20.04.2004г. )
{*********************************************}program lab_9; const p = ''; s ='***********************'; t = ''; var x0, x, xn, hx , q, z: real; i, a: integer; begin writeln ( 'введіть x0, hx, xn'); readln (x0, hx, xn); writeln ( 'значення x * значення z'); writeln (t, s); for a: = 1 to 3 do begin x: = x0; repeat q: = exp (-a * sin (x) * ln (exp (1))); writeln (t ,'^', p, x: 4:2 ,'^', p, z: 4:1, p ,'^'); x: = x + hx; z: = z + q; until x> xn; end; writeln (t, s); for i: = 1 to 5 do begin writeln (t: abs (i-6), abs (i-6): i); end; end.
-----------------------p = ''; s ='*******'; t = '';

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

Висновок t: abs (i-6 ), abs (i-6): i

q: = exp (-a * sin (x) * ln (exp (1 )));

x: = x + hx; z: = z + q;

i = 1 (1) 5

x> xn

Кінець

Висновок t, p, x, z

початок

x: = x0;