Задача. Бегущая строка Опции

[b0r1and]

Пмогите пожалуйста написать программу.
Бегущая строка. Прямое и обратное направление. Оформить интерфейс. Диалог выбора.
Вот что есть

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 - 28.05.2005 17:45

[volvo]

Ну, вот тебе набросок... Совершенствуй :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.

[b0r1and]

volvo большое спасибо!!!