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

UptoLike

outtextxy(315,145,' Вторым преобразованием f(П -> П ), где');
outtextxy(315,148,' 1 1 ');
outtextxy(315,150,' _ ');
outtextxy(315,152,' _ ');
outtextxy(315,161,'новая плоскость проекций П выбирается');
outtextxy(315,163,' 1 ');
outtextxy(315,165,' _ ');
outtextxy(315,167,' _ _ _ ');
outtextxy(315,176,'перпендикулярно AB (A B __ x ), в сис-');
outtextxy(315,179,' 2 2 21 ');
line(523,173,523,183);
outtextxy(315,181,' _ ');
outtextxy(315,183,' _ _ ');
outtextxy(315,192,'теме П ,П получаем проецирующую прямую.');
outtextxy(315,195,' 1 2 ');
ent(7);
if kod<>13 then
exit;
s:=s+1;
end;
procedure list6;
begin
setgraphmode(1);
setfillstyle(1,0);
bar(0,0,getmaxx,getmaxy);
setcolor(8);
nazv1;
niz;
ris31;
outtextxy(380,40,'3. Преобразовать плоскость обще-');
outtextxy(395,50,'го положения в проецирующую. ');
outtextxy(395,60,' { нажмите клавишу <enter> } ');
ent(7);
if kod<>13 then
exit;
ris32;
outtextxy(380,80,' По условию задачи новая плос-');
outtextxy(395,90,'кость проекций должна быть');
outtextxy(395,100,'перпендикулярной данной плос-');
outtextxy(395,110,'кости Ф(A B C , A B C ). Это');
outtextxy(395,113,' 1 1 1 2 2 2 ');
outtextxy(395,123,'условие будет выполнено, если');
outtextxy(395,133,'она будет перпендикулярна го-');
47
 outtextxy(315,145,' Вторым преобразованием f(П -> П ), где');
 outtextxy(315,148,'              1 1      ');
 outtextxy(315,150,'              _       ');
 outtextxy(315,152,'              _       ');
 outtextxy(315,161,'новая плоскость проекций П выбирается');
 outtextxy(315,163,'               1      ');
 outtextxy(315,165,'               _      ');
 outtextxy(315,167,'           __ _         ');
 outtextxy(315,176,'перпендикулярно AB (A B __ x ), в сис-');
 outtextxy(315,179,'           2 2 21        ');
 line(523,173,523,183);
 outtextxy(315,181,' _                    ');
 outtextxy(315,183,' _ _                   ');
 outtextxy(315,192,'теме П ,П получаем проецирующую прямую.');
 outtextxy(315,195,' 1 2                   ');
 ent(7);
 if kod<>13 then
         exit;
 s:=s+1;
end;

procedure list6;
begin
 setgraphmode(1);
 setfillstyle(1,0);
 bar(0,0,getmaxx,getmaxy);
 setcolor(8);
 nazv1;
 niz;

 ris31;
 outtextxy(380,40,'3. Преобразовать плоскость обще-');
 outtextxy(395,50,'го положения в проецирующую. ');
 outtextxy(395,60,' { нажмите клавишу  } ');
 ent(7);
 if kod<>13 then
         exit;
 ris32;
 outtextxy(380,80,' По условию задачи новая плос-');
 outtextxy(395,90,'кость проекций должна быть');
 outtextxy(395,100,'перпендикулярной данной плос-');
 outtextxy(395,110,'кости Ф(A B C , A B C ). Это');
 outtextxy(395,113,'      111 222      ');
 outtextxy(395,123,'условие будет выполнено, если');
 outtextxy(395,133,'она будет перпендикулярна го-');

                                                                 47