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

 Line(20*17-7,26+14*1-3,20*17-7,26+14*5+2);
 Line(20*17-9,26+14*1-3,20*17-9,26+14*5+2);
 Line(20*12+8,26+14*6,20*19,26+14*6);
 Line(20*11-4,26+14*3-8,20*11+7,26+14*3-1);
 Line(20*11,26+14*3-10,20*11+11,26+14*3-3);
 Line(20*17-12,26+14*3-4,20*17-3,26+14*3+4);
 Line(20*17-12,26+14*3-1,20*17-3,26+14*3+7);
 arc(20*12+8,26+14*6,0,90,12);
 putpixel(20*12+12,26+14*6-4,14);
 circle(20*12+12,26+14*6-4,1);
 Line(20*15-15,26+14*6-3,20*15,26+14*6);
 Line(20*15-15,26+14*6+3,20*15,26+14*6);
 t_ka(20*17-8,26+14*5+2); {A__2}       t_ka(20*17-8,26+14*1-3); {B__2}
 t_ka(20*17-8,26+14*6); {A__1} t_ka(20*12+8,26+14*6); {B_1}
 outtextxy(20*19-10,26+14*6-11,'S');    outtextxy(20*19,26+14*6-8,'1');
 outtextxy(20*17,26+14*1-10,'=');    outtextxy(20*17,26+14*1-3,'B');
 outtextxy(20*17+8,26+14*1,'2'); outtextxy(20*17+8,26+14*5+3,'1');
 outtextxy(20*17,26+14*5-7,'=');   outtextxy(20*17,26+14*5,'A');
 outtextxy(20*16,26+14*6+1,'= ='); outtextxy(20*16,26+14*6+8,'A = B ');
 outtextxy(20*16,26+14*6+11,' 1 1');

end;


procedure ris2_31;
begin
 setcolor(8);
 line(20*3,25+14*7,20*7-4,25+14*6+5); {A1B1}
 line(20*3,26+14*7,20*7-4,26+14*6+5);
 line(20*3,27+14*7,20*7-4,27+14*6+5);
 line(20*7-3,26+14*6+5,20*9-7,26+14*9); {B1C1}
 line(20*7-4,26+14*6+5,20*9-8,26+14*9);
 line(20*7-5,26+14*6+5,20*9-9,26+14*9);
 line(20*7-2,26+14*6+5,20*9-6,26+14*9);
 line(20*3,25+14*7,20*9-8,25+14*9); {A1C1}
 line(20*3,26+14*7,20*9-8,26+14*9);
 line(20*3,27+14*7,20*9-8,27+14*9);
 line(20*3,25+14*3+3,20*7-4,25+14*2-2); {A2B2}
 line(20*3,26+14*3+3,20*7-4,26+14*2-2);
 line(20*3,27+14*3+3,20*7-4,27+14*2-2);
 line(20*7-3,26+14*2-2,20*9-7,26+14*4+6); {B2C2}
 line(20*7-4,26+14*2-2,20*9-8,26+14*4+6);
 line(20*7-5,26+14*2-2,20*9-9,26+14*4+6);
 line(20*7-2,26+14*2-2,20*9-6,26+14*4+6);
 line(20*3,25+14*3+3,20*9-8,25+14*4+6); {A2C2}

52