16.02.2012, 20:17
|
#1 (permalink) |
|
Новичок
Регистрация: 16.02.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вопрос по Borland Pascal
|
|
|
|
16.02.2012, 20:17
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти обсуждения очень схожи с вашей темой вопрос по Pascal Pascal Pascal Модульное программирование в Borland Builder С++ Помогите написать программку в Borland C++ 3.1 |
|
16.02.2012, 21:11
|
#2 (permalink) |
|
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
x:=getmaxx div 2
y:=getmaxy div 2 координаты центра экрана в графическом режиме Последний раз редактировалось AlexZir; 19.02.2012 в 17:47 Причина: ошибочка вышла, а я и не заметил :) |
|
|
|
|
17.02.2012, 09:56
|
#3 (permalink) | |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
|
|
|
|
19.02.2012, 16:57
|
#4 (permalink) |
|
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Пример вывода цифры 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.
Переменная 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.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
