unit2.pas

旅游查询系统

      informations[11,2,1].departtime:=20;
      informations[11,2,1].arrivaltime:=22;
      informations[11,2,1].fee:=1190;

      informations[7,2,1].title:='MU291';
      informations[7,2,1].departtime:=8;
      informations[7,2,1].arrivaltime:=10;
      informations[7,2,1].fee:=1160;

      informations[10,3,1].title:='CZ3404';
      informations[10,3,1].departtime:=11;
      informations[10,3,1].arrivaltime:=13;
      informations[10,3,1].fee:=1190;

      informations[12,3,1].title:='CA4303';
      informations[12,3,1].departtime:=16;
      informations[12,3,1].arrivaltime:=19;
      informations[12,3,1].fee:=2640;

      informations[7,4,1].title:='CA1207';
      informations[7,4,1].departtime:=20;
      informations[7,4,1].arrivaltime:=22;
      informations[7,4,1].fee:=1370;

      informations[9,5,1].title:='HU7239';
      informations[9,5,1].departtime:=18;
      informations[9,5,1].arrivaltime:=20;
      informations[9,5,1].fee:=1060;

      informations[10,5,1].title:='CZ6422';
      informations[10,5,1].departtime:=15;
      informations[10,5,1].arrivaltime:=18;
      informations[10,5,1].fee:=1600;

      informations[7,6,1].title:='HU3039';
      informations[7,6,1].departtime:=9;
      informations[7,6,1].arrivaltime:=11;
      informations[7,6,1].fee:=890;

      informations[12,7,1].title:='CZ9318';
      informations[12,7,1].departtime:=20;
      informations[12,7,1].arrivaltime:=22;
      informations[12,7,1].fee:=1470;

    {铁路时刻表}
      informations[1,6,2].title:='T103';
      informations[1,6,2].departtime:=21;
      informations[1,6,2].arrivaltime:=23;
      informations[1,6,2].fee:=60;

      informations[6,2,2].title:='T103';
      informations[6,2,2].departtime:=23;
      informations[6,2,2].arrivaltime:=9;
      informations[6,2,2].fee:=300;

      informations[1,8,2].title:='T29';
      informations[1,8,2].departtime:=13;
      informations[1,8,2].arrivaltime:=19;
      informations[1,8,2].fee:=130;

      informations[8,3,2].title:='T29';
      informations[8,3,2].departtime:=19;
      informations[8,3,2].arrivaltime:=11;
      informations[8,3,2].fee:=320;

      informations[1,4,2].title:='T71';
      informations[1,4,2].departtime:=8;
      informations[1,4,2].arrivaltime:=20;
      informations[1,4,2].fee:=240;

      informations[1,5,2].title:='T83';
      informations[1,5,2].departtime:=20;
      informations[1,5,2].arrivaltime:=6;
      informations[1,5,2].fee:=180;

      informations[1,7,2].title:='Z55';
      informations[1,7,2].departtime:=17;
      informations[1,7,2].arrivaltime:=6;
      informations[1,7,2].fee:=270;

      informations[1,11,2].title:='K21';
      informations[1,11,2].departtime:=13;
      informations[1,11,2].arrivaltime:=12;
      informations[1,11,2].fee:=470;

      informations[1,10,2].title:='T7';
      informations[1,10,2].departtime:=9;
      informations[1,10,2].arrivaltime:=8;
      informations[1,10,2].fee:=490;

      informations[2,9,2].title:='K47';
      informations[2,9,2].departtime:=12;
      informations[2,9,2].arrivaltime:=14;
      informations[2,9,2].fee:=60;

      informations[9,3,2].title:='K47';
      informations[9,3,2].departtime:=14;
      informations[9,3,2].arrivaltime:=11;
      informations[9,3,2].fee:=310;


      informations[2,6,2].title:='T104';
      informations[2,6,2].departtime:=22;
      informations[2,6,2].arrivaltime:=8;
      informations[2,6,2].fee:=300;

      informations[6,1,2].title:='T104';
      informations[6,1,2].departtime:=8;
      informations[6,1,2].arrivaltime:=10;
      informations[6,1,2].fee:=60;

      informations[3,8,2].title:='T30';
      informations[3,8,2].departtime:=11;
      informations[3,8,2].arrivaltime:=3;
      informations[3,8,2].fee:=320;

      informations[8,1,2].title:='T30';
      informations[8,1,2].departtime:=3;
      informations[8,1,2].arrivaltime:=9;
      informations[8,1,2].fee:=130;

      informations[4,1,2].title:='T72';
      informations[4,1,2].departtime:=19;
      informations[4,1,2].arrivaltime:=7;
      informations[4,1,2].fee:=240;

      informations[5,1,2].title:='T84';
      informations[5,1,2].departtime:=21;
      informations[5,1,2].arrivaltime:=7;
      informations[5,1,2].fee:=180;

      informations[7,1,2].title:='Z56';
      informations[7,1,2].departtime:=21;
      informations[7,1,2].arrivaltime:=10;
      informations[7,1,2].fee:=270;

      informations[11,1,2].title:='K22';
      informations[11,1,2].departtime:=19;
      informations[11,1,2].arrivaltime:=18;
      informations[11,1,2].fee:=470;

      informations[10,1,2].title:='T8';
      informations[10,1,2].departtime:=10;
      informations[10,1,2].arrivaltime:=9;
      informations[10,1,2].fee:=490;

      informations[3,9,2].title:='K48';
      informations[3,9,2].departtime:=9;
      informations[3,9,2].arrivaltime:=6;
      informations[3,9,2].fee:=310;

      informations[9,2,2].title:='K48';
      informations[9,2,2].departtime:=6;
      informations[9,2,2].arrivaltime:=8;
      informations[9,2,2].fee:=60;

      informations[2,11,2].title:='K197';
      informations[2,11,2].departtime:=19;
      informations[2,11,2].arrivaltime:=14;
      informations[2,11,2].fee:=390;

      informations[2,7,2].title:='T139';
      informations[2,7,2].departtime:=16;
      informations[2,7,2].arrivaltime:=9;
      informations[2,7,2].fee:=410;

      informations[2,4,2].title:='K57';
      informations[2,4,2].departtime:=9;
      informations[2,4,2].arrivaltime:=7;
      informations[2,4,2].fee:=280;

      informations[3,11,2].title:='K37';
      informations[3,11,2].departtime:=18;
      informations[3,11,2].arrivaltime:=9;
      informations[3,11,2].fee:=210;

      informations[3,6,2].title:='T254';
      informations[3,6,2].departtime:=19;
      informations[3,6,2].arrivaltime:=18;
      informations[3,6,2].fee:=440;

      informations[3,10,2].title:='K193';
      informations[3,10,2].departtime:=16;
      informations[3,10,2].arrivaltime:=15;
      informations[3,10,2].fee:=410;

      informations[3,7,2].title:='K226';
      informations[3,7,2].departtime:=19;
      informations[3,7,2].arrivaltime:=17;
      informations[3,7,2].fee:=470;

      informations[6,7,2].title:='K213';
      informations[6,7,2].departtime:=10;
      informations[6,7,2].arrivaltime:=7;
      informations[6,7,2].fee:=340;

      informations[11,2,2].title:='K198';
      informations[11,2,2].departtime:=14;
      informations[11,2,2].arrivaltime:=9;
      informations[11,2,2].fee:=390;

      informations[7,2,2].title:='T140';
      informations[7,2,2].departtime:=19;
      informations[7,2,2].arrivaltime:=12;
      informations[7,2,2].fee:=410;

      informations[4,2,2].title:='K58';
      informations[4,2,2].departtime:=12;
      informations[4,2,2].arrivaltime:=10;
      informations[4,2,2].fee:=280;

      informations[11,3,2].title:='K38';
      informations[11,3,2].departtime:=18;
      informations[11,3,2].arrivaltime:=9;
      informations[11,3,2].fee:=210;

      informations[6,3,2].title:='T253';
      informations[6,3,2].departtime:=13;
      informations[6,3,2].arrivaltime:=12;
      informations[6,3,2].fee:=440;

      informations[10,3,2].title:='K194';
      informations[10,3,2].departtime:=19;
      informations[10,3,2].arrivaltime:=18;
      informations[10,3,2].fee:=410;

      informations[7,3,2].title:='K225';
      informations[7,3,2].departtime:=7;
      informations[7,3,2].arrivaltime:=5;
      informations[7,3,2].fee:=470;

      informations[7,6,2].title:='K214';
      informations[7,6,2].departtime:=11;
      informations[7,6,2].arrivaltime:=6;
      informations[7,6,2].fee:=340;

   {公路时刻表}
      informations[1,6,3].title:='R101';
      informations[1,6,3].departtime:=8;
      informations[1,6,3].arrivaltime:=9;
      informations[1,6,3].fee:=80;

      informations[2,9,3].title:='R203';
      informations[2,9,3].departtime:=17;
      informations[2,9,3].arrivaltime:=18;
      informations[2,9,3].fee:=70;

      informations[4,5,3].title:='R301';
      informations[4,5,3].departtime:=9;
      informations[4,5,3].arrivaltime:=14;
      informations[4,5,3].fee:=120;

      informations[6,1,3].title:='R104';
      informations[6,1,3].departtime:=17;
      informations[6,1,3].arrivaltime:=18;
      informations[6,1,3].fee:=80;

      informations[9,2,3].title:='R202';
      informations[9,2,3].departtime:=11;
      informations[9,2,3].arrivaltime:=12;
      informations[9,2,3].fee:=70;


      informations[5,4,3].title:='R304';
      informations[5,4,3].departtime:=15;
      informations[5,4,3].arrivaltime:=20;
      informations[5,4,3].fee:=120;

      FOR totalnumber:=1 TO 100 DO
          passageinformation[totalnumber].passagename:='';
      totalnumber:=0;



      FOR one:=1 TO 12 DO
          FOR two:=1 TO 12 DO
            BEGIN
                IF one<>two THEN
                BEGIN
                  dist[one,two]:=10000;
                  FOR three:=1 TO 3 DO
                      IF informations[one,two,three].fee<dist[one,two]  THEN
                           dist[one,two]:=informations[one,two,three].fee;
                END
                ELSE dist[one,two]:=0;
            END
end;


end.