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

[Гость]

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

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

[Алена]

Изменяем только основную программу, все остальное - как и было:

...
var
  x1,y1,x2,y2:byte;
  w, h: integer;
begin
  {
  w := 20;
  h := 10;
  }

  write('ширина [10 .. 20] = '); readln(w); { можно добавить проверку введенных данных }
  write('высота [10 .. 20] = '); readln(h);

  window(10, 1, 10 + w, 1 + h);
  TextBackGround(blue);
  clrscr;
  x1:=3; y1:=10;
  x2:=6; y2:=10;
  repeat
    jump(3,'a',x1,y1);
    jump(3,'b',x2,y2);
  until keypressed;
end.

Сообщение отредактировано: Алена - 5.03.2007 16:49

[-Кошка-]

Спасибо. Попробую...