Реферат Курси за вибором з інформатики на старшій ступені загальної освіти

Тема: Курсовые обзорные

lign="justify"> [9]. B: = 1; B [9]. E: = 5; B [9]. C: = 7; [10]. B: = 2; B [10] . E: = 6; B [10]. C: = 7; [11]. B: = 3; B [11]. E: = 7; B [11]. C: = 7; [12]. B : = 4; B [12]. E: = 8; B [12]. C: = 7;

;

Draw3D; I: Byte;, YB, XE, YE: Real; I: = 1 To M Do Begin (B [I]. C);: = A [B [I]. B ]. X;: = A [B [I]. B]. Y;: = A [B [I]. E]. X;: = A [B [I]. E]. Y; (Trunc (XB ), Trunc (YB), Trunc (XE), Trunc (YE));;; Hide3D; I: Byte;, YB, XE, YE: Real; (Black); I: = 1 To M Do Begin: = A [B [I]. B]. X;: = A [B [I]. B]. Y;: = A [B [I]. E]. X;: = A [B [I]. E] . Y; (Trunc (XB), Trunc (YB), Trunc (XE), Trunc (YE));;;

;

('1 -2, а йҐ ЕҐ Ї В® В® бе OZ '); ('3 -4, а йҐ ЕҐ Ї В® В® бе OY '); ('5 -6, а йҐ ЕҐ Ї В® В® бе OX'); ('7 -8 РЏаЕРЋВ« Е В§ ЕВМ | Р‹в В¤ В«ЕВМ В® РЋкҐЄв ');

;

. X: = 5; CY: = 5; CZ: = 5; I: = 1 To N Do Sr3d (A [I], C, A [I]);. X: = 200; LY: = 200; LZ: = 200; I: = 1 To N Do Tr3d (A [I], L, A [I]);: = Detect; (grDriver, grMode, 'c: tp bgi ');

: = ''; Key <> # 27 Do Begin: = ReadKey;

Key = '1 'Then BeginD;

. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);

: = Pi/120; For I: = 1 To N Do Uz3d (A [i], Uz, A [i]);

. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);

D;;

Key = '2 'Then BeginD;

. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);

: = -Pi/120; For I: = 1 To N Do Uz3d (A [i], Uz, A [i]);. X: =-LX; LY: =-LY ; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);

D;;

Key = '3 'Then BeginD;

. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);