Технический форум - Вопрос по Borland Pascal

Пример вывода цифры 0 в центре экрана в текстовом режиме:

Код:

{output - center screen}

uses crt;

var

x,y:byte;

begin

clrscr;

x:=(lo(WindMax)+1) div 2;

y:=(hi(WindMax)+1) div 2;

gotoxy(x,y);

write('0');

readln

end.

В листинге использованы стандартные функции и переменные модуля CRT.
Переменная WindMax хранит максимальные координаты текущего экрана, причем координата X хранится в младшем байте, а координата Y - в старшем байте.
Функция Lo возвращает значение, хранящееся в младшем байте переданного параметра.
Функция HI возвращает значение, хранящееся в старшем байте переданного параметра.

Пример вывода цифры 0 в центре экрана в графическом режиме:

Код:

{output - center screen}

uses crt, graph;

var

x,y:integer;

gm,gd:integer;

begin

initgraph(gd,gm,'');                {установка параметров и инициализация графического режима}

cleardevice;                         {очистка экрана}

x:=getmaxx div 2;            {вычисление координаты X точки центра экрана}

y:=getmaxy div 2;            {вычисление координаты Y точки центра экрана}

outtextxy(x,y,'0');                 {вывод текста в указанную точку}

repeat                                 {цикл ожидания нажатия клавиши}

until keypressed;

closegraph;                          {закрытие графического режима}

end.