Теперь рассмотрим совсем другие файлы – те, в которых вы храните свою программу. Предположим, вы с другом решили создать программу из 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
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.