Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 17.12.2014
Сообщений: 6

Доделать змейку

02.02.2015, 12:42. Показов 936. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите доделать змейку!

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
33
program SNAKE;
Uses CRT;
Label R1,R2,R3,R4,R5;
var
xp,yp,xg,yg,xh,yh,xs,ys:integer;
i,j:integer;
ch:char;
w,a,s,d:integer;
Begin
ClrScr;
Randomize;
xg:=Random(78)+1;
yg:=Random(23)+1;
If xg>2 then xp:=xg-2 else xp:=xg+2;
yp:=yg;
Gotoxy(xp,yp);
Write('T');
Gotoxy(xg,yg);
Write('Y');
R1: ch:=Readkey;
if ch=#27 then goto R3;
if ch=#0  then begin
ch:=Readkey;
Case ch of
#72:  if yg<1  then Dec(yg);
#80:  if yg>25 then Inc(yg);
#75:  if xg<1  then Dec(xg);
#77:  if xg>80 then Inc(xg);
GotoXY  (xp,yp);writeln(' ');
GotoXY  (xg,yg);writeln(' ');
end;
R1:
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
02.02.2015, 12:42
Ответы с готовыми решениями:

Создать шутер от первого лица или змейку
Создать шутер от первого лица или змейку. помогите

Помогите не получается зарандомить змейку(матрица 8х8)
Не могу додуматься над условием , рандомится , в матрице только через ряд, для меня это сложновато ,т.к паскаль изучаю первый год. ...

Пишу программу "Змейку" и всё время такой серый фон,что делать?
Вот код,что не так я сделал? program Shapoval; uses crt, graph; const N=50; var snake: array of integer; ...

1
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
03.02.2015, 11:34
Цитата Сообщение от rabbitec Посмотреть сообщение
Label R1,R2,R3,R4,R5;
Такое надо не доделывать, а полностью переделывать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
03.02.2015, 11:34
Помогаю со студенческими работами здесь

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

Можно ли написать "змейку"
можно ли сделать старую добрую игру &quot;змейку&quot; в простом паскале? и если можно не поможете сделать? P.s. в поиске находил только в Turbo...

Сортировку доделать
В общем трехпутевое слияние Нужно доделать конец программы. Что у меня есть: разделение массива на 3 4асти, сортировка и вывод по...

Доделать программы
Помогите с Паскалем программы написаны и работают,но нужно доделать 1)В целочисленном одномерном массиве из N (N50) элементов...

доделать гонки
не могу зделать простую игру &quot;гонки&quot; на паскале, но нужно именно на нем! пожалуйста помогите! за ранее спасибо! вот код


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru