Подскажите ,Помогите!

[dimka123]

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

uses
 crt;
var
 y,g:real;
 i,x,z,m:integer;
begin
repeat
 TextColor(5);
 clrscr;
 g:=17;
 y:=0;
 x:=1;
 repeat
 begin 
 for i:=-39 to 40 do
 begin
  TextColor(4);
  y:=sin(g*pi/180);
  y:=y*10;
  z:=trunc(y);
  z:=(z mod 10)+12;
 
   for m:=1 to z+1 do
  begin
   TextColor(1);
   GotoXY(x,m);
   write(#218);
   delay(5);
  end;
  for m:=25 downto z do
  begin
   TextColor(3);
   GotoXY(x,m);
   write(#211);
   delay(5);
  end;
  g:=g-20;
  x:=x+1;
 end;
 g:=g-20;
 x:=1;
 end;
 until keypressed;
 readln;
end.

А как сделать,заполнение не сверху вниз,а например слева на право?)
и можно ли увеличить в размере (или поменять вид) бегущей вертикальной строки в конце заполнения области экрана

[min@y™]

знаешь, почему никто не отвечает?

[dimka123]

Сообщение от min@y™

знаешь, почему никто не отвечает?

потому что...о-о.........не знаю

[min@y™]

Потому что твой код совсем нечитабельный (много времени надо, чтобы в нём разобраться).
Совет (бесплатно): в след. раз, когда будешь вываливать код:
- снабди его подробными комментами;
- хорошо и красиво отформатируй;
- никаких однобуквенных идентификаторов - каждое имя должно быть информативным.

[dimka123]

Сообщение от min@y™

Потому что твой код совсем нечитабельный

ну как то так)

uses
  crt;

var
  y, g: real;
  i, x, z, m: integer;

begin
  
  g := 20;//
  y := 0;// начало координат
  x := 1;//
  repeat
    //пытаюсь сформировать синусойду
    begin
      for i := -39 to 40 do  // задаю границу работы
      begin  
        y := sin(g * pi / 180); 
        y := y * 10;
        z := trunc(y);
        z := (z mod 10) + 12;
        //вырисовка верхней части
        for m := 1 to z do
        begin
          TextColor(6);
          GotoXY(x, m);
          write(#214);
          delay(1);
        end;
//вырисовка нижней части
        for m := 25 downto z + 1  do
        begin
          TextColor(4);
          GotoXY(x, m);
          write(#214);
          delay(3);
        end;
        g := g + 20;
        x := x + 1;
      end;                в этой части меняется g и х.м"движение волны"
      g := g + 10;
      x := 1;
    end;
  until keypressed;// пока не нажмем клавишу,программа будет работать
  readln;
end.

[min@y™]

ну как то так)

недопонял ты того, чего я имел в виду. ну держи примерные примеры.

[dimka123]

Сообщение от min@y™

недопонял ты того, чего я имел в виду. ну держи примерные примеры.

я подправил, посмотри у себя на паскале этот код,и поймешь..... в других темах ты тоже много болтал и толком не помог...

[min@y™]

я подправил, посмотри у себя на паскале этот код,и поймешь.....

у меня тут нет паскаля. есть delphi & builder. а паскаль.абц - это не комильфо.

в других темах ты тоже много болтал и толком не помог...

ссылки на темы где?
...и тебе не кажется, что наезжать на единственного чела, который мимо темы не прошёл, как-то не по-человечески?
А хочешь, чтобы помогли - создай комфортные условия. Я пытаюсь тебя хотя бы этому научить.