Листание Опции

[ЮльКа)]

Как сделать в паскале листание? (например у нас 50 вагонов, а на экран помещается только 10 , вот как сделать чтобы можно было все просмотреть?)

[ЮльКа)]

М

Пожалуйста, используй теги ...

PROCEDURE POISK;
Var  I, J : INTEGER;
      NVg : STRING;
Begin TextColor(White);
      WriteLn('Введите 8-значный номер вагона: '); ReadLn(NVg);
      WriteLn('------T-------T--------T-----T--------T---------------------------------------¬');
      WriteLn('¦Поезд¦ Время ¦ Вагон# ¦Масса¦Разметка¦         Станция назначения            ¦');
      WriteLn('¦-----+-------+--------+-----+--------+---------------------------------------¦');
      For I:= 1 to Np Do
          For J:= 1 to Nv Do
              If Mas[i][j].VagT = NVg Then TABLE( i, j );
      WriteLn('L-----+-------+--------+-----+--------+----------------------------------------');
      TextColor(GREEN);
      WriteLn; WriteLn('<Backspace> - Вернуться в меню');
      Repeat Until ReadKey = #8; MAINMENU;
End;

вот чтобы в этой процедуре было листание

Сообщение отредактировано: klem4 - 12.06.2007 16:22