Качала, В. В. Принципы создания пакета прикладных графических программ на языке Турбо-Паскаль (на примере задач геофизики) / под ред. А. А. Намгаладзе. – Апатиты : ПГИ КНЦ РАН, 1993.

гдеП 1 .П 2 = 0, ±1, ±2,... П 1 +П 2 - четноечисло. -630° -450° -270° -90° 90° 270° 450° 630° Рис.4.8. Распределениевидимыхиневидимых (заштрихова ны) участковвзависимостиотугловповоротаглобуса Условие (4.8) можносформулироватьследующимобразом: точкабудетвидимой, еслисуммаокругленныхдоцелогозначе нийчастныхотделенияугловповоротана180° будетчетной. Теперьпредставимвсевышесказанноеввидепрограммына Турбо-Паскале (пример4.6). Пример4.6 { Определениевидимоститочки> functin VIDIM (Ux, Uy : integer): boolean; const U90 - 90; U-90 — 90: functin 1ST (U: integer): boolean; begin 1ST :- (U >- U90) OR (U <- U-90); end; { 1ST > 7Л