Лабораторная работа: Создание графических объектов с помощью псевдографики

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

n:=n-225;

moveto(m,n);

z:=25;

x:=-z*cos(pi/6);

y:=z*sin(pi/6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

moveto(m,n);

z:=100;

x:=z*cos(pi/6);

y:=-z*sin(pi/-6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

moveto(m,n);

z:=25;

x:=z*cos(pi/6);

y:=-z*sin(pi/6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

end;

moveto(m,n);

m:=m+100;

lineto(m,n);