Pascal abc игра змейка

Упрощенный вариант[править]

Описание алгоритма
  1. Нарисовать змейку.
  2. Если нажали клавишу – добавить новую точку, в которую перешла голова змейки, в список и удалить первую точку в списке. Перейти к шагу 1.

Управление:

  • W – вверх.
  • S – вниз.
  • A – влево.
  • D – вправо.
uses GraphABC;const Size = 20;var Snake: List<Point>;procedure Draw();begin ClearWindow(); Polyline(Snake.ToArray()); var c := Snake.Count 1; Circle(Snake[c].X, Snake[c].Y, 5); Redraw();end;procedure KeyDown(Key: integer);begin var c := Snake.Count 2; case Key of VK_Left: begin Snake.RemoveAt(0); Snake.Add(new Point(Snake[c].X Size, Snake[c].Y)); end; VK_Right: begin Snake.RemoveAt(0); Snake.Add(new Point(Snake[c].X + Size, Snake[c].Y)); end; VK_Up: begin Snake.RemoveAt(0); Snake.Add(new Point(Snake[c].X, Snake[c].Y Size)); end; VK_Down: begin Snake.RemoveAt(0); Snake.Add(new Point(Snake[c].X, Snake[c].Y + Size)); end; end; Draw();end;begin LockDrawing(); SetSmoothingOff(); Snake := new List<Point>(); for var x := 1 to 30 do Snake.Add(new Point(x * Size, Size)); Draw(); OnKeyDown := KeyDown;end.

Игра Змейка – текстовая реализация на языке Pascal

bm6zjuxrev.png

Дальше текст программы

Комментарии к этой программе, такие же, как и к предыдущей.

Конечно интереснее, если сделать графическое отображение, например через модуль graph, но текстовое исполнение, добавляет немного романтики времени MS-DOS.

ie9.png

Эта статья написана в Вторник, Январь 19th, 2010 at 18:54 в разделе Задачи программирования. Вы можете подписаться на обновления комментариев к статье — RSS 2.0. Вы можете оставить комментарий, или послать пинг со своего сайта.

12 комментария

хм, а я круче написал! с зашибенным интерфейсом!

Привет, давай свяжемся с тобой во Вконтакте?
https://m.vk.com/id445385155

kak zapustit i kakaimi klaviwami igrat’.

Free Pascal выдает ошибку на строке

пардон, не туда запостил, сорри )))))

Здравствуйте.
У меня возник вопрос: что означают e.x, e.y, snakebody[i].x, snakebody[i].y?

как играется это игра? вообще не играется, запускаю но ваша змейка не двигается

В самом конце программы в срочке” Delay(30000);” уменьши значение хотябы до 100, чем меньше сделаешь тем быстрее она будет двигаться. И ещё при запуске проверь что стоит английская раскладка, на русской не работает. Управление на (W,A,S,D).

Игра класс )) , но как управлять змейкой я все перепробовал!
Подскажите пожалуйста.

type
TDirection = (None, Left, Right, Up, Down);

var x,t,y,i,z,xr,yr,prin1,prin2,prin3,prin4,prin5,k,s4et,prin6: integer;
Direction :TDirection;
xs,ys,bufx,bufy:array[1..200]of integer;

procedure shar3;
begin
SetBrushColor(clYellow);
circle(xs[k],ys[k],r);
end;

procedure Circl;
begin
SetBrushColor(clBlack);
circle(x,y,r);
end;

procedure rshar ;
begin
xr:=Random(WindowWidth) ;
yr:=Random( WindowHeight);
end;

procedure rshar2;
begin
SetBrushColor(clYellow);
circle(xr,yr,r);
end;

procedure XP(Key:integer);
begin
case Key of
VK_Left: Direction := Left ;
VK_Right:Direction := Right ;
VK_UP: Direction := UP ;
VK_Down: Direction :=Down ;
end;
circle(x,y,r);
end;

procedure pause;
begin
for i:=1 to 1 do
begin
Circl;
rshar2;
ClearWindow;
rshar2 ;
prin1:=(xr-x+r)*(xr-x+r)+(yr-y)*(yr-y) ;
prin2:=(xr-x-r)*(xr-x-r)+(yr-y)*(yr-y) ;
prin3:=(xr-x)*(xr-x)+(yr-y+r)*(yr-y+r) ;
prin4:=(xr-x)*(xr-x)+(yr-y-r)*(yr-y-r) ;
prin5:=R*R;
if (prin1) =WindowW > Down: begin y:=y+d; if y>=WindowHeight then y:=0 end;
end;
xs[1]:=x;
ys[1]:=y;
for k:=1 to s4et do
begin
bufx[k]:=xs[k];
bufy[k]:=ys[k];

end;
for k:=1 to s4et do
begin
xs[k+1]:=bufx[k];
ys[k+1]:=bufy[k] ;
end;
for k:=2 to s4et do
shar3;
Circl;
end;
end;
begin
rshar;
s4et:=2;

