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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 30.12.2011, 11:20   #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 в 14:02.
zhenka619 вне форума
Старый 30.12.2011, 14:01   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

КРОССПОСТ на форуме ЗАПРЕЩЁН!

ЗАКРЫТО
Serge_Bliznykov вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal движение змейки zhenka619 Помощь студентам 0 29.12.2011 22:45
Хвост для кометы X@OC JavaScript, Ajax 0 29.07.2011 10:34
очередь с указателем на хвост и голову Anny_Apple Паскаль, Turbo Pascal, PascalABC.NET 0 02.05.2011 21:04
[Pascal] Помогите с движением змейки Рамик Помощь студентам 5 08.09.2009 21:53