Вставка в программу фрагментов из других программных файлов

  • docx
  • 06.05.2020
Публикация на сайте для учителей

Публикация педагогических разработок

Бесплатное участие. Свидетельство автора сразу.
Мгновенные 10 документов в портфолио.

0.1. Вставка в программу фрагментов из других программных файлов
Иконка файла материала 100.docx

0.1. Вставка в программу фрагментов из других программных файлов

Теперь рассмотрим совсем другие файлы – те, в которых вы храните свою программу. Предположим, вы с другом решили создать программу из 7 процедур. Вы делаете 3 процедуры и тело программы, а ваш друг - 4 процедуры. Друг записал все 4 процедуры в файл VSTAVKA.pas на вашем компьютере. Вот он:

PROCEDURE fa ; BEGIN Sound(698); Delay(300); NoSound  END;

PROCEDURE sol; BEGIN Sound(784); Delay(300); NoSound  END;

PROCEDURE la ;  BEGIN Sound(880); Delay(300); NoSound  END;

PROCEDURE si ;  BEGIN Sound(988); Delay(300); NoSound  END;

Конечно, файл вашего друга не является законченной программой и сам по себе не запускается.

А вот ваша программа:

USES CRT;

PROCEDURE doo;    BEGIN Sound(523); Delay(300); NoSound  END;

PROCEDURE re ;      BEGIN Sound(587); Delay(300); NoSound  END;

PROCEDURE mi ;     BEGIN Sound(659); Delay(300); NoSound  END;

begin

     doo;re;mi;fa;sol;la;si;la;sol;fa;mi;re;doo

end.

Теперь вам нужно собрать оба куска в единую программу. Для этого вы можете скопировать текст из файла вашего друга в свой файл (как это делается, расказано в части IV). Но если вы не хотите этого делать, чтобы, скажем, не увеличивать свой файл, вы можете воспользоваться директивой компилятора $I. Директива компилятора - это специальная инструкция, вставленная в текст вашей программы на Паскале и предназначенная для управления компьютером на этапе компиляции вашей программы. Директива компиляции имеет вид {$....} и Паскаль не путает ее с обычным комментарием только из-за наличия значка доллара. Символы, стоящие после значка доллара, и являются управляющей информацией для компилятора. Директива {$I  c:\PASC\F25} является приказом компилятору подставить в это место текст, находящийся в файле F25 из каталога PASC диска c. Если файл находится в текущем каталоге, то достаточно указать его имя. Вот ваша готовая к работе программа с директивой:

USES CRT;

PROCEDURE doo;    BEGIN Sound(523); Delay(300); NoSound  END;

PROCEDURE re ;      BEGIN Sound(587); Delay(300); NoSound  END;

PROCEDURE mi ;      BEGIN Sound(659); Delay(300); NoSound  END;

 

     {$I VSTAVKA}  {Директива компилятору на вставку текста из файла VSTAVKA}

 

begin

     doo;re;mi;fa;sol;la;si;la;sol;fa;mi;re;doo

end.


 

Скачано с www.znanio.ru