Масштабирование(растягивание) прямоугольника в Паскаль

[Tonya914]

Ребятки помогите пожайлуста доделать курсовую, я нарисовала прямоугольник, но он ни в какую не масштабируется

uses Crt, Graph;

procedure Kursor(x, y, n: word);
begin
  setcolor(n);
  line(x - 5, y, x + 5, y);
  line(x, y + 5, x, y - 5);
end;

{----------------}

procedure dvizhenie;
var gd, gm, x, y, x1, y1, x2, y2, ent: integer;
  d: integer;
  a: char;
begin
  gd := Detect;
  ent := 0;
  initgraph(gd, gm, '');
  cleardevice;
  x := 20;
  y := 300;
  repeat
    kursor(x, y, 10);
    if keypressed then
    begin
      a := readkey;
      if a = chr(0) then
      begin
        a := readkey;
         kursor(x, y, 0);
         case ord(a) of
          72: begin y := y - 10;
            end;
          80: begin y := y + 10;
            end;
          75: begin x := x - 10;
            end;
          77: begin x := x + 10;
            end;
            kursor(x, y, 10);
      end
      else
        case ord(a) of
          13: begin
              case  ent  of
             0: begin
                 x1 := x;
                 y1 := y;
                ent := 1;
               end;
            1: x2 := x;
                y2 := y; 
               ent:=2;
                SetColor(5);
                rectangle(x1, y1, x2, y2);
               end;
          27: d := 3;
        else
          begin gotoxy(20, 24);
            writeln('Нажата не стрелка');
            repeat
            until keypressed;
          end;
        end;
    end;
  until (x >= 630) or (y >= 470) or (x <= 10) or (y <= 10) or (d = 3);
  closegraph;
end;

begin
  dvizhenie
end.

[s-andriano]

А что вообще должна делать программа?

И очень желательно оформить код как положено - выделить тегами.

[TinMan]

Сообщение от Tonya914

Ребятки помогите пожайлуста доделать курсовую, я нарисовала прямоугольник, но он ни в какую не масштабируется

Тоня, я не знаю, что у тебя там не масштабируется (не растягивается), только так, по-моему, просто нечестно. Ты дала программу, в которой нет ни намека на прямоугольник. Более того, этот код вообще не компилируется. После исправления очевидных ошибок он все же заработал, но только никаких прямоугольников в нем не появилось - один курсор и отвали моя черешня..

Не стыдно? Человек хочет тебе помочь, а ты ему небрежно кидаешь какой-то старый вариант..
Помимо того, это тебе явно ничем не помогает. Зачем ты вообще сделала тему?..

Добавлено:
Извиняюсь, прямоугольник там все же нашелся. Но никаких попыток его растяжения не видно. Как тогда сказать, почему он не масштабируется? и как вообще он должен масштабироваться?

[Serge_Bliznykov]

КРОССПОСТ темы отсюда - Нужно доделать немного программку "Резиновый прямоугольник"


ТЕМА ЗАКРЫТА!

Модератор