Графика, помогите с задачкой Опции

[Ilius]

Составить программу для управления размерами прямоугольника и его положением на экране.Левый верхний угол исходного прямоугольника расположен в точке (50,50), правый нижний в точке(100,100).Управление выполняется клавишами:
">"-увелич.ширину прямоугольника на 5 точек;
"<"-уменьш.ширину прямоугольника на 5 точек;
"+" -увелич. высоту на 5 точек;
"-" уменьшает высоту на 5 точек.
Клавиши управл.курсором-вызывают перемещение в соответствующем направлении.
"Ввод завершает работу программы.

[Tan]

Что - то такое ?

uses crt, Graph;
var x,y,x1,y1,
    grMode,grDriver : integer;
     ch : char;
procedure draw;
begin
clrscr;
rectangle (x,y,x1,y1);
end;
begin
grDriver := detect;
Initgraph (grDriver,grMode,'');
x := 50;
y := x;
x1 := 100;
y1 := x1;
draw;
repeat
ch := readkey;
 case ch of
   #46 : begin
             x1 := x1 + 5;
             Draw;
          end;
   #44  : begin
             x1 := x1 - 5;
             Draw;
          end;
   #61 : begin
             y := y - 5;
             Draw;
        end;
   #45 : begin
             y := y + 5;
             Draw;
        end;
    #072 : begin
            y := y - 5;
            y1 := y1 - 5;
            Draw;
         end;
    #080: begin
            y := y + 5;
            y1 := y1 + 5;
            Draw;
        end;
    #077: begin
           x := x+ 5;
           x1 := x1 + 5;
           Draw;
        end;
   #075: begin
           x := x - 5;
           x1 := x1 - 5;
           Draw;
         end;
   end;
until ord(ch) = 13;
end.

Сообщение отредактировано: Tan - 20.05.2007 15:08