3.5. Структура программы

Program NAME;

{ Заголовок программы - не обязательный оператор }

{ NAME - имя программы }

{ Раздел описания }

{$N+}

{Режим компиляции для расчетов с подключением сопроцессора}

Uses CRT, DOS, GRAPH;

{ Подключение библиотек CRT, DOS, GRAPH }

Label L1, L2, L3;

{ Список используемых в программе меток L1, L2, L3 }

Const C=10;

{Задание значений констант, используемых в программе }

B=0. 15; Y=True;

{С- целое число, В- вещественное число }

F='Фамилия';

{ Y- Логическая константа, F- Символьная строка }

Type M= array[1. . 100] of integer;

{Описание типов введенных программистом }

Var

{ Описание переменных }

m1, m2: M;

{ m1, m2 - массивы целых чисел (типа М) }

a1: array [ 1. . 100 ] of real;

{ а1 - массив вещественных чисел }

ch: array [ 1. . 200 ] of char;

{ ch - массив символов}

ch1, ch2: char;

{ ch1, ch2 - символьные переменные }

s: string[79];

{ s - строка до 79 символов }

a, d, x: real;

{ a, d, x - вещественные переменные }

yes, no: boolean;

{ yes, no - переменные логического типа }

f1, f2: text;

{ переменные для описания текстовых файлов}

Procedure NAME_1(Parm1:Real; Var Parm2:Real);

{ Заголовок процедуры }

{ NME_1 - имя процедуры, Parm1, Parm2 - параметры }

{ Раздел описания }

BEGIN

{ Раздел выполнения }

END;

{ Раздел описания }

Function FUN_1(Parm3, Parm4: Real): Real;

{ Заголовок функции }

{ FUN_1 - имя функции, Parm3, Parm4 - параметры }

{ Раздел описания }

BEGIN

{ Раздел выполнения }

END;

{ $I File_1. pas }

{Подключение файла File_1. pas с дополнительными функциями и процедурами }

BEGIN

{ Начало выполнения программы}

{ Раздел выполнения }

END.

{ Конец выполнения программы }