Реферат Програмування в Pascal. Моделювання 3D-об'єктів

алізація графічного режиму} (grDriver, grMode,'');: = GraphResult;: = 1;: = 3;: = 4;: = 1; [0]. z: = 50; [21]. z: = -50; j: = 1 to 10 = GrOk then {якщо ініціалізація успішна, то} (0); {установка кольору} (1000);;; (4000);; keypressed then: = 0; {зупинка обертання}: = 0;: = 0;: = readkey ;; codekey of

'w': a1: = 4.0;

'a': a2: = 4.0;

's': a3: = 4.0;

'd': a2: = -4.0;

'1 ': figura: = 1;

'2 ': figura: = 2;

'3 ': figura: = 3;; CodeKey = # 27; {вихід після натискання клавіші Esc};.