Прога "Расписание дня недели", Для души =) Опции

[KiRyXA]

Вообщем сабж, копался на компе нашел паскаль , в нем прога когдато в учебное время написал, делать на уроках было нечиго
Прога работает так, пишиш день , она тебе расписание на этот день. Это все я сделал, вот тока проблема что везде почти стоит readln и неебходимо нажимать enter чтобы прога двигалась дальше, как можно поставить задержку ну допустим на пару секунд?? и еще надо чтобы буквы ну тоже был эфект что набираются, т.е не просто появляются предложения, а как бы идет набор букв. что можно сделать?

[volvo]

Лучше:

  write('currently: ');
  for i := 1 to 100 do begin
    write(i:3, '%'); { <--- Задаем ширину = 3 }
    delay(25);
    write(#8#8#8#8);
  end;

Если не задать ширину поля вывода - будет некрасиво

[andriano]

Если не задать ширину поля вывода - будет некрасиво

Это правда.
Но, когда размещал код, решил, что этот "элемент оформления" автор вопроса может легко вставить сам. Тем более, что если перед "бегущими процентами" будет еще фрагмент строки, то без такой правки предлагаемый фрагмент будет выглядеть совсем уж некрасиво.

PS. Кстати, почему ты не добавил, что переменная j вообще не нужна? ;)

Сообщение отредактировано: andriano - 14.03.2008 23:52