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

    write(line);

    repeat

    write('Начальный город ... ');

    readln(st);

    Bcity:=1; while (BCity<Maxcity) and (City[BCity].name<>st) do inc(BCity);

    until BCity<>MaxCity;

    repeat

    write('Конечный город ... ');

    readln(st);

    Ecity:=1; while (ECity<Maxcity) and (City[ECity].name<>st) do inc(ECity);

    until Ecity<>MaxCity;

    repeat

    gotoxy(1,5);

    WriteLn('Дата отправление:');

    DTInput(a);

    delay:=a.Dweek*1440+a.time;

    Write('Максимальное время пути (сутки):');

    readln(w);

    waytime:=round(1440*w);

    until waytime>0;

    write('Максимальная стоимость ... ');

    ReadLn(cost);

    write('Максимальное число пересадок ... ');

    readln(reboading);

    write('Тип перевозки (авиа,ж.д.,авто,водн.) ... ');

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



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

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