Скачать программы Все программы автора1. 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. { Конец выполнения программы } |