Rambler's Top100

Скачать программы    Все программы автора

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

Вверх

Белорусский рейтинг MyMinsk.com Сайты беларуси Регистр "ЗУБР" Каталог на TIGA.BY, а также  новости, работа, объявления, фото и многое другое Rambler's Top100 Белорусский каталог программ Faststart - рейтинг сайтов, каталог интернет ресурсов, счетчик посещаемос­ти Яндекс.Метрика
Hosted by uCoz