Как исправить эту программу "Бегущая строка" под общий случай. Чтобы можно было ввести...

Question

Как исправить эту программу "Бегущая строка" под общий случай. Чтобы можно было ввести любую бегущую строку. Помогите пожалуйста!
Программа «Бегущая строка»
Uses Crt;
Procedure Beg(x,y,Len : Byte; S : String);
Var i : Byte;
Begin
For i:=1 to Len do S:=' '+S+' ';
Repeat
GoToXY(x,y);
Writeln(Copy(S,1,Len));
Delete(S,1,1);
Delay(100);
Until Length(S) end;

Begin
Beg(10,10,20,'Бегущая строка');
end.

Comments

после uses Crt добавляете строку var st: string; после слова begin в конце программы добавляете строку write('задайте строку '); readln(st); и меняете вызов процедуры Beg(10,10,10,st);

---

Uses Crt;var st: string;Procedure Beg (10,10,10,st);Var i : Byte;Begin For i:=1 to Len do S:=' '+S+' '; Repeat GoToXY(x,y); Writeln(Copy(S,1,Len)); Delete(S,1,1); Delay(100); Until Length(S)<Len;end;Begin write ('задайте строку ');readln(st);end.

---

Вот так? Что-то не получается.(((

---

Заголовок процедуры менять не надо, надо изменить вызов процедуры в последнем блоке begin ... end. Procedure Beg(x,y,Len : Byte; S : String); - так и остается, Beg(10,10,20,'Бегущая строка'); - заменяется на Beg (10,10,10,st);

---

Uses Crt;Procedure Beg(x,y,Len : Byte; S : String);Var i : Byte;BeginFor i:=1 to Len do S:=' '+S+' ';RepeatGoToXY(x,y);Writeln(Copy(S,1,Len));Delete(S,1,1);Delay(100);Until Length(S);end;BeginBeg (10,10,10,st);end.

---

Вот так что ли? Опять не получается!(((

---

Сбросил я вам программу

Answer 1

Устал я реанимировать вашу программу, проще снова написать. Текст во вложении.

Comments

Спасибо большое. Но что-то не то опять. Строка не идёт.

---

Введите строку выводит команда, но бегущей строки не получается(((((

---

Это был вариант "слева - направо" (для арабов) а вот вариант "справа - налево"Uses Crt;
var st: string;
Procedure Beg(x,y : Byte; S : String);
Var i,n: Byte;
ss: string;
Begin
n:=80-2*x;
ss:='';
for i:=1 to n do ss:=ss+' ';
Repeat
For i:=1 to n+Length(S) do
begin
Delete(ss,1,1);
if i<= Length(S) then ss:=ss+S[i]<br> else ss:=ss+' ';
GoToXY(x,y);
Write(ss);
Delay(20000);
end;
Until KeyPressed;
end;

Begin
write('задайте строку: ');
readln(st);
Beg (10,10,st);
end.

---

А как сделать чтоб строка быстрее шла?

---

Чтобы строка быстрее шла уменьшите задержку по времени Delay(20000) , поставьте Delay(10000) - будет в два раза быстрее