38
Program n1;
Uses Crt,GraphAbc;
var a,b,m,x,y:Integer;
begin
clrScr;
Write(‘Введи длину ');Readln(a);
Write(‘Введи ширину ');Readln(b);
Write(‘введи масштаб ');Readln(m);
x:=10;
y:=300;
a:=a*m;
b:=b*m;
line(x,y,x+a,y);
line(x,y,x,y-b);
line(x+a,y,x+a,y-b);
line(x,y-b,x+a,y-b);
end.
Подключаем модуль графики
Вводим стороны и масштаб
Устанавливаем координаты базовой точки
Увеличиваем стороны в соответствии с масштабом
Рисуем линии с использованием метода базовой точки
line(x,y,x,y-b);
lineTo(x+a,y-b);
lineTo(x+a,y);
lineTo(x,y);
Можно построить прямоугольник, как замкнутую ломаную линию
Rectangle(x,y,x+a,y-b);
Можно построить прямоугольник, используя процедуру построения прямоугольника в виде рамки по диагонали