Практическое задание N 1. 1

1) Создайте три файла с именами f1. pas, f2. pas, File_1. pas.

Запишите в первый файл структуру программы, приведенную ниже.

Скопируйте текст файла f1. pas в окно с файлом f2. pas. В файле f2. pas исключите разделы с процедурами и функциями.

В файл File_1. pas скопируйте разделы с процедурами и функциями из файла f1. pas. В файле f1. pas уберите подключение файла File_1. pas.

Откомпилируйте файлы f1. pas и f2. pas.

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

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

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