/>
Глава II. Розробка програми
2.1 Автоматизація методу
Програма на Pascal складається з окремих розділів або блоків, які повинні розташовуватися в наступному порядку:
заголовок програми;
розділ оголошення змінних;
розділ оголошення процедур і функцій;
тіло програми.
Тема програми складається з зарезервованого слова PROGRAM і імені програми: PROGRAM MetodIteraccii;
Розділ оголошення змінних починається службовим словом VAR: VAR
x0, x1, e, a, b: real;, k: integer;
де:
x0 і x1 - результативні змінні;
e - точність обчислень;
a і b - коефіцієнти заданої функції;
k - номер заданої функції.
Оголошення функції складається з:
ключового слова FUNCTION, імені функції, списку формальних параметрів і типу значення, що повертається:
розділу оголошення локальних змінних або констант, якщо він вимагається;
тіла функції, укладеного в операторні дужки BEGIN END.
У функції поміщаються формули, за якими будуть обчислюватися наближене значення. У своїй програмі я використовувала формули, що містять стандартні функції: ln (x), cos (x) і sin (x):
function f (x: real; a, b: real): real;:=a * ln (x) + b;; c (x: real; a, b: real ): real;:=a * cos (x) + b;; s (x: real; a, b: real): real;:=a * sin (x) + b;;
Тіло програми починається словом BEGIN і містить різні команди:
Write (Writeln) - команда виведення тексту на екран;
Read (Readln) - запит даних;
If ... then - коротка форма умовного оператора;
Repeat ... until - оператор циклу з постусловіем;
Abs (x) - абсолютна величина (модуль).
Отже, визначаємо задану функцію, наближене значення X і точність обчислення:
BEGIN ('1) x=a * ln (x) + b 2) x=a * cos (x) + b 3) x=a * sin (x) + b
Виберете функцію: ');
Readln (k);
Write («Введіть a =»); (a); («Введіть b =»); (b); rite («Введіть наближене значення X =» ;); (x1); («Введіть точність e =»);
Readln (e);
Для підрахунку кількості проведених ітерацій потрібно обнулити змінну i, яка задані в розділі змінних, і організувати цикл, який буде проводити ітерації і забезпечувати їх підрахунок:
i:=0;:=i +1;:=x1; k=1 then x1:=f (x0, a, b); k=2 then x1:=c (x0, a, b); k=3 then x1:=s (x0, a, b); (abs (x1-x0) <= e);
Висновок результатів на екран:
Writeln («Рішення рівняння:»); («Обчислення значення кореня ...», x1: 6:5);
Writeln («Число ітерацій ..............», i);
