Turbo Pascal პროგრამირების ენა საშუალებას გაძლევთ გრაფიკულად დახაზოთ სხვადასხვა ფორმა ეკრანზე. ნებისმიერი გრაფიკული ობიექტის აგება შეიძლება წერტილების, ხაზების, რკალების გამოყენებით. პასკალი იყენებს რასტრული გრაფიკის რეჟიმს, რომლის ეკრანის გარჩევადობაა 640 x 480. ნახაზი შედგება ობიექტის საწყისი და ბოლო წერტილების კოორდინატების დაყენებაში, რომლებიც გრაფიკული პროცედურებისთვის იქნება ნაჩვენები. ობიექტის ფერი, ხაზების სისქე და მათი სტილი ასევე მითითებულია როგორც გრაფიკული პროცედურების პარამეტრები. პროგრამული უზრუნველყოფის გამოყენებით ხატვისთვის საჭიროა დააკავშიროთ Pascal გრაფიკული მოდული.
აუცილებელია
Turbo Pascal პროგრამირების გარემო
ინსტრუქციები
Ნაბიჯი 1
დაიშალა მითითებული სახატავი ობიექტი მის შემადგენელ ელემენტებში. აირჩიეთ ინდივიდუალური ხაზები, რკალები, წრეები, მართკუთხედები და წერტილები. ეს არის ფორმები, რომელთა შედგენა შესაძლებელია Turbo Pascal პროცედურების გამოყენებით.
ნაბიჯი 2
პროგრამის კოდის დასაწყისშივე დააკავშირეთ გრაფიკული მოდული. ამისათვის დაწერეთ მსგავსი სტრიქონი: იყენებს გრაფიკს. შემდეგ, შექმენით მთელი ცვლადები გრაფიკული რეჟიმის დასაწყისისთვის: var gdet, gm: მთელი რიცხვი.
ნაბიჯი 3
პროგრამის არეში, საკვანძო სიტყვის დაწყების შემდეგ, ცვლადების ინიციალიზაცია, ერთ მათგანს მიანიჭეთ ნულოვანი მნიშვნელობა, ხოლო მეორეს - detekt. შემდეგ მიუთითეთ გრაფიკული ნახაზის რეჟიმის დასაწყისი, შეიყვანეთ ფორმის სტრიქონი: initgraph (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
მართკუთხა ფორმა შედგენილია Rectangle (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
პროგრამის კოდის ნახაზის ბოლოს, დახურეთ გრაფიკული რეჟიმი ხაზით: closegraph. დაასრულეთ პროგრამის ძირითადი ნაწილი, როგორც ყოველთვის, სიტყვით დასრულება. ახლა შესაძლებელია კოდის შედგენა და შესრულება შესრულებისთვის.
