Вывести текст <go Up>, Помогите с курсовой Опции

[M@RRy]

Задание:
Вывести текст <GO UP> в низ экрана и осуществить поочерёдное всплывание букв в центре экрана...
Какждая всплывающия буква должна сопровождаться звуком...
P.S: большая просьба помогите мне написать эту задачу

[klem4]

В текстовом вот что получилось, если похоже, щас сделаем для графического ...

uses crt;
const

   n = 7;

   T : string[7] = '<Go Up>';
   a : array [1..n] of char = ('<','G','o',' ','U','p','>');
var
   i,j : word;

begin
   clrscr;
   GotoXY(37,25);
   writeln(T);
   for i := 1 to 7 do begin
      delay(300);
      T[i] := ' ';
      GotoXY(37,25);
      writeln(T);
      if a[i] <> ' ' then
      for j := 24 downto 12 do begin
         Sound(7);
         GotoXY(37 + i - 1, j);
         write(a[i]);
         if j < 24 then begin
            GoToXY(1,j+1);
            ClrEOL;
         end;
         delay(100);
         ClrEOL;
      end;
   end;
   readln;
end.

Сообщение отредактировано: klem4 - 6.02.2006 16:05