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

[M@RRy]

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

[klem4]

А режим какой ? Текстовый, графический ?

[M@RRy]

А режим какой ? Текстовый, графический ?

Графический

[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 20:05

[volvo]

klem4,
А отключать звук кто будет? Моцарт?
NoSound где?

[klem4]

Да, я вспомнил про него, но вроде и без него наормально в FPC. У тебя он не прекращается ?

[volvo]

А ты уверен, что автор вопроса пользуется FPC?

[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

[M@RRy]

О!Спасибо большое!Всё работает,уже даже сдала работу.