Решение метрических задач по начертательной геометрии на ЭВМ. Воронков А.И - 56 стр.

UptoLike

outtextxy(20*23+5,26+14*7-9,'Г'); outtextxy(20*23+13,26+14*7-6,'1');
outtextxy(20*23+5,26+14*5-1,'Ф'); outtextxy(20*23+13,26+14*5+2,'1');
outtextxy(20*23+5,26+14*6-5,'_'); outtextxy(20*23+5,26+14*4+3,'_');
outtextxy(20*23+5,26+14*1-4,'W'); outtextxy(20*23+13,26+14*1-1,'1');
outtextxy(20*23+5,26,'_');
end;
procedure ris2_34;
begin
setcolor(8);
arc(20*18-1,26+14*5+3,40,110,43);
arc(20*19,26+14*1+1,220,288,43);
line(20*17+1,26+14*3-4,20*21-3,26+14*4-2);
arc(20*22-5,26+14*7-5,91,145,61);
arc(20*19,26+14*1+1,273,326,61);
line(20*19+4,26+14*5-6,20*22-7,26+14*3+1);
line(20*20+11,26+14*4-3,20*20+11,26+14*8);
line(20*14+2,26+14*4-3,20*14+2,26+14*8+3);
line(20*14+2,26+14*4-3,20*20+11,26+14*4-3);
line(20*6-4,26+14*8+3,20*14+2,26+14*8+3);
line(20*6-4,26+14*4,20*6-4,26+14*8+3);
line(20*16,26+14*4-3,20*16+10,26+14*4-6);
line(20*16,26+14*4-3,20*16+10,26+14*4);
line(20*10,26+14*8+3,20*10+10,26+14*8);
line(20*10,26+14*8+3,20*10+10,26+14*8+6);
line(20*20+11-3,26+14*6-7,20*20+11,26+14*6);
line(20*20+11+3,26+14*6-7,20*20+11,26+14*6);
line(20*6-4-3,26+14*5+3,20*6-4,26+14*5-4);
line(20*6-4+3,26+14*5+3,20*6-4,26+14*5-4);
t_ka(20*14+2,26+14*8+3); {O_1} t_ka(20*6-4,26+14*8+3); {O1}
t_ka(20*6-4,26+14*4); {O2} t_ka(20*14+2,26+14*4-3); {O_2}
t_ka(20*20+11,26+14*4-3); {O__2} t_ka(20*20+11,26+14*8); {O__1}
outtextxy(20*21+1,26+14*4+5,'O'); outtextxy(20*21+9,26+14*4+8,'2');
outtextxy(20*21+1,26+14*4-6,'_'); outtextxy(20*21+1,26+14*4-4,'_');
outtextxy(20*21-10,26+14*8+8,'O'); outtextxy(20*21-2,26+14*8+11,'1');
outtextxy(20*21-10,26+14*8-3,'_'); outtextxy(20*21-10,26+14*8-1,'_');
outtextxy(20*14+1,26+14*3,'O'); outtextxy(20*14+9,26+14*3+3,'2');
outtextxy(20*14+1,26+14*2+5,'_');
outtextxy(20*14+5,26+14*7+8,'O'); outtextxy(20*14+11,26+14*7+11,'1');
outtextxy(20*14+5,26+14*7-3,'_');
outtextxy(20*5,26+14*8+2,'O'); outtextxy(20*5+7,26+14*8+6,'1');
outtextxy(20*5-1,26+14*4+2,'O'); outtextxy(20*5+7,26+14*4+6,'2');
end;
56
 outtextxy(20*23+5,26+14*7-9,'Г'); outtextxy(20*23+13,26+14*7-6,'1');
 outtextxy(20*23+5,26+14*5-1,'Ф');    outtextxy(20*23+13,26+14*5+2,'1');
 outtextxy(20*23+5,26+14*6-5,'_'); outtextxy(20*23+5,26+14*4+3,'_');
 outtextxy(20*23+5,26+14*1-4,'W');     outtextxy(20*23+13,26+14*1-1,'1');
 outtextxy(20*23+5,26,'_');

end;

procedure ris2_34;
begin
 setcolor(8);
 arc(20*18-1,26+14*5+3,40,110,43);
 arc(20*19,26+14*1+1,220,288,43);
 line(20*17+1,26+14*3-4,20*21-3,26+14*4-2);
 arc(20*22-5,26+14*7-5,91,145,61);
 arc(20*19,26+14*1+1,273,326,61);
 line(20*19+4,26+14*5-6,20*22-7,26+14*3+1);
 line(20*20+11,26+14*4-3,20*20+11,26+14*8);
 line(20*14+2,26+14*4-3,20*14+2,26+14*8+3);
 line(20*14+2,26+14*4-3,20*20+11,26+14*4-3);
 line(20*6-4,26+14*8+3,20*14+2,26+14*8+3);
 line(20*6-4,26+14*4,20*6-4,26+14*8+3);
 line(20*16,26+14*4-3,20*16+10,26+14*4-6);
 line(20*16,26+14*4-3,20*16+10,26+14*4);
 line(20*10,26+14*8+3,20*10+10,26+14*8);
 line(20*10,26+14*8+3,20*10+10,26+14*8+6);
 line(20*20+11-3,26+14*6-7,20*20+11,26+14*6);
 line(20*20+11+3,26+14*6-7,20*20+11,26+14*6);
 line(20*6-4-3,26+14*5+3,20*6-4,26+14*5-4);
 line(20*6-4+3,26+14*5+3,20*6-4,26+14*5-4);
 t_ka(20*14+2,26+14*8+3); {O_1} t_ka(20*6-4,26+14*8+3); {O1}
 t_ka(20*6-4,26+14*4); {O2}      t_ka(20*14+2,26+14*4-3); {O_2}
 t_ka(20*20+11,26+14*4-3); {O__2} t_ka(20*20+11,26+14*8); {O__1}
 outtextxy(20*21+1,26+14*4+5,'O');     outtextxy(20*21+9,26+14*4+8,'2');
 outtextxy(20*21+1,26+14*4-6,'_'); outtextxy(20*21+1,26+14*4-4,'_');
 outtextxy(20*21-10,26+14*8+8,'O');     outtextxy(20*21-2,26+14*8+11,'1');
 outtextxy(20*21-10,26+14*8-3,'_'); outtextxy(20*21-10,26+14*8-1,'_');
 outtextxy(20*14+1,26+14*3,'O');    outtextxy(20*14+9,26+14*3+3,'2');
 outtextxy(20*14+1,26+14*2+5,'_');
 outtextxy(20*14+5,26+14*7+8,'O');     outtextxy(20*14+11,26+14*7+11,'1');
 outtextxy(20*14+5,26+14*7-3,'_');
 outtextxy(20*5,26+14*8+2,'O');    outtextxy(20*5+7,26+14*8+6,'1');
 outtextxy(20*5-1,26+14*4+2,'O');    outtextxy(20*5+7,26+14*4+6,'2');

end;

56