Лабиринт

@Taras_Z · Регистрация: 27.10.2010

Студворк — интернет-сервис помощи студентам

Как создать лабиринт?
я знаю что там чтото с масивами и прописивается через 1 0 0 1 1 0 0 1
не могли ви би парочку примеров написать а то я незнаю

@Taras_Z · 30.10.2010, 13:49 **[ТС]**

а карту в масиве рисовать a:array [1..j, 1..i] of byte = (1,0,0,0,1,0,)
так?

Добавлено через 3 минуты

Сообщение от AF

Проверяй, есть ли на пути пакмена препятствие, если нету, то двигай.
Прямоугольник твой всегда рисуется в одном месте, нужно связать аргументы процедуры Rectangle с i и j

а как пример наведи

Добавлено через 4 минуты
ти не суди строго мне всего 12 лет

@AF · 30.10.2010, 13:50

Да.

Pascal
1
2
3
4
5
6
7
{Двигаем налево}
if a[i, j - 1] = '0'
then
  begin
    a[i, j - 1] := 1;
    a[i, j] := 0
  end

@Taras_Z · 30.10.2010, 14:00 **[ТС]**

Сообщение от AF

Да.

Pascal
1
2
3
4
5
6
7
{Двигаем налево}
if a[i, j - 1] = '0'
then
  begin
    a[i, j - 1] := 1;
    a[i, j] := 0
  end

ето что?

Добавлено через 4 минуты
я спросил как свяязать Rectangle с i и j

@AF · 30.10.2010, 14:27

Rectangle(i*20, j*20, i*20 + 20, j*20 + 20)

@Taras_Z · 30.10.2010, 15:06 **[ТС]**

вот я нарисовал карту
a:array[1..i, 1..j] of byte=((1,0,1,1,1),(1,0,0,1,1),(1,1,0,0,1 ),(1,1,0,1,1),(1,0,0,0,1));
и написал if a[i,j] = 1

Pascal
1
2
3
4
         then
         Rectangle(i*20, j*20, i*20 + 20, j*20 + 20)  else
             if a[i, j] = 0
               then

но у меня получаєтся один кубик на верху и всё
где ошибка?

@AF · 30.10.2010, 16:26

Для начала почитай про циклы

@Taras_Z · 30.10.2010, 16:52 **[ТС]**

почитал и что

@AF · 30.10.2010, 16:55

А для чего я тебе посоветовал почитать про циклы? Реализуй!

@Taras_Z · 30.10.2010, 17:30 **[ТС]**

ето чтото вроде такого

Pascal
1
2
3
4
5
6
7
for h:=1 to 25 do 
if a[i,j] = 1
then
Rectangle(i*20, j*20, i*20 + 20, j*20 + 20)  
else
if a[i, j] = 0
then

@AF · 30.10.2010, 18:07

*facepalm

Pascal
1
2
3
4
5
6
7
for i := 1 to 10
do
  for j := 1 to 10
  do
    if a[i,j] = 1
    then
      Rectangle(i*20, j*20, i*20 + 20, j*20 + 20)

@Taras_Z · 30.10.2010, 18:43 **[ТС]**

спасибо всё получилось но как сделат чтоб мой pacman не заходил за стени и их не затирал

@AF · 31.10.2010, 12:03

Сообщение от AF

{Двигаем налево}
if a[i, j - 1] = '0'
then
begin
a[i, j - 1] := 1;
a[i, j] := 0
end

я уже писал

@Taras_Z · 31.10.2010, 18:01 **[ТС]**

спаибо но я немного подругому написал getpixel помогло

а как сделать врага чтоб он не набрасивался на pecmana сразу а токо когда его увидит

@AF · 31.10.2010, 20:43

Вруби логику, задай дистанцию "набрасывания"

@Taras_Z · 01.11.2010, 14:39 **[ТС]**

а что за дистанция набрасывания

@Taras_Z · 02.11.2010, 17:14 **[ТС]**

кто знает

Новые блоги и статьи Все статьи Все блоги /
BitTorrent (версия 7.11 English) и Меню Настройки russiannick 15.11.2026 Пункты, отвечающие за отключение обновлений в BitTorrent версии 7. 11 (английской) Options Preferences General Language	Транслитерация текста с кириллицы на латиницу (вариант №4) Maks 15.11.2026 Что-то я перемудрил с предыдущими версиями, в этот раз сделал всё проще, обратившись к функции "СтрокаЛатиницей" из типового общего модуля "СтроковыеФункцииКлиент". В данной функции нет апострофов,. . .	BitTorrent (версия 4.3.9) и Меню Настройки russiannick 15.11.2026 В меню Настройки можно отключить автоматическое обновление программы. Карта этого меню приложена ниже. Нужный пункт выделен красным. Сервис Настройки Поведение	Транслитерация текста с кириллицы на латиницу (вариант №3) Maks 15.11.2026 Обновленная версия предыдущей обработки. Изменения коснулись букв: Ъ, Ы, Ь, Э, отображения которых зависят от положения реквизита "Транслитерация имён". Изменено отображение буквы Й. Добавлена. . .
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .

@Taras_Z 102 / 86 / 5 Регистрация: 27.10.2010 Сообщений: 534 Записей в блоге: 2

	Лабиринт 29.10.2010, 18:27. Показов 7500. Ответов 35 Метки нет (Все метки) Как создать лабиринт? я знаю что там чтото с масивами и прописивается через 1 0 0 1 1 0 0 1 не могли ви би парочку примеров написать а то я незнаю 1

@AF 49 / 48 / 21 Регистрация: 06.10.2010 Сообщений: 115
	30.10.2010, 14:27
	Rectangle(i20, j20, i20 + 20, j20 + 20) 0

@AF 49 / 48 / 21 Регистрация: 06.10.2010 Сообщений: 115
	30.10.2010, 16:26
	Для начала почитай про циклы 0

@Taras_Z 102 / 86 / 5 Регистрация: 27.10.2010 Сообщений: 534 Записей в блоге: 2
	30.10.2010, 16:52 [ТС]
	почитал и что 0

@AF 49 / 48 / 21 Регистрация: 06.10.2010 Сообщений: 115
	30.10.2010, 16:55
	А для чего я тебе посоветовал почитать про циклы? Реализуй! 0

@Taras_Z 102 / 86 / 5 Регистрация: 27.10.2010 Сообщений: 534 Записей в блоге: 2
	30.10.2010, 18:43 [ТС]
	спасибо всё получилось но как сделат чтоб мой pacman не заходил за стени и их не затирал 1

@Taras_Z 102 / 86 / 5 Регистрация: 27.10.2010 Сообщений: 534 Записей в блоге: 2
	31.10.2010, 18:01 [ТС]
	спаибо но я немного подругому написал getpixel помогло а как сделать врага чтоб он не набрасивался на pecmana сразу а токо когда его увидит 1

@AF 49 / 48 / 21 Регистрация: 06.10.2010 Сообщений: 115
	31.10.2010, 20:43
	Вруби логику, задай дистанцию "набрасывания" 0

@Taras_Z 102 / 86 / 5 Регистрация: 27.10.2010 Сообщений: 534 Записей в блоге: 2
	01.11.2010, 14:39 [ТС]
	а что за дистанция набрасывания 0

@Taras_Z 102 / 86 / 5 Регистрация: 27.10.2010 Сообщений: 534 Записей в блоге: 2
	02.11.2010, 17:14 [ТС]
	кто знает 0