Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача. Бегущая строка
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
b0r1and
Пмогите пожалуйста написать программу.
Бегущая строка. Прямое и обратное направление. Оформить интерфейс. Диалог выбора.
Вот что есть
uses crt;
var str, str2: string;
i,k:byte;
Begin
clrscr;
str:=' Hello ';
k:=80-length(str);
for i:=1 to k-1 do
str:=str+' ';
repeat
delete(str,1,1);
gotoxy(1,10);
write(str);
delay(4000);
delline;
str2:=copy(str,1,1);
str:=str+str2;
until keypressed;
end.
volvo
Ну, вот тебе набросок... Совершенствуй :D :
uses crt;
var
str: string;
i: byte;
ch: char;
Begin
clrscr;
str:='Hello';
writeln('1: >>> ');
writeln('2: <<< ');
readln(ch);
clrscr;
case ch of
'1':
repeat
i := 1;
while (i <= (80 - length(str))) and (not keypressed) do begin
gotoxy(i, 10); delline;
write(str);
delay(7500);
inc(i);
end;
delline;
until keypressed;
'2':
repeat
i := 80 - length(str);
while (i > 0) and (not keypressed) do begin
gotoxy(i, 10); write(str);
clreol;
delay(7500);
dec(i);
end;
delline;
until keypressed;
else
writeln('Error...')
end;
end.
b0r1and
volvo большое спасибо!!!
dimon1988
А как реализовать бег строки сверху вниз, причем не просто слово смещается на строчку вниз, а сперва появляется по букве и т.д. Я что-то зашел в тупик как это сделать (
Заранее благодарен
volvo
В поиск... Тема называлась как-то вроде "Часы" или что-то в этом роде, вторым вопросом в ней было перемещение строки по вертикали, причем еще и между разными окнами...
dimon1988
volvo Огромное спасибо. Я искал, только в неверном направлении)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.