Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
rabbitec
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 6
#1

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

18.02.2015, 12:36. Просмотров 331. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Рост "Змейки" при поедании ей бонусов (Turbo Pascal):

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

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

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф". - Turbo Pascal
1) Составить фразу &quot;письменный стол&quot; из слов &quot;тесненный&quot;, &quot;полка&quot;, &quot;речь&quot;, &quot;миф&quot;. 2) Вывести на экран слово, в котором каждая гласная...

Заменить символы "1", "2", "3" словами "один", "два", "три" - Turbo Pascal
Дана строка символов. Заменить символы &quot;1&quot;, &quot;2&quot;, &quot;3&quot; словами &quot;один&quot;, &quot;два&quot;, &quot;три&quot;. Оформить в виде процедуры или...

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

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

2
APALoff
1637 / 1066 / 470
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Переписать данные из текстового файла "a" в файл "b", при этом поменяв все символы '.' на ',' - Turbo Pascal
Нужно переписать данные из файла a в файл b, при этом поменяв все символы '.' на ','. While not eof(a) do begin Read(a,k); If...

Перестановка "i"-го и "j"-го по порядку элементов массива, при условии, что они с разными знаками. - Turbo Pascal
Перестановка &quot;i&quot;-го и &quot;j&quot;-го по порядку элементов массива, при условии, что они с разными знаками. Если они с одинаковыми знаками, все...


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

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

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