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