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

  grDriver: Integer;

  grMode: Integer;

  p:citycode;

begin

  grDriver := Detect;

  InitGraph(grDriver, grMode,'');

  setcolor(12);

  outtextxy(200,0,'Карта транспортной схемы');

  p:=1;

  while (p<maxcity) and (city[p].name<>'') do begin

    setcolor(5);

    fillellipse(4*city[p].x,380-3*city[p].y,2,2);

    setcolor(11);

    outtextxy(4*city[p].x+5,376-3*city[p].y,city[p].name);

    inc(p)

  end;

end;

var List:PFLight; pattern:blank; st:string; p:answerlist;

 city:cities;         a:dat;

Procedure Input(var Pattern:blank; var a:dat);

var i:citycode; st:string; b:dat; w:real;

begin

  with pattern do begin

    GotoXY(30,1);

    WriteLn('Ввод исходных данных');

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





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