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

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::FormCreate(TObject *Sender)

{

        MakeNullPole();

        CreatePole(Image1);

        ShowPole(Image1);

        Form1->Top = -900;

        oo->Resume();

 

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Image1MouseDown(TObject *Sender,

      TMouseButton Button, TShiftState Shift, int X, int Y)

{

        int x;

        int y;

        if(F_2){

                x = (X/40+1)*40-40;

                y = (Y/40+1)*40-40;

 

                if(!CreateLine(x,y,Image1)){

                        ShowMessage("Error");

                }

        }

 

        if(F_3){

                x = (X/40+1)*40-40;

                y = (Y/40+1)*40-40;

                int i;

                int j;

                i = x/40;

                j = y/40;

                if(Pole[i][j].value==1){

                        Image1->Canvas->Brush->Color = clBlack;

                        Image1->Canvas->Rectangle((i+1)*40-40,(j+1)*40-40,(i+1)*40,(j+1)*40);

                        Start = Pole[i][j].v;

                        F_3 = false;

                        createStrelka(Image1);

                }

        }

 

        if(F_4){

                x = (X/40+1)*40-40;

                y = (Y/40+1)*40-40;

                int i;

                int j;

                i = x/40;

                j = y/40;

                if(Pole[i][j].value==1){

                        Image1->Canvas->Brush->Color = clBlack;

                        Image1->Canvas->Rectangle((i+1)*40-40,(j+1)*40-40,(i+1)*40,(j+1)*40);

                        End = Pole[i][j].v;

                        F_4 = false;

                        createStrelka(Image1);

                }

        }

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

        F_2 = !F_2;

        F_1 = false;

        for(int i=0; i<razmPolya; i++){

                for(int j=0; j<razmPolya; j++){

                        if(Pole[i][j].value == 5){

                                Pole[i][j].value = 0;

                        }

                }

        }

        Button2->Enabled = false;

        Image1->Canvas->Pen->Color = clBlack;

        ShowPole(Image1);

}

//---------------------------------------------------------------------------

 

//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)

{

        Deicstr(Start-1,End-1,Image1);

        //ShowPole(Image1);

        createStrelka(Image1);

       

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)

{

        if(Start <0){

                F_3 = !F_3;

                Button5->Enabled = false;

        }else{

 

        }

        F_2 = F_1 =false;

       

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)

{

        MakeNullPole();

        for(int i=0; i<100; i++){

                Deic[i].sum = 9999;

                Deic[i].value = 0;

                Deic[i].visible = true;

                Deic[i].prev = -1;

        }

        for(int i=0; i<100; i++){

                for(int j=0; j<100; j++){

                        mas[i][j] = 0;

                }

        }

        N_1 = -1;

        vN = 0;

        F_1 = F_2 = F_3 = F_4 =false;

        Start = End = -1;

        Button7->Enabled = true;

        Button5->Enabled = true;

        Button2->Enabled = true;

        Image1->Canvas->Pen->Color = clBlack;

        Image1->Canvas->Pen->Width = 1;

        ShowPole(Image1);

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Button7Click(TObject *Sender)

{

        if(End <0){

                F_4 = !F_4;

                Button7->Enabled = false;

        }else{

 

        }

        F_1 = F_2 = F_3 = 0;

       

}

//-------------------------------------------------------------------------

void __fastcall TForm1::N1Click(TObject *Sender)

{

        ShellExecute(NULL,"open","spravka.txt",NULL,NULL,SW_SHOWNORMAL);       

}

//---------------------------------------------------------------------------

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Блок-схема  алгоритма Дейкстры

 

 

 

  Список литературы

1. А. Я. Архангельский «С++ Builder 6»
2. М.И. Динман «С++.Освой на примерах»
3. Г. Шилдт «Самоучитель С++»
4. Б. Страуструп «Язык программирования C++» (Спец. издание)
5. У. Топп, У. Форд  «Структуры данных в С++»
6. Т. Павловская «C/C++. Программирование на языке высокого уровня»
7. В. Липский «Комбинаторика для программистов»
8. Г. Иванова «Технология программирования»