Никто не поможет составить прогу?, Бегущая строка Опции

[max12]

Составить программу вывода на экран двух окон, обрамленных рамкой. В первое окно ввести строку текста. При нажатии клавиши "Ввод" во втором окне появится ее копия в виде непрерывно "бегущей" справа налево строки.

[volvo]

Jahnerus

Небольшая модернизация:

Код

Uses Crt;

Procedure Win( xSt, ySt, xFn, yFn: Word);
 Var i: Integer;
 Begin
   For i := Succ(xSt) To Pred(xFn) Do
     Begin
       GotoXY(i, ySt); Write(#205);
       GotoXY(i, yFn); Write(#205);
     End;
   For i := Succ(ySt) To Pred(yFn) Do
     Begin
       GotoXY(xSt, i); Write(#186);
       GotoXY(xFn, i); Write(#186);
     End;
   GotoXY(xSt, ySt); Write(#201);
   GotoXY(xSt, yFn); Write(#200);
   GotoXY(xFn, ySt); Write(#187);
   GotoXY(xFn, yFn); Write(#188);
 End;


Const
 makeLen: Byte = 29;
Var
 s: String;
 Ch: Char;

Begin
 ClrScr;
 Win(5, 5, 35, 20);
 Win(45, 5, 75, 20);

 GotoXY(6, 12);
 ReadLn(s);
 While Length(s) < makeLen Do
   s := #32 + s;

 Repeat
   GotoXY(46, 12); Write(s);
   Ch := s[1];
   move(s[2], s[1], Pred(makeLen));
   s[makeLen] := Ch;
   Delay(15000);
 Until KeyPressed;

 While KeyPressed Do
   ReadKey;
End.