Использование модуля CRT Опции

[Гость]

Помогите написать программку. Вообще не имею понятия как ее написать...

Организовать вывод в окне заданного размера двух символов, "перепрыгивающих" друг через друга и двигающихся по горизонтали.

[volvo]

Попробуй вот это:

...
procedure jump(r:byte; c:char; Var x,y:byte);
var i:byte;
begin
  for i:=1 to 2*r do begin
      gotoxy(x,y);  write(' ');
      inc(x);

      if x > lo(windmax) - lo(windmin) then begin
	  x := 1;
      end;

      if i<=r then dec(y)
         else inc(y);
      gotoxy(x,y);  write©;
      delay(time);

  end;
end;
...

Добавлено через 1 мин.
P.S. А курсор можно погасить: Курсор