Реферат: Расчет площади сложной фигуры с помощью метода имитационного моделирования

clrscr();

window(xb1,yb1,xb2,yb2);

textcolor(15);

textbackground(1);

clrscr();

do {

textcolor(15);

textbackground(1);

gotoxy(k1,k); puts("b3= ");

gotoxy(k1,k+1); puts("b2= ");

gotoxy(k1,k+2); puts("b1= ");

gotoxy(k1,k+3); puts("b0= ");

gotoxy(k2,k); puts("c3= ");

gotoxy(k2,k+1); puts("c2= ");

gotoxy(k2,k+2); puts("c1= ");

gotoxy(k2,k+3); puts("c0= ");

gotoxy(k1,k+6); puts("x1=");

gotoxy(k2,k+6); puts("x2=");

gotoxy(k1,k+10); puts("QUANTITY OF ADRESSES TO RNG ");

B3: gotoxy(k1,k); puts("b3= ");

gotoxy(k1+4,k); gets(bc3); sscanf(bc3,"%f",&b3);

if (fabs(b3)>100) { talkerror(); goto B3; }

B2: gotoxy(k1,k+1); puts("b2= ");

gotoxy(k1+4,k+1); gets(bc2); sscanf(bc2,"%f",&b2);

if (fabs(b2)>100) { talkerror(); goto B2; }

B1: gotoxy(k1,k+2); puts("b1= ");

gotoxy(k1+4,k+2); gets(bc1); sscanf(bc1,"%f",&b1);

if (fabs(b1)>100) { talkerror(); goto B1; }

B0: gotoxy(k1,k+3); puts("b0= ");