Моделирование геометрического паркета из пятиугольников и шестиугольников

line(xe,ye,xa,ya);

xe:=x+a1+a3+a5+a7; ye:=y-a2-a4-a6-a8;

xa:=x+a1+2*a3+a5+a7; ya:=y-a2-2*a4-a6-a8;

xd:=x+a1+a3+a5; yd:=y-a2-a4-a6;

xc:=x+a+a1+a3+a5; yc:=y-a2-a4-a6;

xb:=x+a+a1+a3+a5+a9; yb:=y-a2-a4-a6-a10;

line(xa,ya,xb,yb);line(xb,yb,xc,yc);line(xc,yc,xd,yd);line(xd,yd,xe,ye);

line(xe,ye,xa,ya);

xd:=x+a; yd:=y;

xc:=x; yc:=y;

xe:=x+a-a7; ye:=y+a8;

xa:=x+a-a3-a7; ya:=y+a4+a8;

xb:=x-a11; yb:=y+a12;

line(xa,ya,xb,yb);line(xb,yb,xc,yc);line(xc,yc,xd,yd);line(xd,yd,xe,ye);

line(xe,ye,xa,ya);

x:=x+a-a1-a3-a7; y:=y+a2+a4+a8;

xe:=x; ye:=y;

xa:=x+a; ya:=y;

xd:=x+a1; yd:=y-a2;

xc:=x+a1+a3; yc:=y-a2-a4;

xb:=x+a1+a3+a5; yb:=y-a2-a4-a6;

line(xa,ya,xb,yb);line(xb,yb,xc,yc);line(xc,yc,xd,yd);line(xd,yd,xe,ye);

line(xe,ye,xa,ya);

xe:=x+a+a1+a3+a5; ye:=y-a2-a4-a6;

xa:=x+a1+a3+a5; ya:=y-a2-a4-a6;

xd:=x+a+a3+a5; yd:=y-a4-a6;

xc:=x+a+a5; yc:=y-a6;

xb:=x+a; yb:=y;

line(xa,ya,xb,yb);line(xb,yb,xc,yc);line(xc,yc,xd,yd);line(xd,yd,xe,ye);

line(xe,ye,xa,ya);

xe:=x+a1+a3+a5+a7; ye:=y-a2-a4-a6-a8;

xa:=x+a1+2*a3+a5+a7; ya:=y-a2-2*a4-a6-a8;

xd:=x+a1+a3+a5; yd:=y-a2-a4-a6;

xc:=x+a+a1+a3+a5; yc:=y-a2-a4-a6;

xb:=x+a+a1+a3+a5+a9; yb:=y-a2-a4-a6-a10;

line(xa,ya,xb,yb);line(xb,yb,xc,yc);line(xc,yc,xd,yd);line(xd,yd,xe,ye);

line(xe,ye,xa,ya);

end;

x:=xx; y:=yy;

end;

end else begin writeln('oshibka 1');goto 1;end;

end else begin writeln('oshibka 2');goto 1;end;

readln;

2:

closegraph;end.

Приложение 4

Пример 1.

vvedite

75 120 75 45 25

Пример 2.

vvedite

85 150 75 85 95

 Скачать реферат