IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача. Бегущая строка
сообщение
Сообщение #1


Гость






Пмогите пожалуйста написать программу.
Бегущая строка. Прямое и обратное направление. Оформить интерфейс. Диалог выбора.
Вот что есть
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 -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Ну, вот тебе набросок... Совершенствуй :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.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






volvo большое спасибо!!!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской
Реальное имя: asdf

Репутация: -  0  +


А как реализовать бег строки сверху вниз, причем не просто слово смещается на строчку вниз, а сперва появляется по букве и т.д. Я что-то зашел в тупик как это сделать (
Заранее благодарен
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






В поиск... Тема называлась как-то вроде "Часы" или что-то в этом роде, вторым вопросом в ней было перемещение строки по вертикали, причем еще и между разными окнами...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской
Реальное имя: asdf

Репутация: -  0  +


volvo Огромное спасибо. Я искал, только в неверном направлении)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.10.2020 23:50
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name