![]() |
Модераторы: Poseidon |
![]() ![]() ![]() |
|
aylaz |
|
|||
Новичок Профиль Группа: Участник Сообщений: 15 Регистрация: 8.4.2008 Репутация: 0 Всего: 0 |
здравстауйте.
Помогите описать програму где что означает uses crt; const max=50; var koordX,koordY:array[1..max] of byte;c:char;x,y,i,zvezda:byte; begin clrscr; zvezda:=90; repeat delay (100); gotoxy (koordX[1],koordY[1]); write(' '); for i:=2 to max do begin koordX[i-1]:=koordX[i]; koordY[i-1]:=koordY[i]; end; textcolor (random(2)); x:=random(80); y:=random(70); koordX[max]:=x; koordy[max]:=y; gotoxy(x,y); if random (100) > zvezda then write ('*') else write ('*');; if keypressed then c:=readkey; if c=chr (43)then begin zvezda :=zvezda-5;c:=' ';end; if c=chr (43)then begin zvezda :=zvezda-5;c:=' ';end; if zvezda<0 then zvezda :=0; if zvezda>100 then zvezda :=100; until c=#27;end. |
|||
|
||||
Arch1S |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 72 Регистрация: 14.1.2008 Где: Беларусь, Гомель Репутация: нет Всего: 3 |
aylaz, а что тебе именно не понятно?
|
|||
|
||||
aylaz |
|
|||
Новичок Профиль Группа: Участник Сообщений: 15 Регистрация: 8.4.2008 Репутация: 0 Всего: 0 |
мне нужно примерно так
uses crt {начало програмы} begin { продолжение } и т.д. типа обьяснение что и для чего оно |
|||
|
||||
THandle |
|
|||
![]() Хранитель Клуба ![]() Награды: 1 Профиль Группа: Админ Сообщений: 3639 Регистрация: 31.7.2007 Где: Moscow, Dubai Репутация: 30 Всего: 372 |
aylaz, пользуйся кнопкой код с подсветкой конкретного языка к тому же
![]()
|
|||
|
||||
aylaz |
|
|||
Новичок Профиль Группа: Участник Сообщений: 15 Регистрация: 8.4.2008 Репутация: 0 Всего: 0 |
благодарчик
|
|||
|
||||
![]() ![]() ![]() |
Правила форума "Центр помощи" | |
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Центр помощи | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |