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

[KiRyXA]

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

[amega]

вот можеж посмотреть ету прогу она пишет слово Text по буквам

uses crt;
procedure D;
begin
delay(5000);
end;
Var i: integer;
begin
 clrscr;
for i:=1 to 20 do begin
Write('t');d;
Write('e');d;
Write('x');d;
Writeln('t');d;
end;
Readln;
end.

Что задержка била ето нужно писать например delay(10000) если нужно побольше delay(50000) подключивши модуль crt;

[KiRyXA]

Хм, большое спасибо, вот тока delay не 5000 а 50 000 , тада норма

Добавлено через 16 мин.
ps хоть 60 000 ставь, задержки нету особой, сходу пролетает и все.

[amega]

попробуй постав 2-3 задерски сразу

[KiRyXA]

И как можно удалить символ в одной строке, т.е там где уже написано, вот допустим надо 6% 7% 8% , и чтобы ненановой строке, а там где 6 там же и остальные символы??

[Client]

gotoxy(x,y)

[KiRyXA]

А по развернутее?? На примере какой нить проги можно?

[Michael_Rybak]

а поискать самому?

[andriano]

И как можно удалить символ в одной строке, т.е там где уже написано, вот допустим надо 6% 7% 8% , и чтобы ненановой строке, а там где 6 там же и остальные символы??

uses crt;
var i,j : integer;
begin
  for i := 0 to 100 do begin
    write(i,'%');
    delay(100);
    write(#8#8#8#8);
  end;
end.

[KiRyXA]

andriano Спасибо большое!
Я сам искал но толком ничего не нашел, мож кто тыкнет? =)

[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