Программа поиска пути в лабиринте

@Victor35 · Регистрация: 21.04.2009

Здравствуйте! Задали в универе написать программу на Билдере, которая бы искала путь в лабиринте. Лабиринт может задаваться как интерактивно, так и загружаться из файла. Лабиринт задается через StringGrid (можно задавать проходы 0, а стены 1). Я только начал изучение Билдера, поэтому многого не понимаю. Пока моих способностей хватило только чтобы компонентов навставлять и задавать лабиринт интерактивно. Вот моё начало, может кто дальше поможет:

C++
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
34
35
36
37
38
39
40
41
42
43
44
45
#include <vcl.h>
#pragma hdrstop
 
#include "Unit7.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
StringGrid1->FixedRows = 0;
StringGrid1->FixedCols = 0;
StringGrid1->RowCount = StrToInt(Edit1->Text);
StringGrid1->ColCount = StrToInt(Edit2->Text);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
int ARow, bool &CanSelect)
{
StringGrid1->Cells[ACol][ARow]=Edit3->Text;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1DblClick(TObject *Sender)
{
StringGrid1->RowCount = StrToInt(Edit1->Text);
StringGrid1->ColCount = StrToInt(Edit2->Text);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
}
//---------------------------------------------------------------------------

Evg · 27.01.2010, 20:34

Ты спросил "в чем проблемма????". Я тебе ответил одну из возможных причин. Действительно, потратить 1 минуту на то, чтобы выложить полный рабочий исходник программы - это не барское дело. И не по-пацански как-то получается: ты в поте лица, ценой долгих и бессонных ночей, писал программу, а тут люди хотят что-то нахаляву.

@22dr22 · 27.01.2010, 20:41

я такое даже за деньги писать не буду - стыдно, за такое брать =)))))

но впринципе Evg - ты прав!!!!

Evg · 27.01.2010, 21:10

Тогда поехали дальше. Если посмотреть на твою функцию, то единственное, что она модифицирует - это переменная kill. Т.е. результатом её работы просто является какая-то циферка, по которой, судя по всему, можно только сказать, нашла что-то твой функция, или не нашла. А в 13-м посте подняли вопрос на тему того, как искать путь, а не магическую циферку (которая, возможно, означает количество шагов, ибо по украински не понимаю). Т.е. в итоге ты предоставил какую-то программу, которая попросту делает не то, чего хотелось бы, да ещё и непонятно, с чем её есть и куда засунуть.

@22dr22 · 27.01.2010, 21:13

эта циферка - количество возможных путей.....

Evg · 27.01.2010, 21:14

Тем более. Количество путей как таковое мало кому интересно. Куда интереснее сам путь

@22dr22 · 27.01.2010, 21:56

надо просто записывать пройденные координаты, а потом когда исполняется условие if(......)
{
kil++;
запомнить путь в какую-то переменную... или массив
}

Добавлено через 6 минут
все больше ничего не говорю...... еще два поста и придеться код писать =))), хотя там две строчки..... добавить надо...

@BOR1K · 28.01.2010, 12:49

Путей то много, нужно определенный, в массив записывать.

@22dr22 · 28.01.2010, 13:07

ты не понял - пробуеш один путь...записал его, напримр в K[][], если есть путь до конца выполняеться условие
и kil++; здесь записываешь этот путь во внешнею переменную...M[кол. путей][x][y]=K[x][y];кол. путей++;

если нет записываеш новый путь в k[][]. в итоге у тебя будут все возможные пути в трехмерном массиве М.

@BOR1K · 28.01.2010, 14:50

м.. Надо все бы это заново реализовать, и для косоли

@22dr22 · 28.01.2010, 14:59

дерзай =)))
набирай опыт лог мышления и практику программирования

@BOR1K · 28.01.2010, 15:01

Если напишу, с тебя спасибо)

@22dr22 · 28.01.2010, 15:11

сам себе спасибо скажешь, не мне это программа нужна, если б была - уже написал бы =))))))))

@BOR1K · 01.02.2010, 12:41

вот написал) тестируйте. показывает координаты пути.

C
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
#include "stdafx.h"
#include <string.h>
#include <stdio.h>
#include <conio.h>
 #include <iostream>
using namespace std;
 
unsigned char map[12][20]={
   {1,1,1,1,1,1,1,1,1,1,1,1},
   {1,0,0,0,0,0,0,0,0,0,0,1},
   {1,0,1,1,1,1,1,0,1,1,0,1},
   {1,0,1,0,0,0,0,1,1,1,0,1},
   {1,0,1,1,1,1,1,1,1,1,0,1},
   {1,0,1,1,'H',0,0,0,0,1,0,1}, // лабиpинт
   {1,0,1,0,1,1,1,1,0,1,0,1}, // 0 - проход
   {1,0,1,0,1,0,0,1,0,1,0,1}, 
   {1,0,1,0,0,0,0,0,0,1,0,1}, // 5 конеч точка)
   {1,0,1,1,1,1,1,1,0,1,0,1}, //  1 стена
   {1,0,0,0,0,0,0,0,0,0,0,1},
   {1,1,1,1,1,1,1,1,1,1,1,1}};
 
 
 
 
char wave(unsigned char n,int &a,int &b) 
{                                 
    char flag = 0;                 
    for (int i = 1; i < 11; i++) {    
        for (int j = 1; j < 19; j++)    
        {
            if (map[j][i] == n) 
            {         
                if (map[j + 1][i] == 0) 
                {    
                    map[j + 1][i] = n + 1;     
                    flag = 1;                   
                }          
                if(map[j+1][i]=='H') 
                    {a=j; b=i; flag=0; return flag;} 
                if (map[j - 1][i] == 0) 
                {
                    map[j - 1][i] = n + 1;
                    flag = 1; 
                }     
                if(map[j-1][i]=='H')
                   {a=j; b=i; flag=0; return flag;} 
                if (map[j][i + 1] == 0) 
                {
                    map[j][i + 1] = n + 1;
                    flag = 1;
                }              
                if(map[j][i+1]=='H')
                   {a=j; b=i; flag=0; return flag;}
                if (map[j][i - 1] == 0) 
                {
                    map[j][i - 1] = n + 1;
                    flag = 1; 
                }             
                if(map[j][i-1]=='H') 
                  {a=j; b=i; flag=0; return flag;} 
 
            }
            //a=j; b=i;
            
            }
 
         
    }
 
    return flag;
}
 
char step(int &x, int &y) 
{                      
                   
    if (map[x][y] == 'H') //конеч точка
        return 0;       
 
    if (map[x+1][y] > map[x][y]) { 
        x++;                         
        return 1;                    
    }                                
    if (map[x-1][y] > map[x][y]) { 
        x--;                         
        return 1;                    
    }                               
    if (map[x][y+1] > map[x][y] ) { 
        y++;                         
        return 1;                     
    }  
      if (map[x][y-1] > map[x][y]) { 
        y--;                         
        return 1;                     
    }             
 
return 0;
}
 
 
 
 
char stepback(int &x, int &y) 
{                      
                   
    if (map[x][y] == 2) //конеч точка
        return 0;       
 
    if (map[x+1][y] <map[x][y] && map[x+1][y]!=1  ) { 
        x++;                         
        return 1;                    
    }                                
    if (map[x-1][y] < map[x][y]&& map[x-1][y]!=1 ) { 
        x--;                         
        return 1;                    
    }                               
    if (map[x][y+1] <map[x][y]&& map[x][y+1]!=1 ) { 
        y++;                         
        return 1;                     
    }  
      if (map[x][y-1] < map[x][y]&& map[x][y-1]!=1 ) { 
        y--;                         
        return 1;                     
    }             
 
return 0;
}
 
 
void main()
{                                                         
    
 int a=0; int b=0;
        int x=1, y=1;   //начальная точка  
                map[x][y]=2;
    
        unsigned char n=2;
 
        while(wave(n,a,b)) 
        { 
            n++; 
        //printf("(%d,%d)", a,b);
            //cout <<"("<<a<<","<<b<<")";
 
        }
        
        if(a!=0 && b!=0)
        cout <<"("<<a<<","<<b<<")"; else cout<<"PUTI NET";
 
 
 
      /*
        while(step(x,y)) 
        {
        }
*/
x=a; y=b;
 
        while(stepback(x,y)) 
        {cout <<"("<<x<<","<<y<<")";} 
 
 
 
 
 
 
for(int i=0;i<12;i++)
 {printf("\n");
for(int j=0;j<12;j++)
printf("%3d",map[i][j]); }
    
                             
    getch();
   
  
}

