. 200] of tpoint;: array [0 .. 320] of temppoints: array of tpoint; var rpoints: array of tpoint);: integer;: = 0;: = yalpha/90;: = -45; xalpha <> 0 theni: = 0 to numpoints thenxalpha <> 0 then move (rpoints, temppoints, sizeof (points)); i: = 0 to numpoints then (xalpha <> 0) or (yalpha <> 0) then move (rpoints, temppoints, sizeof (points)); i: = 0 to numpoints to numpoints do [i]. x: = rpoints [i]. x/(1-rpoints [i]. z/v); [i]. y: = rpoints [i]. y/(1-rpoints [i ]. z/v);;; initgraph;: registers;;. ah: = $ 00;. ax: = $ 13; ($ 10, r);;; closegraph;: thenx2-x1 <> 0 then ys: = (y2-y1)/(x2-x1) else ys: = 0; x1> x2 then (y1, y2); swap (x1, x2);; i: = 0 to abs (x2-x1) do (x1 + i, y1 + round (i * ys), color) y2-y1 <> 0 then xs: = (x2-x1)/(y2-y1) else xs: = 0; y1> y2 then (y1, y2); swap (x1, x2);; i: = 0 to abs (y2-y1) do (x1 + round (i * xs), y1 + i, color);; ; init (nums, radius: integer);, y, z: integer;: = 160;
{--- cilindr --------------------------------} i: = 0 to 19
{piramida} i: = 0 to 6 points [150]. y: = 0; points [150]. z: = 0;
{segment}: = 0; z: = 0 to 19 to 4 doz: = 0 to 19
{cilindr} i: = 0 to 19
{pyramid}
{lines [279]. point1: = 149; lines [279]. point2: = 143; [300]. point1: = 159; lines [300]. point2: = 0;} i : = 0 to 6 do [260 + i]. point1: = 143 + i; lines [260 + i]. point2: = 144 + i; [280 + i]. point1: = 143 + i; lines [280 + i]. point2: = 3 * i; [300 + i]. point1: = 143 + i; lines [300 + i]. point2: = 150;;
{segment} y: = 0 to 4 do [79 +20 * y]. point1: = 79 +20 * y; [79 +20 * y]. point2: = 60 +20 * y; z: = 0 to 18 do [60 +20 * y + z]. point1: = 40 +20 * y + z; [60 +20 * y + z]. point2: = 40 +20 * y + z +1;;; y: = 0 to 3 doz: = 0 to 19 do [159 +20 * y + z]. point1: = 40 +20 * y + z; [159 +20 * y + z]. point2 : = 40 +20 * y + z +20;; i: = 0 to 19 do [240 + i]. point1: = 120 + i; [240 + i]. point2: = 20 + i;;; draw ( xs, ys: integer);: integer; i: = 0 to numlines-1 keypressed do;; (alpha, alpha * 2, alpha * 0.3, points, rpoints); (200); (160,100); (alpha);;
closegraph;.
Додаток 2
РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ
На рис. П.2.1 і П.2.2 представлена ​​вихідна фігура під різними кутами. br/>В
Рис. П.2.1
В
Рис. П. 2.2
