Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1
жүктеу/скачать 4,42 Mb.
|
171
const ClipOn = True ; {Қиып тастауды қосу} ClipOff = False ; { Қиып тастауды қоспау } Келесі мысал СlipОn параметрінің қызметін көрсетеді. Про-грамма СlipОn параметрінің мəні əртүрлі, екі тікбұрышты тере-зе жəне олардың ішіне бірнеше дөңгелек салады. Көрнекі болуы үшін терезелер жақтауларға алынады (7.1-сурет). Uses Graph,CRT; var x,y,e: Integer; x11, y11, x12, y12, {1-ші терезе координа-тасы} x21, x22, {2-ші терезенің сол жақ жоғарғы бұрышы} R, {Бастапқы радиус} k: Integer; begin DirectVideo:=False; {CRT модулінде бейнежадыға тікелей қол жеткізуді алып тастай-мыз} {Графикалық режимді іске қосамыз} х:= Detect; InitGraph(x, у, ' '); {Нəтижені тексереміз} е:= GraphResult; if e <> grOk then WnteLn (GraphErrorMsg (e)) {Қате} else begin {Қате жоқ} {Экран мүмкіндіктеріне байланысты координата-ларды есептейміз} x11:= GetMaxX div 60; х12:= GetMaxX div 3; y11:= GetMaxY div 4; y12:= 2*y11; R:= (x12-x11) div 4; x21:= x12*2; x22:= x21+x12-x11; {Тезезе саламыз} 172 WriteLn('ClipOn:':10,'ClipOff:':40); Rectangle(x11, y11, x12, y12); Rectangle(x21, y11, x22, y12); {1-терезені белгілеп, оның ішіне төрт дөңгелек саламыз} SetViewPort{x11, y11, x12, y12, ClipOn); for k := 1 to 4 do Circle(0,y11,R*k) ; {2-терезені белгілеп, оның ішіне дөңгелек са- ламыз} SetViewPort(x21, y11, x22, y12, ClipOff); for k := 1 to 4 do Circle(0,y11,R*k); {кез келген перненің басылуын күтеміз} if ReadKey=#0 then k := ord(ReadKey); CloseGraph end end.
жүктеу/скачать 4,42 Mb. Достарыңызбен бөлісу:
|