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

Пример 2.

Vvedite storoni

50 25 38 20

vvedite ugli

110 29 65

Приложение 3

Программа для построения паркета из пятиугольника.

program dip2;

uses graph;

label 1,2;

var a,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,i,j,xx,yy,b,c,vv,xa, xb,xc, xd, xe,ya,mm,yb,yc,yd,ye,x,y,grv,grm:integer;aa,qq,dd,tt,m1:real; tex:string[1];

begin

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

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

readln(tex);

if tex='n' then goto 2;

writeln('vvedite');readln(aa,dd,a,b,c);

aa:=aa*pi/180;dd:=dd*pi/180; tt:=aa+dd-pi; qq:=dd-pi;

vv:=trunc(a*sin(aa+dd)-b*sin(dd));

m1:=(a*sin(aa+dd)-b*sin(aa))*(a*sin(aa)-a*sin(dd)-b*sin(-dd+aa));

mm:= trunc(m1);

a1:=trunc(b*cos(aa)); a2:=trunc(b*sin(aa)); a3:=trunc(a*cos(tt));

a4:=trunc(a*sin(tt)); a5:=trunc(c*cos(qq)); a6:=trunc(c*sin(qq));

a7:=trunc(b*cos(dd)); a8:=trunc(b*sin(dd)); a9:=trunc(c*cos(aa));

a10:=trunc(c*sin(aa)); a11:=trunc(c*cos(aa));

a12:=trunc(c*sin(aa));

if (mm<0)and(a>0)and(b>0)and(c>0)and(aa>0)and(aa<180) and(dd>0) and(dd<180) then begin

if (vv<0)and(a2+a4+a6>0) then begin

x:=-300;y:=0;xx:=x;yy:=y;