OutText | Вывод текста |
OutTextXY | Вывод текста |
Итак, для запуска графической системы нам необходимо:
1. Подключить модуль GRAPH – библиотеку графических процедур:
Uses Graph;
2. Установить графический режим с помощью двух переменных:
Var
GraphDriver, GraphMode: integer;
Begin
GraphDriver:=detect;
InitGraph(GraphDriver, GraphMode, '..\BGI');
{ С этого момента все графические средства доступны пользователю }
{ тело программы }
CloseGraph;
End.
Задание. Наберите шаблон для программы, работающей в графическом режиме. Нам он понадобиться в дальнейшем.
Внимание! Прежде чем запустить программу на выполнение, необходимо на компьютере установить маршрут поиска файлов каталога BGI. Для этого выполните следующее:
F10 – Options – Directories
В окне EXE&TPU directory набрать ..\BGI
Клавишей TAB перейти к окну Unit directories и набрать ..\BGI
Клавишей TAB перейти к ОК и нажать Enter.