Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
rabbitec
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 6
#1

Рост "Змейки" при поедании ей бонусов

18.02.2015, 12:36. Просмотров 341. Ответов 2
Метки нет (Все метки)

Всех приветствую
Нужна помощь. Вообщем есть змейка. Нужно раскидать бонусы и чтоб когда змейка их поедает он растет!


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
29
30
31
32
program PITON;
uses crt;
label o,p;
var z:char;HED,TAIL:array[1..2] of integer;
begin
clrscr;
randomize;
HED[1]:=39;
HED[2]:=10;
gotoxy(HED[1],HED[2]);
writeln('H');
TAIL[1]:=HED[1]-1;
TAIl[2]:=HED[2];
gotoxy(TAIL[1],TAIL[2]);
writeln('H');
p: z:=readkey;
if z<>#0 then goto o; z:=readkey;
Case z of
#72:if HED[2]<=1 then goto p else begin gotoxy(TAIL[1],TAIL[2]);write(' ');
TAIL:=HED;HED[2]:=HED[2]-1;gotoxy(HED[1],HED[2]);write('H');end;
 
#75:if HED[2]<=1 then goto p else begin gotoxy(TAIL[1],TAIL[2]);write(' ');
TAIL:=HED;HED[1]:=HED[1]-1;gotoxy(HED[1],HED[2]);write('H');end;
 
#77:if HED[2]>=80 then goto p else begin gotoxy(TAIL[1],TAIL[2]);write(' ');
TAIL:=HED;HED[1]:=HED[1]+1;gotoxy(HED[1],HED[2]);write('H');end;
 
#80:if HED[2]>=24 then goto p else begin gotoxy(TAIL[1],TAIL[2]);write(' ');
TAIL:=HED;HED[2]:=HED[2]+1;gotoxy(HED[1],HED[2]);write('H');end;
end;
goto p;
o: end.

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2015, 12:36
Ответы с готовыми решениями:

Составить фразу "программное обеспечение" из слов "программист", "оборот", "анчоус", "измерение"
Составить фразу &quot;программное обеспечение&quot; из слов &quot;программист&quot;, &quot;оборот&quot;,...

Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который"
1) Составить фразу &quot;текстовый редактор&quot; из слов &quot;тесто&quot;, &quot;редакция&quot;, &quot;мотор&quot;,...

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу &quot;письменный стол&quot; из слов &quot;тесненный&quot;, &quot;полка&quot;, &quot;речь&quot;,...

Заменить символы "1", "2", "3" словами "один", "два", "три"
Дана строка символов. Заменить символы &quot;1&quot;, &quot;2&quot;, &quot;3&quot; словами &quot;один&quot;, &quot;два&quot;,...

Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет"
Составить програму, которая б после каждой буквы &quot;е&quot; в данном слове дописывала...

2
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
18.02.2015, 14:18 #2
Зачем плодить однотипные темы?
Как обозначить границы поля в "Змейке"?
Там я выложил свой вариант змейки и да - она там растет.
0
Cyborg Drone
18.02.2015, 15:20     Рост "Змейки" при поедании ей бонусов
  #3

Не по теме:

rabbitec, для того, чтобы поднять актуальность темы, достаточно написать в тему новое сообщение. Создавать новую тему для этого не нужно.

В указанной APALoff Вашей теме достаточно было этот вопрос и задать. Или Вам обязательно нужна на каждый Ваш чих отдельная тема? К тому же, таким своим несуразным деянием Вы разрушили контекст обсуждения. И ещё, так Вы вынуждаете форум делать двойную работу. Что, неужели всерьёз полагаете, что, если на вашу змейку дважды накинутся, то будет что-то быстрее решено? Это не так, Вы потом упаритесь два различных кода в одну программу объединять.

Тема не является дублем вышеуказанной темы, поэтому пока не удалена.

Ну так что, rabbitec, устранить несуразность путём объединения этой темы с вышеуказанной, с восстановлением контекста обсуждения?

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2015, 15:20
Привет! Вот еще темы с ответами:

Проверить слово "Дом" и содержит ли оно буквы: "а" , "б" ,"о","д"
программа должна проверить слово &quot;Дом&quot; и содержит ли оно буквы: &quot;а&quot; , &quot;б&quot;...

Составить программу, которая из слов "мышь", " сканер", "слива" получает слово "клавиша"
Помогите пожалуйста. Необходимо составить программу, которая: из слов &quot;мышь&quot;,...

Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку
Ввести строку. Заменить все буквы &quot;е&quot; и &quot;а&quot; в тексте на &quot;8&quot; , &quot;4&quot; и &quot;6&quot;....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru