Основы алгоритмизации и программирования. Часть четвертая. Файловая система Turbo Pascal. Асламова В.С - 33 стр.

UptoLike

ВУЗ: 

АГТА | Ангарск

Составители: 

Рубрика: 

65
SuperVGA 640x480x256
SuperVGA 800x600x256
SuperVGA 1024x768x256 }
Программа (*)
uses Graph, SVGA256;
var I, Driver, Mode: integer;
S, SDr, Sm: String;
begin
for I:=0 to 4 do
begin
Driver := Detect;
GMode :=I;
InitGraph (Driver, Mode,
′ ′);
if GraphResult = 0
then
begin
SetColor (64);
Str (Driver, SDr);
Str (I, SM);
S:=
′Driver: ′+ SDr +′Mode: ′ + Sm;
SetTextJustify (CenterText, CenterText);
SetTextStyle (1, 0, 1);
OutTextXY(GetMaxX div 2, GetMaxY div 2, S);
SetTextStyle (0, 0, 1);
OutTextXY(150, 90, S);
SetLineStyle (SolidLn, 0, ThickWidth);
Rectangle (2, 2, GetMaxX-2, GetMaxY-2);
end;
readln;
CloseGraph;
end;
end.
66
Этапы разработки модуля
Модуль – это вспомогательный объект, поэтому его нельзя запустить
на выполнение командой Run (Ctrl+F9). Он может только участвовать в по-
строении программ, подпрограмм или других модулей. Но в отличии от
фрагментов, подключаемых к программе при компиляции директивой {$I
имя файла}, модули предварительно компилируются независимо от исполь-
зующей их программы.
Процесс разработки модулей имеет два этапа.
На первом этапе необхо-
димо в отдельном файле набрать текст модуля. Конечно, удобнее это
выполнять в интегрированной среде Турбо Паскаль. Имя этого файла должно
совпадать с первыми восьмью символами имени модуля и иметь расширение
.PAS. Файлы с модулем и программой должны находиться в одной и той же
директории.
Каждый модуль необходимо
поместить в специальную библиотеку,
она называется TPU(Turbo Pascal Unit). Для размещения модуля в библиотеке
TPU программу следует откомпилировать командой make (F9) меню Compile
главного меню или командой Build можно также запустить её на выполнение
командой run (Ctrl + F9). После этого в текущей директории будет создан
файл (модуль) с прежним названием, но с расширением .tpu. Этот файл будет
помещён в каталог, путь к
которому указан в поле ввода EXE&TPU directo-
ries, открывающейся после выбора одноимённого пункта меню Options
главного меню. Если поле ввода EXE&TPU directory не заполнено, то файл
помещается в текущий каталог. Файл (модуль) с расширением .pas после это-
го, в принципе, можно уничтожить, для работы программы он не нужен, но
делать это настоятельно не рекомендуется, поскольку этот файл
может ещё
понадобится для последующей модернизации модуля, а также для уточнения
его содержимого. Дело в том, что содержимое файла модуля с расширением
.tpu представлено не в символах ASCII, как содержимое файлов с расшире-
нием .pas, а в машинном коде, поэтому его невозможно изучать и
редактировать. 
SuperVGA      640x480x256
SuperVGA      800x600x256
SuperVGA      1024x768x256 }

       Программа (*)                                                             Этапы разработки модуля
       uses Graph, SVGA256;
       var I, Driver, Mode: integer;                               Модуль – это вспомогательный объект, поэтому его нельзя запустить
              S, SDr, Sm: String;                           на выполнение командой Run (Ctrl+F9). Он может только участвовать в по-
       begin                                                строении программ, подпрограмм или других модулей. Но в отличии от
         for I:=0 to 4 do                                   фрагментов, подключаемых к программе при компиляции директивой {$I
          begin                                             имя файла}, модули предварительно компилируются независимо от исполь-
           Driver := Detect;                                зующей их программы.
           GMode :=I;                                              Процесс разработки модулей имеет два этапа. На первом этапе необхо-
          InitGraph (Driver, Mode, ′ ′);                    димо в отдельном файле набрать текст модуля. Конечно, удобнее это
          if GraphResult = 0                                выполнять в интегрированной среде Турбо Паскаль. Имя этого файла должно
            then                                            совпадать с первыми восьмью символами имени модуля и иметь расширение
             begin                                          .PAS. Файлы с модулем и программой должны находиться в одной и той же
              SetColor (64);                                директории.
              Str (Driver, SDr);                                   Каждый модуль необходимо поместить в специальную библиотеку,
              Str (I, SM);                                  она называется TPU(Turbo Pascal Unit). Для размещения модуля в библиотеке
              S:=′Driver: ′+ SDr +′Mode: ′ + Sm;            TPU программу следует откомпилировать командой make (F9) меню Compile
              SetTextJustify (CenterText, CenterText);      главного меню или командой Build можно также запустить её на выполнение
              SetTextStyle (1, 0, 1);                       командой run (Ctrl + F9). После этого в текущей директории будет создан
              OutTextXY(GetMaxX div 2, GetMaxY div 2, S);   файл (модуль) с прежним названием, но с расширением .tpu. Этот файл будет
              SetTextStyle (0, 0, 1);                       помещён в каталог, путь к которому указан в поле ввода EXE&TPU directo-
              OutTextXY(150, 90, S);                        ries, открывающейся после выбора одноимённого пункта меню Options
              SetLineStyle (SolidLn, 0, ThickWidth);        главного меню. Если поле ввода EXE&TPU directory не заполнено, то файл
              Rectangle (2, 2, GetMaxX-2, GetMaxY-2);       помещается в текущий каталог. Файл (модуль) с расширением .pas после это-
             end;                                           го, в принципе, можно уничтожить, для работы программы он не нужен, но
         readln;                                            делать это настоятельно не рекомендуется, поскольку этот файл может ещё
         CloseGraph;                                        понадобится для последующей модернизации модуля, а также для уточнения
        end;                                                его содержимого. Дело в том, что содержимое файла модуля с расширением
       end.                                                 .tpu представлено не в символах ASCII, как содержимое файлов с расшире-
                                                            нием .pas, а в машинном коде, поэтому его невозможно изучать и
                                                            редактировать.



                                 65                                                            66

Страницы