pan align="justify"> Мова програмування Паскаль О.Н. Перміков - М.: Радіо, 1989 - 245с.
. Обчислення. Алгорітмізація. Програмування М.П. Лапчик - М.: Освіта, 1988 - 321с
Додаток А
В
В
Додаток Б
program If1; Ім'я програми
uses crt; Модулі
type baza = recordСозданіе структури даних.
naz: string [10]; Строкова мінлива обмежена 10 символами
pr: string [20]; Строкова мінлива обмежена 20 символами
vooz: integer; Цілісна змінна.
yea: integer; Цілісна змінна.
kv: integer; Цілісна змінна.
pay: real; Речова мінлива
END;
VarЗадаем глобальні змінні
a: array [1 .. 101] of baza; e, i, j, r, vi, fd, zame: byte; y, fi, fi2: integer;
t, l: boolean; p, n: char; z: real; f: file of baza; b: text;, ft, fin, zam, st: string;, g1, k1: byte; n1: char; f1, a1: boolean;
ofr (x1, y1, x2, y2, cor: byte); Створюємо процедуру з передавали
параметрами
begin
window (x1, y1, x2, y2); Створюємо вікно із заданими параметрами.
textbackground (cor); Задаємо фон.
clrscr; Зафарбовуємо фон
end;
procedure osn; Створюємо процедуру, яка зафарбовує екран
begin Потрібна для більш швидкої розробки програми та зменшення
кількості помилок
ofr (1,2,80,25,1);;
er (sss: string); Процедура виведення помилок
begin
writeln (sss); Передаємо параметр процедури
sound (500); Виводимо звук частотою 500 Гц
delay (20000); Робимо затримку
nosound; Вимикаємо звук
readkey; Затримка після натискання клавіші
end;
procedure vod; Процедура введення даних
var Створюємо локальні змінні
s: string; raz: byte; proi: integer; prob, prov: boolean;
begin
t: = true; Привласнюємо булевої змінної значення В«ІстинаВ»
while t = true do Створюємо цикл з передумовою
begin
prob: = false; Привласнюємо булевої змінної значенні В«БрехняВ»
ClrScr; Очищаємо екран
...
