Масштабировать размер прямоугольника. Коэффициент подобия задаётся пользователем. Паскаль.
Масштабировать размер прямоугольника. Коэффициент подобия задаётся пользователем. Паскаль.
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1256
uses
GraphABC;
Var
x1,y1,x2,y2:integer;
k:real;
begin
x1:=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 сборка 1239
uses
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.
центр масштабирования в центре окна
Не нашли ответ?
Похожие вопросы