![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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. Сказать спасибо за это полезное сообщение Редактировать/удалить сообщение |
![]() |
![]() |
![]() |
#2 | ||||
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
![]() Цитата:
Код:
Цитата:
Код:
Цитата:
Если известна ширина и высота окна, то вычислить координаты левого верхнего угла и правого нижнего, труда не составляет. Цитата:
Код:
|
||||
![]() |
![]() |
![]() |
#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 |