Повернуть волну

[Klik_1602]

как изменить код, чтобы волна побежала справа налево, сверху вниз и снизу вверх
помогите написать ещё 3 кода, вот пример, когда волна бежит слева направо.. и сам текст задачи
текст: Составьте программу вывода на экран окна, которое условно «разбито» на вертикальные столбцы. Верхние части столбцов окрашены одним фоном, нижние – другим. Граница раздела фонов столбцов формирует синусоиду произвольной амплитуды с периодом, равным ширине окна. При нажатии клавиши Enter начинают изменяться соотношения заполнения столбцов разными фонами, т.е. создается эффект «бегущей» слева направо волны.

{$N+}
Uses Crt;

Const
  numBars = 80;
  TimeDelay = 100; { Задержка перед перерисовкой очередного кадра }

Var
  bars: Array[1 .. numBars] of Word;

  currDegree: Double;
  T: Word;
  i, j: Integer;

Const
  Change: Boolean = False;

Begin
  ClrScr;
  For i := 1 To numBars Do
    Begin 
      { Здесь я пытаюсь изобразить синусоиду }
      currDegree := Pred(i) * (360 / numBars);
      bars[i] := Trunc(13 - 12 * sin(currDegree / (180 / Pi)));
    End;


  While True Do
    Begin

      For j := 1 To numBars Do
        For i := 1 To 24 Do
          Begin
            If i > bars[j] Then TextColor(Red) Else TextColor(Yellow);
            GotoXY(j, i); Write(#176)
          End;

      If Change Then
        Begin
          { Если уже был нажат Enter }
          Delay(TimeDelay);

          T := bars[1];
          Move(bars[2], bars[1], Pred(numBars)*SizeOf(Word));
          bars[numBars] := T;

          { Для выхода из программы - Esc }
          If KeyPressed Then
            If ReadKey = #27 Then Break
        End
      Else
        Begin
          { Сразу после отрисовки статичной картинки - ждем нажатия на Enter }
          While not KeyPressed Do;
          Change := (ReadKey = #13)
        End;
    End;

  ClrScr;
End.

[Serge_Bliznykov]

чтобы двигалось слева направо изменить код сдвига на такой:

          T := bars[numBars];
          Move(bars[1], bars[2], Pred(numBars)*SizeOf(Word));
          bars[1] := T;

а движение сверху вниз или снизу вверх я себе представить не могу...

[Klik_1602]

То же, но для строк, и волна «бежит» сверху вниз, снизу вверх.

[Klik_1602]

спасибо большое за слева направо))) очень помогли))

[Serge_Bliznykov]

так, что ли?

{$N+}
Uses Crt;

Const
  numBars = 24;
  TimeDelay = 100; { Задержка перед перерисовкой очередного кадра }

Var
  bars: Array[1 .. numBars] of Word;

  currDegree: Double;
  T: Word;
  i, j: Integer;

Const
  Change: Boolean = False;

Begin
  ClrScr;
  For i := 1 to numBars Do
    Begin
      { Здесь я пытаюсь изобразить синусоиду }
      currDegree := (i-1) * (180 / numBars);
      bars[i] := Trunc(80 - 79 * sin(currDegree / (180 / Pi)));
    End;


  While True Do
    Begin

      For j := 1 To numBars Do
        For i := 1 To 80 Do
          Begin
            If i > bars[j] Then TextColor(Red) Else TextColor(Yellow);
            GotoXY(81-i, j); Write(#176)
          End;

      If Change Then
        Begin
          { Если уже был нажат Enter }
          Delay(TimeDelay);

          T := bars[numBars];
          Move(bars[1], bars[2], Pred(numBars)*SizeOf(Word));
          bars[1] := T;

          { Для выхода из программы - Esc }
          If KeyPressed Then
            If ReadKey = #27 Then Break
        End
      Else
        Begin
          { Сразу после отрисовки статичной картинки - ждем нажатия на Enter }
          While not KeyPressed Do;
          Change := (ReadKey = #13)
        End;
    End;

  ClrScr;
End.

ну и в обратную сторону:

          T := bars[1];
          Move(bars[2], bars[1], Pred(numBars)*SizeOf(Word));
          bars[numBars] := T;

[Klik_1602]

вы гений))) спасибо большое)) очень вам благодарна)))