то екран буде мати колір фону. Процедура виконується в тому вікні, в якому вона викликана. Наприклад, у випадку
Window (1,1,60,20);
Clrscr;
Буде очищено прямокутник 60 * 20, що починається в (1,1).
Наступні задіяні усіма створюваними модулями процедури: Write (), Writeln (), Read (), Readln () стандартного модуля System [5]. Оголошення цього модуля утилітою Uses не обов'язково, він автоматично підключається програмними засобами Pascal. Перераховані оператори є операторами введення, виведення. Залучення цих процедур відкриває можливість багаторазового використання однієї і тієї ж програми для обчислення з різними вихідними даними [2].
При виконанні оператора введення Read () змінним присвоюються значення вихідних даних [2].
Процедура Readln () виконує процедуру Read (), після чого переходить на наступний рядок. Readln () без параметрів здійснює перехід на початок наступного рядка без попереднього зчитування [2].
За допомогою процедур виведення Write () будується послідовність значень, яка є результатом виконання програми. Параметр, укладений в круглі дужки може містити вказівки ширини поля та кількості десяткових знаків. Вирази виведення можуть бути наступних типів: char, integer, real, string, packet string або boolean. Процедура виведення, таким чином, дозволяє виділити з усього набору обчислених значень ті, які служать відповіддю до решавшейся при виконанні програмою завданню [2].
Процедура Writeln () виконує процедуру Write (), а потім здійснює перехід в початок наступного рядка. Процедури введення і виведення часто застосовують разом. Наприклад, для введення трьох чисел і виведення їх суми
Read (a, b, c);
х:=a + b + c;
Write (x);
Останньою спільною для всіх модулів функцією є функція ReadKey, яка зчитує символ з клавіатури [5]. Вона описана в стандартному модулі Crt. Повертається тип даних - тип char. Функція ReadKey приймає значення зчитуваного символу, при цьому символ не виводиться на екран. Якщо до звернення до ReadKey значення KeyPressed було одно True, то зчитування відбувається негайно. В іншому випадку програма очікує введення з клавіатури. Для зчитування коду, відповідного спеціальним клавішах, до функції ReadKey необхідно звернутися два рази. (Під спеціальними, маються на увазі функціональні клавіші, клавіші управління курсором, клавіші, натиснуті одночасно з Alt і т.д.). Перший раз функція ReadKey приймає значення # 0, а вдруге - значення розширеного коду, відповідного даної спеціальної клавіші. Значення # 0 не може бути привласнене ReadKey ніяким іншим способом. Тому якщо ReadKey=# 0, то таке значення ReadKey обов'язково має трактуватися як розширений код. Не дивлячись на те, що застосування функції дуже широко, проте найчастіше вона використовується для затримки програми при налагодженні. Приклад застосування функції
Ch:=ReadKey - повертає лічений символ.
І, нарешті, остання, стандартна функція, використовувана тільки в модулі myiter1. Це функція Abs () - повертає абсолютне значення аргументу. Вона входить до складу стандартного модуля System. Повертається тип даних той же, що і у аргументу (real, integer) .Abs (x) - повертає абсолютне значення х [2].
. Опис нестандартних функцій
Програма MAIN використовує нестандартні модулі (modpoldel, modmettrap, modeyler), які в свою чергу містять не стандартні процедури та функції, виконання яких призводить до виконання програми. Тому опис нестандартних процедур і функцій, по суті, зводиться до опису процедур і функцій, що містяться в вище перерахованих модулях.
. 1 Методу половинного ділення об'єкт Tpoldel
Процедура poldel містить п'ять внутрішніх змінних типу real, три з них мають первинне значення, також цей об'єкт використовує внутрішню функцію F () для розрахунку значення функції в точці. Змінної з присвоюється значення, чисельно рівне підлозі сумі змінних а і b . Використовуючи умовний оператор if-then ми перевіряємо умову: значення функції F () в точці a , помножене на значення функції F () в точці c- менше або дорівнює нулю. Якщо умова виконується, використовуючи стандартний модуль присвоєння, ми точці b присвоюємо значення точки c , інакше точці а присвоюється значення точки з . Цикл Repeat-Until дозволяє нам домогтися потрібної точності відповіді, так якщо умова помилкова - тіло циклу виконується...
