Turbo Pascal ծրագրավորման լեզուն թույլ է տալիս էկրանին գրաֆիկորեն նկարել տարբեր ձևեր: Graphանկացած գրաֆիկական օբյեկտ կարելի է կառուցել `օգտագործելով կետեր, գծեր, աղեղներ: Pascal- ն օգտագործում է ռաստերային գրաֆիկական ռեժիմ `640 x 480 էկրանի լուծաչափով: Նկարչությունը բաղկացած է օբյեկտի մեկնարկի և վերջի կետերի կոորդինատների տեղադրմամբ, որոնք պետք է ցուցադրվեն գրաֆիկական ընթացակարգերին: Որպես գրաֆիկական ընթացակարգերի պարամետրեր նույնպես դրվում են առարկայի գույնը, գծերի հաստությունը, ինչպես նաև դրանց ոճը: Softwareրագրակազմի միջոցով նկարելու համար անհրաժեշտ է միացնել Pascal գրաֆիկական մոդուլը:
Անհրաժեշտ է
Turbo Pascal ծրագրավորման միջավայր
Հրահանգներ
Քայլ 1
Ապամոնտաժեք նշված նկարչական օբյեկտը դրա բաղադրիչ տարրերի մեջ: Ընտրեք առանձին գծեր, աղեղներ, շրջանակներ, ուղղանկյուններ և կետեր: Սրանք այն ձևերն են, որոնք կարելի է նկարել, օգտագործելով Turbo Pascal ընթացակարգերը:
Քայլ 2
Codeրագրի ծածկագրի հենց սկզբում միացրեք գրաֆիկական մոդուլը: Դա անելու համար գրեք այսպիսի տող. Օգտագործում է գրաֆիկ: Հաջորդը, ստեղծեք ամբողջ փոփոխականներ `գրաֆիկական ռեժիմը նախաստորագրելու համար. Var gdet, gm: ամբողջ թիվ:
Քայլ 3
Theրագրի մարմնում, սկզբնական հիմնաբառից հետո, նախնականացրեք փոփոխականները `դրանցից մեկին տալով զրոյական արժեք, իսկ երկրորդին` հայտնաբերելու արժեքը: Հաջորդը, նշեք գրաֆիկական գծագրման ռեժիմի սկիզբը, մուտքագրեք ձևի տող ՝ սկզբնագիր (gdet, gm, ''): Մաքրել ցուցադրման սարքը. Cleardevice:
Քայլ 4
Սահմանեք գծագրության ֆոնի գույնը և գծագրվող օբյեկտների գծի գույնը: Դրա համար օգտագործեք SetBkColor (սպիտակ) և SetColor (8) ընթացակարգերը: Սահմանված գույնը նշվում է փակագծերում: Ընդհանուր առմամբ, Պասկալը օգտագործում է 16 գույն, և դրանցից յուրաքանչյուրը նշվում է կա՛մ համարով, կա՛մ հատուկ գունային աղյուսակի բառով:
Քայլ 5
Պատկերացրեք էկրանի ցանցապատկերը ՝ ձախից աջ x առանցքի, իսկ վերևից ներքև ՝ y առանցքի հետ: Այս կոորդինատային համակարգի սկզբնամասում, այսինքն ՝ էկրանի վերին ձախ անկյունում, գտնվում է կոորդինատը (0, 0): Հաշվեք առաջին գրաֆիկական օբյեկտի ցանկալի դիրքի կոորդինատները: Նշեք այս համակարգում գործիչներ նկարելու բոլոր կոորդինատները:
Քայլ 6
Գծիր մի տող, օգտագործելով ընթացակարգի տողը (x, y, x1, y1), որտեղ x, y կոորդինատները գծի ելակետն են, իսկ x1, y1 - դրա վերջը: Անհրաժեշտության դեպքում փոխեք գծի հաստությունը կամ տեսակը: Դա անելու համար օգտագործեք SetLineStyle (0, 0, NormWidth) կարգը: Ընթացակարգի առաջին պարամետրը կարող է փոխել տողը `այն դարձնելով գծանշան կամ կետավոր գիծ` փոխելով այս թիվը 1-ի կամ 2-ի: Երրորդ պարամետրը սահմանում է գծերի հաստությունը: Լռելյայնորեն, NormWidth պարամետրը միշտ դրված է. Բարակ գծեր, հաստ գծերի համար ՝ ThickWidth: Փոփոխված տողի տեսակը գծագրվելու է այս ընթացակարգը զանգահարելուց հետո:
Քայլ 7
Տեղադրեք մի կետ էկրանին PutPixel (x, y, գույն) կարգի միջոցով, այստեղ x և y- ը նաև կետի կոորդինատներն են, իսկ գույնը `դրա գույնը: Նախքան փակ ձև նկարելը, կարող եք սահմանել դրա լրացումը: Դա անելու համար զանգահարեք SetFillStyle (EmptyFill, 0) կարգը, որտեղ առաջին պարամետրը սահմանում է ձևի ամուր լրացումը, իսկ երկրորդը ՝ լրացման գույնը:
Քայլ 8
Ուղղանկյուն ձև է կազմվում ՝ օգտագործելով Ուղղանկյունի (x, y, x2, y2) կարգը. Կոորդինատները դնում են ձևի վերին ձախ և ներքևի աջ անկյունները: Շրջան նկարելու համար գրիր շրջանագիծը (x, y, R), որտեղ x, y, R կենտրոնի կոորդինատներն ու շրջանագծի շառավիղն են ՝ նույնպես պիքսելներով: Էլիպսն ավելի դժվար է նկարել, դրա համար օգտագործվում են ևս շատ պարամետրեր. Էլիպս (x, y, BegA, EndA, RX, RY): Այստեղ x, y- ն էլիպսի նույն կենտրոնն է, և BegA- ն և EndA- ն նշում են այն անկյունը, որի վրա պետք է սկսվի և ավարտվի էլիպսաձեւ աղեղը: RX, RY փոփոխականները համապատասխանաբար սահմանում են էլիպսի շառավիղը համապատասխանաբար x և y առանցքների վրա:
Քայլ 9
Եթե ունեք տրված ձև, որն ամենահեշտն է նկարել առանձին հատվածներում, դրա համար օգտագործեք MoveTo և LineTo ընթացակարգերը: Նախ, ընթացիկ կուրսորը տեղափոխեք ձեր ուզած կետը ՝ MoveTo (x, y): Դրանից հետո դրանից գծեր գցեք հաջորդ կետի LineTo (x1, y1) կետին և կրկին գծեք LineTo (x2, y2) ուղիղ գիծ և այսպես շարունակ, մինչև ստանաք նախնական ձևը:
Քայլ 10
Codeրագրի ծածկագրում նկարչության վերջում փակեք գրաֆիկական ռեժիմը գծի հետ. Closegraph: Endրագրի կազմը ավարտեք, ինչպես միշտ, ավարտեք բառով: Այժմ կոդը կարող է կազմվել և գործարկել կատարման համար:
