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

z3:=trunc(f*cos(q)-a-d*cos(e))+xx;s3:=trunc(f*sin(q)-d*sin(e))+yy;

z4:=trunc(f*cos(q)-d*cos(e))+xx;s4:=trunc(f*sin(q)-d*sin(e))+yy;

xx:=xx+trunc(d*cos(e));yy:=yy+trunc(d*sin(e));

line(x0,y0,x1,y1);

line(x1,y1,x2,y2);

line(x2,y2,x3,y3);

line(x3,y3,x4,y4);

line(x4,y4,x5,y5);

line(x5,y5,x0,y0);

line(x5,y5,z1,s1);

line(z1,s1,z2,s2);

line(z2,s2,z3,s3);

line(z3,s3,z4,s4);

line(z4,s4,x0,y0);

end;

xx:=t+trunc(a+a-f*cos(q)+b*cos(w));t:=xx;

yy:=u+trunc(b*sin(w)-f*sin(q));u:=yy;

end;

end else begin writeln('vi vveli nevernie parametri');goto 1;end;

end else begin writeln('vi vveli nevernie parametri');goto 1;end;

readln;

2:

closegraph;

end.

Приложение 2

Пример 1.

Vvedite storoni

95 65 75 45

vvedite ugli

120 25 75