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

[M@RRy]

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

[klem4]

Сделал, возможно крайне антинаучным методом, но зато все крайне просто, понятно и работает без ошибок Если будет очень бысто пролетать, увеличь задержки (delay)

uses crt,graph;
const
   n = 7;
   T : string[7] = '<Go Up>';
   a : array [1..n] of char = ('<','G','o',' ','U','p','>');
var
   i,j,x,y : word;
   gd, gm : integer;

begin

   gd := detect;

   InitGraph(gd, gm, '');

   x := GetMaxX;
   y := GetMaxY;

   OutTextXY(x div 2, y - 20, T);

   delay(4000);

   for i := 1 to 7 do begin
      T[i] := ' ';
      OutTextXY(x div 2, y - 20, T);
      SetColor(Black);
      OutTextXY(x div 2 + (i-1) * 8, y - 20, a[i]);
      SetColor(white);
      if a[i] <> ' ' then begin
         j := y - 30;
         while (j > y div 2) do begin
            Sound(7);  NoSOund;
            OutTextXY(x div 2 + (i-1)*8, j,a[i]);
            if j <= y - 40 then begin
               SetColor(black);
               OutTextXY(x div 2 + (i-1)*8,j+10, a[i]);
               SetColor(White);
            end;
            delay(50);
            dec(j,10);
         end;
      end;
   end;

   readln;
   CloseGraph;
end.

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