Паскаль. Создание бегущей строки.

[Razorishe]

Добрый день посетители форума. Такая задача в этот раз:
Создать текстовое окно. С клавиатуры ввести текст и реализовать бегущую строку в окне.
Получилось только так:

uses crt;
var s:string;
     x:byte;
begin
 clrscr;
 window(1,1,80,1);
 write('Enter text: ');
 readln(s);
 x:=1;
 repeat
  delay(30000);
  delline;
  write(s);
  gotoxy(x,1);
  x:=x+1;
  if x=80 then x:=1;
 until keypressed
 end.

Мне нужно чтобы текст сначало выезжал из-за границы, потом заезжал за неё и так крутился, а у меня получилось только чтобы выезжал после того как зайдет за границу.

[Stilet]

В твой код я не вьехал - предлагаю что-то типа этого:

uses crt;
var s:string;x:integer;
begin
s:='1234';
x:=0;      clrscr;
repeat
 textcolor(white);
 gotoxy(x,1);write(s);
 inc(x);
 delay(50);
 textcolor(black);
 gotoxy(x-1,1);
 write(x,s);
 if (x-length(s)>=80) then delete(s,length(s),1);
 if x=80 then begin
  x:=1;
  s:='1234';
 end;
until keypressed;
end.

[Razorishe]

Если ввести строку по длиннее, то текст выезжает сначало во второй строчке, после этого перескакивает на первую..

[Stilet]

Ну так поправь условие выезда.

[Jean-Esther]

у меня нечто такое вышло. Размер окна указываем в константе max

uses Crt;
const max=20;
var s,t:string;
    x,i:integer;
begin
clrscr;
writeln('text: ');
readln(t);
clrscr;
x:=0;
repeat
      clrscr;
      x:=x+1;
      if x<=length(t) then begin s:=copy(t,length(t)-x+1,x); write(s) end;
      if (x>length(t)) and (x<max) then begin for i:=1 to x-length(s) do write(' '); write(t) end;
      if x>=max then begin
                     x:=x-max;
                     for i:=1 to x+2{+length(t)} do write(' ');
                     s:=copy(t,1,length(t)-x-1);
                     write(s);
                     x:=x+max;
                end;
      if x=max+length(t) then x:=0;
      delay(20000);
until keypressed;
end.

[bag]

В принципе задача классическая, поэтому решение тривиальное:

uses crt;
const
  len=10; {Размер видимой области}
var
  buf:string;
  s:string;
  i:integer;
begin
  clrscr;
  readln(s);
  buf:='';
  for i:=1 to len do
  begin
    buf:=buf+' ';
  end;
  i:=1;
  repeat
    delay(5000);
    clrscr;
    buf:=copy(buf,2,len)+s[i];
    writeln(buf);
    if n<length(s) then
      inc(i)
    else
      i:=1;
  until keypressed;
end.

[Razorishe]

Всем огромное спасибо за помощь!