Новые блоги и статьи Все статьи Все блоги /
[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .	[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .	Взрослые отношения, и почему они не получаются kumehtar 09.06.2026 Когда в детстве ребёнок не получает от родителей чего-то важного, он лишается не просто приятных переживаний, а основы для формирования определённых внутренних качеств и навыков. Если ребёнок не. . .	[golang] Worker Pool alhaos 09.06.2026 Worker Pool Worker Pool — паттерн конкурентной обработки задач в Go. Суть: фиксированное количество горутин-воркеров читают задачи из общего канала и пишут результаты в общий канал результатов. . . .
[golang] Pipeline alhaos 08.06.2026 Pipeline Pipeline — паттерн конкурентной обработки данных в Go. Суть: данные проходят через цепочку независимых стадий, каждая из которых работает в своей горутине и общается с соседями через. . .	Свет внутри себя kumehtar 07.06.2026 Пусть это будет здесь lIs4oanZS9Y	Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .

Evg 21281 / 8305 / 637 Регистрация: 30.03.2009 Сообщений: 22,660 Записей в блоге: 30
	27.01.2010, 20:34
	Ты спросил "в чем проблемма????". Я тебе ответил одну из возможных причин. Действительно, потратить 1 минуту на то, чтобы выложить полный рабочий исходник программы - это не барское дело. И не по-пацански как-то получается: ты в поте лица, ценой долгих и бессонных ночей, писал программу, а тут люди хотят что-то нахаляву. 0

@22dr22 6 / 6 / 0 Регистрация: 31.12.2009 Сообщений: 132
	27.01.2010, 20:41
	я такое даже за деньги писать не буду - стыдно, за такое брать =))))) но впринципе Evg - ты прав!!!! 0

Evg 21281 / 8305 / 637 Регистрация: 30.03.2009 Сообщений: 22,660 Записей в блоге: 30
	27.01.2010, 21:10
	Тогда поехали дальше. Если посмотреть на твою функцию, то единственное, что она модифицирует - это переменная kill. Т.е. результатом её работы просто является какая-то циферка, по которой, судя по всему, можно только сказать, нашла что-то твой функция, или не нашла. А в 13-м посте подняли вопрос на тему того, как искать путь, а не магическую циферку (которая, возможно, означает количество шагов, ибо по украински не понимаю). Т.е. в итоге ты предоставил какую-то программу, которая попросту делает не то, чего хотелось бы, да ещё и непонятно, с чем её есть и куда засунуть. 0

@22dr22 6 / 6 / 0 Регистрация: 31.12.2009 Сообщений: 132
	27.01.2010, 21:13
	эта циферка - количество возможных путей..... 0

Evg 21281 / 8305 / 637 Регистрация: 30.03.2009 Сообщений: 22,660 Записей в блоге: 30
	27.01.2010, 21:14
	Тем более. Количество путей как таковое мало кому интересно. Куда интереснее сам путь 0

@22dr22 6 / 6 / 0 Регистрация: 31.12.2009 Сообщений: 132
	27.01.2010, 21:56
	надо просто записывать пройденные координаты, а потом когда исполняется условие if(......) { kil++; запомнить путь в какую-то переменную... или массив } Добавлено через 6 минут все больше ничего не говорю...... еще два поста и придеться код писать =))), хотя там две строчки..... добавить надо... 0

@BOR1K 14 / 14 / 3 Регистрация: 19.09.2009 Сообщений: 289
	28.01.2010, 12:49
	Путей то много, нужно определенный, в массив записывать. 0

@22dr22 6 / 6 / 0 Регистрация: 31.12.2009 Сообщений: 132
	28.01.2010, 13:07
	ты не понял - пробуеш один путь...записал его, напримр в K[][], если есть путь до конца выполняеться условие и kil++; здесь записываешь этот путь во внешнею переменную...M[кол. путей][x][y]=K[x][y];кол. путей++; если нет записываеш новый путь в k[][]. в итоге у тебя будут все возможные пути в трехмерном массиве М. 0

@BOR1K 14 / 14 / 3 Регистрация: 19.09.2009 Сообщений: 289
	28.01.2010, 14:50
	м.. Надо все бы это заново реализовать, и для косоли 0

@22dr22 6 / 6 / 0 Регистрация: 31.12.2009 Сообщений: 132
	28.01.2010, 14:59
	дерзай =))) набирай опыт лог мышления и практику программирования 0

@BOR1K 14 / 14 / 3 Регистрация: 19.09.2009 Сообщений: 289
	28.01.2010, 15:01
	Если напишу, с тебя спасибо) 0

@22dr22 6 / 6 / 0 Регистрация: 31.12.2009 Сообщений: 132
	28.01.2010, 15:11
	сам себе спасибо скажешь, не мне это программа нужна, если б была - уже написал бы =)))))))) 0