Змейка на Паскале

Ребята, помогите пожалуйста! Я только начинающий программист и решил сделать что-то сложное на PascalABC.NET. Как вариант выбрал змейку, ну или что-то похожее на неё ag.gifНо упёрся в проблему, которую не могу решить уже неделю! Как сделать так, чтобы змейка не разворачивалась на 180 градусов? Допустим она ползёт вверх и при нажатии кнопки “S” она разворачивается и ползёт в противоположную сторону! А так быть не должно, по правилам игры. Как это исправить, помогите пожалуйста!

tick.pngЗмейка в паскале
Короче ток недавно заинтересовался программированием и офк начал с паскаля абц.нет Долгими.

tick.pngЗмейка на паскале. Хвост
Ребята, помогите пожалуйста! Делаю змейку на PascalABC и никак не могу сделать нормальный рабочих.

tick.pngКак работает join и split в Паскале? И есть ли такие аналоги Питону в Паскале?
a=input() #из ‘ Hello world ‘ делаю ‘Hello, world’ a.strip(‘ ‘) a=’, ‘.join(a.split(‘ ‘)) В.

Игра “Змейка”: чтобы змейка не съедала сама себя
Здравствуйте! Пишу змейку на VB 2010. Не получается составить условие того, что бы змейка не.

Решение

Спасибо тебе Огромное, помогло!

Добавлено через 16 минут
Можно закрывать эту тему!

Добавлено через 38 минут
Модератор, можете, пожалуйста, закрыть эту тему
Данная тема больше не нужна!

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

