بازي ماربه زبان جاوا

[engeneer_19]

سلام بنا به سوال یکی از دوستام این سوال رو گذاشتم اگر بلدید جواب بدید :
1-بازي ماربه زبان جاوا-قابل اجراروي کامپيوتر
2-زبان برنامه نویسی مشخص, c++ / c توضیحات:

فرض کنيد فروشنده اي بخواهد براي فروش کالايش به 20 شهر مسافرت کند

هر شهر بوسيله يک جاده به چند شهر ديگر متصل است

براي به حداقل رساندن زمان مسافرت مي خواهيم کوتاهترين مسيري را پيدا کنيم که از شهر محل سکونت فروشنده شروع ميشود و از هر شهر ديگر يکبار عبور ميکند و مجددا به شهر محل سکونت فروشنده باز مي گردد

تعيين کوتاهترين مسير در اين مسئله را مسئله فروشنده دوره گرد مي ناميم

از طريق گراف وزن دار
بورلند سي پلاس پلاس 5نوشته شود



سورس + فايل اجرايي + داکيومنت کامل را میخواهد

[آبجی]

سورس بازي مار به زبان pascal

{Programm: snake.pas
 Function: Snake game
 Language: Turbo Pascal 6.0 (turbo Vision)
 Computer Magazine
 (c) BlackMedia 31 }
 {$X+}
 program Snake;
 uses Objects,Menus,Views,Drivers,App,
     Dialogs,USnake;
 const
  cmSnake      = 100;
  cmLevel      = 101;
 type
  TMyApp=object(TApplication)
    Schlange: PSnakeDlg;
    DlgData: Word;
    procedure InitMenuBar; virtual;
    procedure InitStatusLine; virtual;
    procedure HandleEvent(var Event:
      TEvent); virtual;
  end;
   PChangeSpeedDlg=^TChangeSpeedDlg;
  TChangeSpeedDlg=object(TDialog)
    constructor Init;
  end;
 var
  MyApp:TMyApp;
 {--- TMyApp ---}
 procedure TMyApp.InitMenuBar;
 var R:TRect;
 begin
  R.Assign(0,0,80,1);
  MenuBar:=New(PMenuBar,Init(R,NewMenu(
    NewSubMenu('~S~nake', hcNoContext,
      NewMenu(
      NewItem('~G~ame','F2',kbF2,cmSnake,
        hcNoContext,
      NewLine(
      NewItem('~L~evel','F3',kbF3,cmLevel,
        hcNoContext,Nil)))),
    NewItem('~E~nd','',kbESC,cmQuit,
      hcNoContext,Nil)))));
 end;
 procedure TMyApp.InitStatusLine;
 var R: TRect;
 begin
  R.Assign(0,24,80,25);
  StatusLine:=New(PStatusLine,Init(R,
    NewStatusDef(0,0,
    NewStatusKey('~F10~ Menu',kbF10,cmMenu,
    NewStatusKey('~Alt-X~ End',kbAltX,
      cmQuit,
    NewStatusKey('~F2~ Game',kbF2,cmSnake,
    NewStatusKey('~F3~ Level',kbF3,cmLevel,
    nil)))),
  nil)));
 end;
 procedure TMyApp.HandleEvent;
   procedure ChangeSpeed(var DlgData:Word);
  var CSChangeSpeedDlg;
  begin
    CS:=New(PChangeSpeedDlg,Init);
 &nbsp; &nbsp;if ValidView(CS)<>nil then begin
 &nbsp; &nbsp; &nbsp;DisableCommands([cmMenu,cmQuit,
 &nbsp; &nbsp; &nbsp; &nbsp;cmSnake,cmLevel]);
 &nbsp; &nbsp; &nbsp;CS^.SetData(DlgData);
 &nbsp; &nbsp; &nbsp;if Desktop^.ExecView(CS)<>cmCancel
 &nbsp; &nbsp; &nbsp;then CS^.GetData(DlgData);
 &nbsp; &nbsp; &nbsp;dispose(CS,Done);
 &nbsp; &nbsp; &nbsp;EnableCommands([cmMenu,cmQuit,
 &nbsp; &nbsp; &nbsp; &nbsp;cmSnake,cmLevel])
 &nbsp; &nbsp;end
 &nbsp;end;
  &nbsp;procedure Snake(DlgData:Word);
 &nbsp;var SSnakeDlg;
 &nbsp;begin
 &nbsp; &nbsp;S:=New(PSnakeDlg,Init(DlgData));
 &nbsp; &nbsp;if ValidView(S)<>nil then begin
 &nbsp; &nbsp; &nbsp;DisableCommands([cmMenu,cmQuit,
 &nbsp; &nbsp; &nbsp; &nbsp;cmSnake,cmLevel]);
 &nbsp; &nbsp; &nbsp;Desktop^.ExecView(S);
 &nbsp; &nbsp; &nbsp;dispose(S,Done);
 &nbsp; &nbsp; &nbsp;EnableCommands([cmMenu,cmQuit,
 &nbsp; &nbsp; &nbsp; &nbsp;cmSnake,cmLevel]);
 &nbsp; &nbsp;end;
 &nbsp;end;
 begin
 &nbsp;TApplication.HandleEvent(Event);
 &nbsp;If Event.What = evCommand then
 &nbsp; &nbsp;case Event.Command of
 &nbsp; &nbsp; &nbsp;cmSnake : Snake(DlgData);
 &nbsp; &nbsp; &nbsp;cmLevel : ChangeSpeed(DlgData);
 &nbsp; &nbsp; &nbsp;else exit
 &nbsp; &nbsp;end;
 end;
 {--- ChangeSpeed Dialog ---}
 constructor TChangeSpeedDlg.Init;
 var SpeedViewView;
 &nbsp; &nbsp;R:TRect;
 begin
 &nbsp;R.Assign(0,0,24,12);
 &nbsp;TDialog.Init(R,' Select speed ');
 &nbsp;Options:=Options or ofCentered;
 &nbsp;R.Assign(3,3,21,8);
 &nbsp;SpeedView:=New(PRadioButtons,Init(R,
 &nbsp; &nbsp;NewsItem(' ~0~',NewsItem(' ~1~',
 &nbsp; &nbsp;NewsItem(' ~2~',NewsItem(' ~3~',
 &nbsp; &nbsp;NewsItem(' ~4~',NewsItem(' ~5~',
 &nbsp; &nbsp;NewsItem(' ~6~',NewsItem(' ~7~',
 &nbsp; &nbsp;NewsItem(' ~8~',NewsItem(' ~9~',
 &nbsp; &nbsp;nil))))))))))));
 &nbsp;Insert(SpeedView);
 &nbsp;R.Assign(2,2,13,3);
 &nbsp;Insert(New(PLabel,Init(R,
 &nbsp; &nbsp;'~S~peed',SpeedView)));
 &nbsp;R.Assign(2,9,12,11);
 &nbsp;Insert(New(PButton,Init(R,
 &nbsp; &nbsp;'~O~k',cmOK,bfDefault)));
 &nbsp;R.Assign(12,9,22,11);
 &nbsp;Insert(New(PButton,Init(R,
 &nbsp; &nbsp;'~C~ancel',cmCancel,bfNormal)));
 end;
 {--- Main ---}
 begin
 &nbsp;MyApp.Init;
 &nbsp;MyApp.Run;
 &nbsp;MyApp.Done;
 end.