Исходники и листинги ::: Pascal ::: Бегающий курсор
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
  program pr1;
  uses crt;
  var x,y,z: integer;
  begin
     ClrScr;
     randomize;
     x:=40;
     y:=25;
     z:=0;
     repeat
        gotoxy(x,y);
        textbackground(z);
        write (' ');
        x:=x+(random(3)-1);
        y:=y+(random(3)-1);
        z:=random(15);
        if (x=1) or (x=80) or (y=1) or (y=50) then
           begin
              x:=40;
              y:=25;
              clrscr;
           end;
        delay(500);
     until keypressed;
     textbackground(0);
     clrscr;
     readln
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Бегающий курсор
Автор: Sanek_xXx
Город: Казань
 Дата: 01.02.2007  19:33
Комментариев: 2
Просмотров: 325
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: Корсор бегает, и ставляет за собой разноцветные следы
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Stu-Pot ::: комментарий от 27.01.2008 | 01:33
Stu-Pot Сведущий (ур.9)
Очки: 2545
Город: Барабинск
Тв. работ: 14
Рег: 12.04.2007 (4352)
У меня только комп от этой штуковины тормозит...


--------------------
Отказался от счастья, yзнав, что оно не в деньгах.
mr. Twister ::: комментарий от 26.02.2007 | 09:53
  Герой (ур.14)
Очки: 12378
Город: 1
Тв. работ: 80
Рег: 26.01.2007 (3187)
списунчик, блин


--------------------
1