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

UptoLike

s:=8;
until s=8;
closegraph;
end;
2: begin
s:=1;
otkr_gr;
repeat
case s of
1: list21;
2: list22;
3: list23;
4: list24;
5: list25;
end;
if kod=27 then
s:=6;
until s=6;
closegraph;
end;
end;
until ukaz=3;
END.
64
               s:=8;
    until s=8;
    closegraph;
   end;
  2: begin
    s:=1;
    otkr_gr;
    repeat
      case s of
        1: list21;
        2: list22;
        3: list23;
        4: list24;
        5: list25;
      end;
      if kod=27 then
               s:=6;
    until s=6;
    closegraph;
   end;
 end;
 until ukaz=3;
END.




64