• Масштабировать размер прямоугольника. Коэффициент подобия задаётся пользователем. Паскаль.

Ответы 2

  • //Pascal ABC.NET 3.1 сборка 1256uses GraphABC; Var x1,y1,x2,y2:integer; k:real;beginx1:=window.Center.X-200;y1:=window.Center.Y-100;x2:=x1+250;y2:=y1+200;rectangle(x1,y1,x2,y2);readln(k);GraphABCCoordinate.Create.SetScale(k,k);clearwindow;rectangle(x1,y1,x2,y2);end.
  • //PascalABC.NET 3.1 сборка 1239uses GraphABC;var    w, h: integer;    k: real;begin    k := 1;    repeat        w := round(k * 200) div 2;        h := round(k * 100) div 2;        rectangle(window.Center.X - w, window.Center.Y - h, window.Center.X + w, window.Center.Y + h);        readln(k);        ClearWindow(clRandom);    until false;end.центр масштабирования в центре окна
    • Автор:

      jackadams
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years