Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

        Q:=Q^.last;

      end;

      newdat(a,p^.waytime,b);

      writeln ('  цена: ',P^.mincost,' - ',p^.maxcost);

      readln(st);

      if st='p' then begin

        graphout(city);

        q:=p^.path;

        c:=2;

        while q<>nil do begin

        i:=1;

        y:=q^.flight^.path;

        while y^.way[i].city<>q^.bcity do begin

         i:=(i mod 4)+1; if i=1 then y:=y^.next;

        end;

        setcolor(c);

        moveto(4*city[q^.bcity].x,380-3*city[q^.bcity].y);

        repeat

         i:=(i mod 4)+1; if i=1 then y:=y^.next;

         lineto(4*city[y^.way[i].city].x,380-3*city[y^.way[i].city].y);

        until (y^.way[i].city=q^.target);

        Q:=Q^.last; inc(c);

        end;        repeat until keypressed;  CloseGraph;

       end;

      P:=P^.next;

Рекомендуем скачать другие рефераты по теме: курсовик, вред реферат.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки