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

uses graph;

label 1,2;

var a,z4,s4,b,d,f,xx,yy,grv,grm,x0,x1,j,i,x5,y5,x2,x3,x4,y0,t, u,y1,y2,y3, y4, z1,z2,z3,s1,s2,s3:integer;tex:string; q,w,e:real;

begin

grv:=detect;

initgraph(grv,grm,'d:\bp\bgi');

1: writeln('gelaete vvesti parametri?(y/n)');

readln(tex);

if tex='n' then goto 2;

writeln('vvedite storoni');

readln(a,b,d,f);

xx:=-10;yy:=-10;t:=xx;u:=yy;

writeln('vvedite ugli');

readln(q,w,e);

q:=q*pi/180;w:=w*pi/180;e:=e*pi/180;

i:=trunc(sin(e)*(f*sin(q)-d*sin(e)));

j:=trunc(sin(e)*(b*sin(w)-d*sin(e)));

if (i<0)and(j<0) then begin

if (w<e)and(q>e)and(q>0)and(q<180)and(w>0)and(w<180)and(e>0)

and(e<180) then begin

for j:=1 to trunc(900/a) do begin

for i:=1 to trunc(600/(d*sin(e))) do begin

x0:=xx+0;y0:=yy+0;

x1:=xx+a;y1:=yy;

x2:=xx+trunc(A+B*COS(W));y2:=yy+trunc(B*SIN(W));

x4:=xx+trunc(D*COS(E));y4:=yy+trunc(D*SIN(E));

x3:=xx+trunc(A+D*COS(e));y3:=yy+trunc(d*sin(e));

x5:=trunc(f*cos(q))+xx;y5:=trunc(f*sin(q))+yy;

z1:=trunc(f*cos(q)-a)+xx;s1:=trunc(f*sin(q))+yy;