Процедуры и функции модуля Crt и Dos Опции

[Вадим]

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

Сообщение отредактировано: Вадим - 14.10.2004 0:10

[volvo]

Вадим

Это самый первый набросок. Его еще можно улучшать и улучшать... ;)

{$N+}
Uses Crt;

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

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.

Исправлено

Сообщение отредактировано: volvo - 4.11.2010 15:54