Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2009, 10:19   #1
HECTOR.A.
Пользователь
 
Регистрация: 20.11.2008
Сообщений: 30
По умолчанию уберите курсор (в конце программы верните курсор),

uses crt,dos;
var i: integer;
begin
textBackGround(White);
clrscr;
textbackground(blue);
window(12,10,48,20);
clrscr;
writeln('* * *');
writeln;
writeln; writeln; writeln;
writeln(' * * ' );
writeln; writeln; writeln; writeln; writeln;
writeln(' * * *');
for i:=1 to 22 do
begin
gotoxy(15+i, 7);
write('*');
delay(9000);
gotoxy(15, 7);
clreol;
end;
readkey
end.

В программе выполните следующие изменения:
• уберите курсор (в конце программы верните курсор),
• поместите окно в середину экрана,
• измените программу так, чтобы звездочка желтого цвета падала вертикально.
hector.A. на форуме Пожаловаться на это сообщение Добавить отзыв для hector.A. Сказать спасибо за это полезное сообщение Редактировать/удалить сообщение
HECTOR.A. вне форума Ответить с цитированием
Старый 05.06.2009, 11:56   #2
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

Цитата:
уберите курсор
Код:
procedure CursorOff;
var
  r: registers;
begin
  r.AH:=1; r.CH:=$20;
  Intr($10,r);
end;
Цитата:
верните курсор
Код:
procedure CursorOn;
var
  r: registers;
begin
  r.AH:=1; r.CH:=6; r.CL:=7;
  Intr($10,r);
end;
Цитата:
поместите окно в середину экрана
Размеры стандартного экрана в DOS программе: 25 строк и 80 столбцов.
Если известна ширина и высота окна, то вычислить координаты левого верхнего угла и правого нижнего, труда не составляет.
Цитата:
измените программу так, чтобы звездочка желтого цвета падала вертикально
Используйте процедуру: GotoXY(X,Y);
Код:
GotoXY(X,Y); Write('*'); {печатаем звёздочку}
GotoXY(X,Y); Write(' '); {стираем звёздочку (печатаем пробел)}
_Dmitry вне форума Ответить с цитированием
Старый 05.06.2009, 20:10   #3
HECTOR.A.
Пользователь
 
Регистрация: 20.11.2008
Сообщений: 30
По умолчанию

Спасибо!!!!!!!!!
HECTOR.A. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Курсор АлёнаP Microsoft Office Word 5 15.05.2009 17:12
Курсор soonner Общие вопросы Delphi 3 11.05.2009 19:46
Курсор wolf950 Помощь студентам 3 13.11.2008 22:24
Курсор RealSHELS Общие вопросы Delphi 2 12.05.2008 12:51
курсор steck Общие вопросы Delphi 2 02.04.2007 22:45