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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.12.2011, 22:45   #1
zhenka619
Дурачок
Пользователь
 
Регистрация: 29.12.2011
Сообщений: 33
Вопрос Pascal движение змейки

Код:
uses crt;

var
	
  x,y,vx,vy:integer;
  ch:char;
  
begin
clrscr;
  x:=1;
  y:=25 div 2;
  
  while (x>=1) and (x<=80) and (y>=1) and (y<=25) do begin
  	GoTOXY(x,y);
  	write('0');
        delay(60);
    if keypressed then begin
    	ch:=readkey;
    	case ch of
      	'd':begin vx:=1; vy:=0 end;
      	'a':begin vx:=-1; vy:=0 end; 				 	
	'w':begin vx:=0; vy:=-1 end;      	
      	's':begin vx:=0; vy:=1 end;          	
      end;
    end;{if}
    gotoxy(x,y);
    write(' ');
    inc(x,vx);
    inc(y,vy);
      
    
      
    end;
end.


Как сделать хвост, только можете объяснить что к чему, а то яв идел примеры но не разобрался. Заранее благодарю


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.
"Никогда программы не содержат так мало ошибок, как при отсутствии каких-либо средств отладки."
Никлаус Вирт... Помог нажми на весы

Последний раз редактировалось Serge_Bliznykov; 30.12.2011 в 10:33.
zhenka619 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
движение по заданой траектории (Pascal) announcer02 Помощь студентам 6 24.06.2010 00:38
[Pascal] Помогите с движением змейки Рамик Помощь студентам 5 08.09.2009 21:53
Pascal Движение в графике bpystep Помощь студентам 5 05.06.2009 06:08
Движение точки с векторами.Pascal. Regboll Паскаль, Turbo Pascal, PascalABC.NET 0 21.05.2009 20:14