Помощь - Поиск - Пользователи - Календарь
Полная версия: Прога "Расписание дня недели"
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
KiRyXA
Вообщем сабж, копался на компе нашел паскаль , в нем прога когдато в учебное время написал, делать на уроках было нечиго smile.gif
Прога работает так, пишиш день , она тебе расписание на этот день. Это все я сделал, вот тока проблема что везде почти стоит readln и неебходимо нажимать enter чтобы прога двигалась дальше, как можно поставить задержку ну допустим на пару секунд?? и еще надо чтобы буквы ну тоже был эфект что набираются, т.е не просто появляются предложения, а как бы идет набор букв. что можно сделать? wink.gif
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 , тада норма smile.gif

Добавлено через 16 мин.
ps хоть 60 000 ставь, задержки нету особой, сходу пролетает и все. mega_chok.gif
amega
попробуй постав 2-3 задерски сразу d7.gif
KiRyXA
И как можно удалить символ в одной строке, т.е там где уже написано, вот допустим надо 6% 7% 8% , и чтобы ненановой строке, а там где 6 там же и остальные символы??
Client
gotoxy(x,y)
KiRyXA
А по развернутее?? На примере какой нить проги можно?
Michael_Rybak
а поискать самому?
andriano
Цитата(KiRyXA @ 10.03.2008 13:39) *

И как можно удалить символ в одной строке, т.е там где уже написано, вот допустим надо 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;

Если не задать ширину поля вывода - будет некрасиво smile.gif
andriano
Цитата(volvo @ 14.03.2008 19:19) *
Если не задать ширину поля вывода - будет некрасиво smile.gif
Это правда.
Но, когда размещал код, решил, что этот "элемент оформления" автор вопроса может легко вставить сам. Тем более, что если перед "бегущими процентами" будет еще фрагмент строки, то без такой правки предлагаемый фрагмент будет выглядеть совсем уж некрасиво.

PS. Кстати, почему ты не добавил, что переменная j вообще не нужна? ;)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.