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

[max12]

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

[Jahnerus]

Ну в общем если реализовывать ЭТО в текстовом режиме то получиться может примерно следующее ... А вообще если чесно то это не задача а один большой ГЕМОРОЙ.

Код

uses
 crt;
var
 i,j,l:byte;
 ch:char;
 s:array[1..255] of char;
procedure win(x,y,dx,dy:integer);
begin
for i:=x to x+dx do begin
 gotoxy(i,y);
 write('/');
 gotoxy(i,y+dy);
 write('/');
end;
for i:=y to y+dy do begin
 gotoxy(x,i);
 write('/');
 gotoxy(x+dx,i);
 write('/');
end;
end;
begin
clrscr;
win(5,5,30,15);
win(45,5,30,15);
gotoxy(6,12);
repeat
 if keypressed then begin
   l:=l+1;
   gotoxy(l+5,12);
   ch:=readkey;
   s[l]:=ch;
   write(ch);
 end;
until (ord(ch)=13) or (l=29);
if l=29 then l:=l+1;
s[l]:=' ';
repeat
for i:=74 downto 46-l do begin
 j:=1;
 while (j<=75-i) and (j<=l) do begin
   if (i+j)<47 then begin
     j:=j+1;
     continue;
   end;
   gotoxy(i+j-1,12);
   write(s[j]);
   gotoxy(1,1);
   delay(1000);
   j:=j+1;
   if keypressed then exit;
 end;
end;
until false;
end.

Сообщение отредактировано: Jahnerus - 11.11.2004 23:48