Turbo Pascal программалоо тили графикалык түрдө экранда ар кандай фигураларды тартууга мүмкүнчүлүк берет. Ар кандай графикалык объектини чекиттерди, сызыктарды, жааларды колдонуп курууга болот. Паскаль экранынын чечилиши 640 х 480 болгон растрдык графикалык режимди колдонот. Чийме графикалык процедураларга көрсөтүлө турган объектинин башталыш жана акыркы чекиттеринин координаттарын орнотуудан турат. Графикалык процедуралардын параметрлери катары объектинин түсү, сызыктардын калыңдыгы, ошондой эле алардын стили дагы коюлган. Программанын жардамы менен сүрөт тартуу үчүн Паскаль графикалык модулун туташтыруу керек.
Зарыл
Turbo Pascal программалоо чөйрөсү
Нускамалар
1 кадам
Көрсөтүлгөн сүрөт объектисин анын курамдык элементтерине бөлүп салыңыз. Жеке сызыктарды, жааларды, тегерекчелерди, тик бурчтуктарды жана чекиттерди тандаңыз. Бул Turbo Pascal процедураларынын жардамы менен тартыла турган фигуралар.
2-кадам
Программа кодунун башында графикалык модулду туташтырыңыз. Ал үчүн мындай сапты жаз: графикти колдонот. Андан кийин, графикалык режимди баштоо үчүн бүтүн өзгөрмөлөрдү түзүңүз: var gdet, gm: integer.
3-кадам
Программанын негизги бөлүгүндө begin ачкыч сөзүнөн кийин, өзгөрүлмөлөрдү инициализациялап, алардын бирин нөл маанисине, экинчисин аныктоонун маанисин бер. Андан кийин, графикалык сүрөт тартуу режиминин башталышын көрсөтүп, форманын сабын киргизиңиз: initgraph (gdet, gm, ''). Дисплей шайманын тазалаңыз: cleardevice.
4-кадам
Сүрөт тартуу үчүн фон түсүн жана чийиле турган объектилердин сызык түсүн коюңуз. Бул үчүн SetBkColor (ак) жана SetColor (8) процедураларын колдонуңуз. Орнотула турган түс кашаанын ичинде көрсөтүлгөн. Жалпысынан Паскаль 16 түстү колдонот жана алардын ар бири сан же атайын түстөр таблицасынан сөз менен көрсөтүлөт.
5-кадам
Х огу солдон оңго, у огу өйдө ылдый карай экрандын гратикуласын элестетип көрүңүз. Бул координаттар тутумунун башталышында, башкача айтканда, экрандын жогорку сол бурчунда (0, 0) координатасы жайгашкан. Биринчи графикалык объектинин каалаган ордунун координаттарын эсептөө. Ушул системада фигураларды тартуу үчүн бардык координаттарды көрсөтүңүз.
6-кадам
Процедура сызыгын (x, y, x1, y1) колдонуп, x, y координаттары сызыктын башталышы, ал эми x1, y1 анын аягы болот. Керек болсо сызыктын калыңдыгын же түрүн өзгөртүңүз Бул үчүн SetLineStyle (0, 0, NormWidth) процедурасын колдонуңуз. Процедуранын биринчи параметри сызыкчаны же чекиттүү кылып өзгөртө алат - бул санды 1 же 2ге өзгөртүңүз. Үчүнчү параметр сызыктардын калыңдыгын белгилейт. Демейки боюнча, NormWidth параметри ар дайым орнотулат - ThickWidth коюу сызыктар үчүн ичке сызыктар. Өзгөртүлгөн сызык түрү ушул процедурага чалгандан кийин тартылат.
7-кадам
PutPixel (x, y, color) процедурасынын жардамы менен экранга чекит коюңуз, бул жерде x жана y дагы чекиттин координаттары, ал эми түс анын түсү. Жабык форманы тартуудан мурун, анын толтурулушун койсоңуз болот. Бул үчүн SetFillStyle (EmptyFill, 0) процедурасын чакырыңыз, мында биринчи параметр форманын катуу толтурулушун, экинчиси толтуруу түсүн көрсөтөт.
8-кадам
Тик бурчтуу фигура Rectangle (x, y, x2, y2) процедурасынын жардамы менен тартылат - координаттар форманын жогорку сол жана төмөнкү оң бурчтарын орнотот. Тегерек тартуу үчүн, 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. Программанын тулку бөлүгүн, адаттагыдай эле, аягы деген сөз менен аяктаңыз. Эми кодду түзүп, аткаруу үчүн иштетсе болот.