Змейка на С#
Всем доброго времени суток. В програмировании я новичек. Вобщем есть Д/З написать игру “змейка” (ну.

Змейка
Здравствуйте! Я пишу змейку, и игра уже практически готова за исключением одного момента: вот код.

Змейка
Решил написать собственный аналог змейки. Создал костяк программы, и у меня возникло три вопроса.

[С++]Змейка

Помогите найти ошибку # include # include # include # include.

Источник статьи: http://www.cyberforum.ru/pascalabc-net/thread2275519.html

Игра “Змейка”

Игра “Змейка”
Нужно сделать так,чтобы змейка умирала,когда сталкивалась с телом или границей поля и чтобы.

tick.pngИз слова “клоун” путем “вырезок” и “склеек” его букв получить слова “уклон”,”кулон” и “колун”
Из слова “клоун” путем “вырезок” и “склеек” его букв получить слова “уклон”,”кулон” и.

Змейка – “попытка вызвать функцию как процедуру”
Не подскажите почему в предпоследней строчке выдаёт ошибку? Program Zmeya; Uses graphabc.

tick.pngДаны текстовый файл “F” и строка “S”. Получить все строки файла “F”, содержащие в качестве фрагмента строку “S”.
Плиз помогите написать прогу: Даны текстовый файл “F” и строка “S”. Получить все строки файла “F”.

А, да, не заметил что там что то кроме GraphABC подключается.

dramaturg, если пишете не на PABC.Net – выбирайте соответствующий раздел.

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

tick.pngПожалуйста, составьте программу, которая из слов”СТРАХ”,”БЕЛКА”,”ЦЫПЛЁНОК” получает слово “СТОЛБЕЦ”
Пожалуйста, составьте программу, которая из слов”СТРАХ”,”БЕЛКА”,”ЦЫПЛЁНОК” получает слово “СТОЛБЕЦ”.

tick.pngИзобразить стрелку и осуществить движение по клавишам “вверх”, “вниз”, “вправо”, “влево”
Необходимо изобразить стрелку и осуществить движение по клавишам “вверх”, “вниз”, “вправо”, “влево”.

Удвоить в строке буквы “ю”, “ъ”, “ф”, “э”, а между словами оставить только по одному пробелу
Пользователь заполняет символьную строку русскими буквами. Буквы ю, ъ, ф, э в ней нужно удвоить, а.

tick.pngДаны строки а=”вариант”,b= “Высоко”, с = “макароны”. Получить слово “соковарка”
4 .Даны строки а=”вариант”,b= “Высоко”, с = “макароны”. Получить слово “соковарка”.

Определить сколько “5”, “4”, “3”, “2” было выставлено в каждом классе
известны оценки за контрольную по физике каждого ученика двух классов. Определить сколько “5”, “4”.

tick.pngЗаменить букву “А” на “КО” и подсчитать общее количество букв “Ф” и “В”
Заменить букву “А” на “КО” и подсчитать общее кол-во букв “Ф” и “В” . и Последнее.

Источник статьи: http://www.cyberforum.ru/pascalabc/thread2345380.html

Проект по информатике: “Змейка в Paskal”

Международные дистанционные “ШКОЛЬНЫЕ ИНФОКОНКУРСЫ”

для дошкольников и учеников 1–11 классов

placeholder-640x480.png

0daf-00000dae-0fd2f18c.png

VI Международный дистанционный конкурс «Старт»

  • 16 предметов
  • Для учеников 1-11 классов и дошкольников
  • Наградные и подарки

Описание презентации по отдельным слайдам:

Разработка игры «Змейка» на языке программирования PackalABC.NET Работу выполнил ученик 9Б класса МОУ СОШ №5 г.Приозерска Альцман Александр Владимирович Преподаватель: Шишикина Елизавета Андреевна

Цели и задачи Цель: на языке программирования PascalABC.NET написать игру «Змейка». Задачи: 1. Изучить правила игры «Змейка»; 2. Изучить создание процедур и функций на языке программирования PascalABC.NET; 3. Изучить подключаемые стандартные модули языка программирования PascalABC.NET; 4. Написать программный код на языке программирования PascalABC.NET

Правила игры «Змейка» Snake (Питон, Удав, Змейка и др.) — компьютерная игра, возникшая в середине или в конце 1970-х. Задача игры заключается в следующем: «съесть» как можно больше «яблок» при этом не сталкиваясь с границами поля или с «собственным хвостом».

Pascal – один из самых известных языков программирования. Создан в 1968 – 1969 годах швейцарским ученым Никлаусом Виртом, был назван в честь французского математика и физика Блеза Паскаля. Одной из современных разновидностей языка Pascal является PascalABC.NET.

Управление змейкой кнопками

Столкновение змейки с хвостом и стенками

Вывод С помощью встроенных функций и знаний составления алгоритмических конструкций на языке программирования Pascal можно решать не только задачи, но и реализовывать игры различной сложности.

Выберите книгу со скидкой:

1ead57cbde99ea86d69a514f5b6e37e4.jpg

Выразительный JavaScript. Современное веб-программирование. 3-е издание

16bcce13fb146175c88052c26aa4f794.jpg

Изучаем программирование на JavaScript

a62a5d61b9cbe6027c71ecc99eb5a094.jpg

ОГЭ. Информатика. Новый полный справочник для подготовки к ОГЭ

9d1e03e1888d741f662d371887af5d10.jpg

ЕГЭ. Информатика. Новый полный справочник для подготовки к ЕГЭ

0af8ab3c42c49421441340d32b2a21e5.jpg

ЕГЭ. Информатика. Новый полный справочник для подготовки к ЕГЭ

f56892b4d29d1ae506a9858fec1ec8fe.jpg

Изучаем программирование на C

57cdce293fff72615a7690ca6375406c.jpg

Математика. Новый полный справочник школьника для подготовки к ЕГЭ

9e39b5394f0316e5ba82b4299fb030df.jpg

Дошкольная педагогика с основами методик воспитания и обучения. Учебник для вузов. Стандарт третьего поколения. 2-е изд.

7503314bc87447b51429876a1559396e.jpg

Считаю и решаю: для детей 5-6 лет. Ч. 1, 2-е изд., испр. и перераб.

1aa0852088db21f3e52236b437cfc621.jpg

Начинаю считать: для детей 4-5 лет. Ч. 1, 2-е изд., испр. и перераб.

145c5764a0cee712475ff58d8eacc579.jpg

Считаю и решаю: для детей 5-6 лет. Ч. 2, 2-е изд., испр. и перераб.

4d130b2d7efe2e3cce50a1d3663e48fd.jpg

Пишу буквы: для детей 5-6 лет. Ч. 2. 2-е изд, испр. и перераб.

БОЛЕЕ 58 000 КНИГ И ШИРОКИЙ ВЫБОР КАНЦТОВАРОВ! ИНФОЛАВКА

Инфолавка – книжный магазин для педагогов и родителей от проекта «Инфоурок»

placeholder-234x156.png

placeholder-234x156.png

placeholder-234x156.png

0daf-00000dae-0fd2f18c.png

VI Международный дистанционный конкурс «Старт»

  • 16 предметов
  • Для учеников 1-11 классов и дошкольников
  • Наградные и подарки

a-loader.gif

Добавляйте авторские материалы и получите призы от Инфоурок

Еженедельный призовой фонд 100 000 Р

0d12-0011c051-e4f67aa3.svg 02ae-000ecfbd-69d4b045.png 0c3a-000e6419-137169b9.png

Вам будут интересны эти курсы:

Оставьте свой комментарий

Ответственность за разрешение любых спорных моментов, касающихся самих материалов и их содержания, берут на себя пользователи, разместившие материал на сайте. Однако редакция сайта готова оказать всяческую поддержку в решении любых вопросов, связанных с работой и содержанием сайта. Если Вы заметили, что на данном сайте незаконно используются материалы, сообщите об этом администрации сайта через форму обратной связи.

Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение редакции может не совпадать с точкой зрения авторов.

Источник статьи: http://infourok.ru/proekt-po-informatike-zmeyka-v-paskal-3802918.html

Adblock
detector

Рейтинг
( 1 оценка, среднее 5 из 5 )
Загрузка ...