Вопрос по Borland Pascal

[Programit12]

Вопрос по Borland Pascal

Народ ПОДСКАЖИТЕ как вывести результат программы на borland pascal в центр экрана. :tehnari_ru_837:

 

[AlexZir]

x:=getmaxx div 2
y:=getmaxy div 2
координаты центра экрана в графическом режиме

 

[Vladimir_S]

x:=getmaxx mod 2
y:=getmaxy mod 2
координаты центра экрана в графическом режиме

А в текстовом - подключить модуль CRT, перед выводом очистить экран командой ClrScr и затем воспользоваться командой GoToXY. Только предварительно надо (можно экспериментально) выяснить, сколько текстовых рядов и колонок помещается в Ваш экран.

 

[AlexZir]

Пример вывода цифры 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.