|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.06.2009, 10:19 | #1 |
Пользователь
Регистрация: 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. Сказать спасибо за это полезное сообщение Редактировать/удалить сообщение |
05.06.2009, 11:56 | #2 | ||||
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Цитата:
Код:
Цитата:
Код:
Цитата:
Если известна ширина и высота окна, то вычислить координаты левого верхнего угла и правого нижнего, труда не составляет. Цитата:
Код:
|
||||
05.06.2009, 20:10 | #3 |
Пользователь
Регистрация: 20.11.2008
Сообщений: 30
|
Спасибо!!!!!!!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Курсор | Алёна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 |