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

 outtextxy(20*3+5,26+14*16-6,'X'); outtextxy(20*3+4,26+14*16-13,'-');
 outtextxy(20*3+4,26+14*16-15,'-'); outtextxy(20*3+15,26+14*16-3,'12');
 outtextxy(20*4+10,26+14*17-6,'-'); outtextxy(20*4+10,26+14*17-9,'-');
 outtextxy(20*4+10,26+14*17,'П'); outtextxy(20*4+17,26+14*17+3,'1');
 outtextxy(20*5+10,26+14*16-1,'П'); outtextxy(20*5+10,26+14*16-8,'-');
 outtextxy(20*5+20,26+14*16+2,'2');
 outtextxy(20*4,26+14*20-7,'A = B');
 outtextxy(20*4,26+14*20-4,' 1 1');
 outtextxy(20*4-1,26+14*19-3,'_ _');
 outtextxy(20*4-1,26+14*19-6,'_ _');
end;

procedure ris31;
begin
 setcolor(8);
 setbkcolor(15);
 Line(2*20,26+14*11,7*20+10,26+14*11); {x12}
 Line(2*20+1,27+14*11,7*20+10,27+14*11);
 Line(2*20,26+14*11,2*20+10,30+14*11); {стрелки}
 Line(2*20,26+14*11,2*20+10,22+14*11);
 Line(20*3,25+14*17,7*20,25+14*13); {A1B1}
 Line(20*3,26+14*17,7*20,26+14*13);
 Line(20*3,27+14*17,7*20,27+14*13);
 Line(20*3,25+14*17,6*20,25+14*21); {A1C1}
 Line(20*3,26+14*17,6*20,26+14*21);
 Line(20*3,27+14*17,6*20,27+14*21);
 Line(20*7-1,26+14*13,6*20-1,26+14*21); {B1C1}
 Line(20*7,26+14*13,6*20,26+14*21);
 Line(20*7+1,26+14*13,6*20+1,26+14*21);
 Line(3*20,25+14*3,7*20,25+14*3+3); {A2B2}
 Line(3*20,26+14*3,7*20,26+14*3+3);
 Line(3*20,27+14*3,7*20,27+14*3+3);
 Line(3*20,25+14*3,6*20,25+14*6+4); {A2С2}
 Line(3*20,26+14*3,6*20,26+14*6+4);
 Line(3*20,27+14*3,6*20,27+14*6+4);
 Line(20*7-1,26+14*3+3,6*20-1,26+14*6+4); {B2C2}
 Line(20*7,26+14*3+3,6*20,26+14*6+4);
 Line(20*7+1,26+14*3+3,6*20+1,26+14*6+4);
 Line(20*3,26+14*17,20*3,26+14*3); {A1A2}
 Line(7*20,26+14*3+3,7*20,26+14*13); {B1B2}
 Line(6*20,26+14*21,6*20,26+14*6+4); {B1B2}
 t_ka(3*20,26+14*17); {A1} t_ka(7*20,26+14*13); {B1}
 t_ka(6*20,26+14*21); {C1} t_ka(6*20,26+14*6+4); {C2}
 t_ka(3*20,26+14*3); {A2} t_ka(7*20,26+14*3+3); {B2}
 outtextxy(10,26+14*11-4,'X');  outtextxy(20,26+14*11-1,'12');

36