Версия для печати темы

Автор: KiRyXA 10.03.2008 15:30

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

Автор: amega 10.03.2008 15:52

вот можеж посмотреть ету прогу она пишет слово 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 10.03.2008 16:02

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

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

Автор: amega 10.03.2008 17:34

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

Автор: KiRyXA 10.03.2008 17:39

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

Автор: Client 10.03.2008 22:54

gotoxy(x,y)

Автор: KiRyXA 13.03.2008 20:36

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

Автор: Michael_Rybak 13.03.2008 23:16

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

Автор: andriano 14.03.2008 3:08

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 14.03.2008 23:11

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

Автор: volvo 14.03.2008 23:19

Лучше:

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

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

Автор: andriano 14.03.2008 23:50

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

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