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

 line(163,315,163,327);   line(163,328,175,310);
 outtextxy(15,292,'       _     ');
 outtextxy(15,301,'       y=          ;    ');
 outtextxy(15,314,'                 2     ');
 outtextxy(15,319,'             1+k         ');
 outtextxy(15,323,'                 1     ');
 ent(7);
 if kod<>13 then
         exit;
 s:=s+1;
end;

procedure list5;
begin
 setgraphmode(1);
 setfillstyle(1,0);
 bar(0,0,getmaxx,getmaxy);
 setcolor(8);
 setbkcolor(15);
 nazv1;
 ris1;
 niz;
 setcolor(8);setbkcolor(15);
 outtextxy(300,40,'2. Преобразовать прямую (AB) общего поло-');
 outtextxy(315,50,'жения в проецирующую прямую.          ');
 outtextxy(315,60,'     { нажмите клавишу  } ');
 ent(7);
 if kod<>13 then
           exit;
 ris2; ris3;
 outtextxy(315,80,' Задачу решаем композицией двух преобра-');
 outtextxy(315,82,'                _     _ ');
 outtextxy(315,91,'зований. Преобразованием f(П -> П )');
 outtextxy(315,94,'                  2 2 ');
 outtextxy(315,101,'прямую AB преобразуем в прямую уровня в');
 outtextxy(315,103,'         _              ');
 outtextxy(315,112,'системе П , П (см. задачу 1).   ');
 outtextxy(315,115,'      1 2                ');
 outtextxy(315,125,'     { нажмите клавишу  } ');
 ent(7);
 if kod<>13 then
           exit;
 ris4;
 outtextxy(315,134,'             _     _     ');
 outtextxy(315,136,'             _     _     ');

46