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

Структура программы на языке Турбо-Паскаль имеет вид:

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.{ Конец выполнения программы }