Turbo Pascal бағдарламалау тілі экранда әр түрлі фигураларды графикалық түрде салуға мүмкіндік береді. Кез-келген графикалық объектіні нүктелер, сызықтар, доғалар көмегімен салуға болады. Паскальда экранның ажыратымдылығы 640 x 480 растрлық графикалық режим қолданылады. Сурет салу графикалық процедураларға көрсетілетін объектінің басталу және аяқталу нүктелерінің координаттарын орнатудан тұрады. Нысанның түсі, сызықтардың қалыңдығы, сондай-ақ олардың стилі графикалық процедуралардың параметрлері ретінде орнатылады. Бағдарламалық жасақтаманы пайдаланып сурет салу үшін Паскаль графикалық модулін қосу керек.
Қажетті
Turbo Pascal бағдарламалау ортасы
Нұсқаулық
1-қадам
Көрсетілген сурет нысанын оның элементтеріне бөлшектеңіз. Жеке сызықтарды, доғаларды, шеңберлерді, тіктөртбұрыштарды және нүктелерді таңдаңыз. Бұл Turbo Pascal процедураларының көмегімен салуға болатын фигуралар.
2-қадам
Бағдарлама кодының басында графикалық модульді қосыңыз. Ол үшін келесі жолды жазыңыз: графикті қолданады. Әрі қарай графикалық режимді инициализациялау үшін бүтін айнымалылар жасаңыз: var gdet, gm: integer.
3-қадам
Бағдарлама денесінде begin кілт сөзінен кейін айнымалыларды инициализациялаңыз, олардың бірін нөлдік мәнге, ал екіншісіне анықтау мәнін беріңіз. Содан кейін графикалық сурет салу режимінің басталғанын көрсетіңіз, форманың жолын енгізіңіз: инитограф (gdet, gm, ''). Дисплей құрылғысын тазалаңыз: ақылдылық.
4-қадам
Сурет салуға фонның түсі мен сызылатын объектілердің сызықтық түсін орнатыңыз. Ол үшін SetBkColor (ақ) және SetColor (8) процедураларын қолданыңыз. Орнатылатын түс жақшаларда көрсетілген. Жалпы, Паскаль 16 түсті қолданады және олардың әрқайсысы санмен немесе арнайы түстер кестесіндегі сөзбен белгіленеді.
5-қадам
Экранның х осі солдан оңға, ал у осі жоғарыдан төмен қарай гратиуланы елестетіп көріңіз. Осы координаттар жүйесінің басында, яғни экранның жоғарғы сол жақ бұрышында (0, 0) координаталар орналасқан. Бірінші графикалық объектінің қажетті позициясының координаттарын есептеңіз. Осы жүйеде фигураларды салу үшін барлық координаттарды көрсетіңіз.
6-қадам
Процедура сызығын (x, y, x1, y1) пайдаланып сызық салыңыз, мұндағы х, у координаттары түзудің бастапқы нүктесі, ал x1, y1 оның соңы. Қажет болса, сызықтың қалыңдығын немесе түрін өзгертіңіз. Ол үшін SetLineStyle (0, 0, NormWidth) процедурасын қолданыңыз. Процедураның бірінші параметрі сызықты сызықша немесе нүктелік сызық етіп өзгерте алады - бұл санды 1 немесе 2-ге өзгертіңіз. Үшінші параметр сызықтардың қалыңдығын белгілейді. Әдетте, NormWidth параметрі әрқашан орнатылады - жіңішке сызықтар, қалың сызықтар үшін ThickWidth. Өзгертілген жол түрі осы процедураны шақырғаннан кейін салынады.
7-қадам
PutPixel (x, y, color) процедурасын пайдаланып экранға нүкте қойыңыз, мұндағы х және у нүктенің координаталары, ал түс оның түсі. Жабық пішінді салмас бұрын оның толтырылуын орнатуға болады. Ол үшін SetFillStyle (EmptyFill, 0) процедурасын шақырыңыз, мұнда бірінші параметр пішіннің толық толтырылуын, ал екіншісі толтыру түсін анықтайды.
8-қадам
Тіктөртбұрыш (х, у, х2, у2) процедурасының көмегімен тікбұрышты кескін салынады - координаттар пішіннің жоғарғы сол және төменгі оң жақ бұрыштарын орнатады. Шеңбер салу үшін Circle (x, y, R) түзуін жазыңыз, мұндағы x, y, R центрдің координаталары және шеңбердің радиусы, пиксельмен. Эллипсті салу қиынырақ, бұл үшін көптеген параметрлер қолданылады: Эллипс (x, y, BegA, EndA, RX, RY). Мұндағы x, y - эллипстің центрі, ал BegA және EndA эллиптикалық доғаның басталу және аяқталу бұрышын көрсетеді. RX, RY айнымалылары эллипс радиусын сәйкесінше х және у осьтері бойынша орнатады.
9-қадам
Егер сізде берілген кескін болса, оны бөлек сегменттерге салу оңай, бұл үшін MoveTo және LineTo процедураларын қолданыңыз. Алдымен ағымдағы курсорды қажетті нүктеге жылжытыңыз: MoveTo (x, y). Содан кейін одан келесі LineTo (x1, y1) нүктесіне сызық жүргізіп, тағы да LineTo (x2, y2) түзу сызығын сызыңыз және бастапқы пішінді алғанға дейін.
10-қадам
Бағдарлама кодына сурет салғаннан кейін графикалық режимді мына жолмен жабыңыз: closegraph. Бағдарламаның негізгі бөлігін, әдеттегідей, аяқталу сөзімен аяқтаңыз. Енді кодты құрастыруға және орындауға жіберуге болады.
