Turbo Paskal dasturlash tili sizga ekranda turli xil shakllarni grafik chizish imkonini beradi. Har qanday grafik ob'ektni nuqtalar, chiziqlar, yoylar yordamida qurish mumkin. Paskalda ekranning o'lchamlari 640 x 480 bo'lgan rastrli grafik rejimidan foydalaniladi. Chizma grafik protseduralarga ko'rsatiladigan ob'ektning boshlanish va tugash nuqtalarining koordinatalarini belgilashdan iborat. Ob'ektning rangi, chiziqlarning qalinligi, shuningdek ularning uslubi ham grafik protseduralarning parametrlari sifatida o'rnatiladi. Dasturiy ta'minot yordamida rasm chizish uchun Paskal grafik modulini ulash lozim.
Kerakli
Turbo Paskal dasturlash muhiti
Ko'rsatmalar
1-qadam
Belgilangan chizilgan ob'ektni uning tarkibiy qismlariga ajrating. Shaxsiy chiziqlar, yoylar, doiralar, to'rtburchaklar va nuqtalarni tanlang. Bu Turbo Paskal protseduralari yordamida chizish mumkin bo'lgan shakllar.
2-qadam
Dastur kodining boshida grafik modulni ulang. Buning uchun quyidagi qatorni yozing: grafadan foydalanadi. Keyinchalik, grafik rejimini boshlash uchun butun sonli o'zgaruvchilar yarating: var gdet, gm: integer.
3-qadam
Dastur korpusida start kalit so'zidan so'ng o'zgaruvchini initsializatsiya qiling, ulardan biriga nol qiymatini bering, ikkinchisiga esa aniqlang. Keyinchalik, grafik chizish rejimining boshlanishini ko'rsating, shaklning qatorini kiriting: initgraph (gdet, gm, ''). Displey qurilmasini tozalang: cleardevice.
4-qadam
Chizish uchun fon rangini va chizilgan narsalarning chiziq rangini o'rnating. Buning uchun SetBkColor (oq) va SetColor (8) protseduralaridan foydalaning. O'rnatiladigan rang qavs ichida ko'rsatilgan. Hammasi bo'lib Paskal 16 rangdan foydalanadi va ularning har biri raqam yoki maxsus rang jadvalidagi so'z bilan belgilanadi.
5-qadam
X o'qi chapdan o'ngga va y o'qi yuqoridan pastgacha bo'lgan ekranning gratikulasini tasavvur qiling. Ushbu koordinata tizimining boshlanishida, ya'ni ekranning yuqori chap burchagida (0, 0) koordinatalar joylashgan. Birinchi grafik ob'ektning kerakli pozitsiyasining koordinatalarini hisoblang. Ushbu tizimdagi raqamlarni chizish uchun barcha koordinatalarni ko'rsating.
6-qadam
Protsedura chizig'i (x, y, x1, y1) yordamida chiziq chizamiz, bu erda x, y koordinatalar chiziqning boshlang'ich nuqtasi, x1, y1 esa uning oxiri. Agar kerak bo'lsa, chiziq qalinligini yoki turini o'zgartiring. Buning uchun SetLineStyle (0, 0, NormWidth) protsedurasidan foydalaning. Protseduraning birinchi parametri chiziqni chiziqli yoki nuqta chiziqli qilib o'zgartirishi mumkin - bu raqamni 1 yoki 2 ga o'zgartiring. Uchinchi parametr chiziqlarning qalinligini belgilaydi. Odatiy bo'lib, NormWidth parametri har doim o'rnatiladi - qalin chiziqlar uchun qalin chiziqlar uchun ThickWidth o'rnatiladi. O'zgartirilgan chiziq turi ushbu protsedurani chaqirgandan so'ng chiziladi.
7-qadam
PutPixel (x, y, color) protsedurasi yordamida ekranga nuqta qo'ying, bu erda x va y ham nuqtaning koordinatalari, rang esa uning rangidir. Yopiq shaklni chizishdan oldin siz uning to'ldirilishini o'rnatishingiz mumkin. Buning uchun SetFillStyle (EmptyFill, 0) protsedurasini chaqiring, bu erda birinchi parametr shaklning qattiq to'ldirilishini, ikkinchisi esa to'ldirish rangini belgilaydi.
8-qadam
To'rtburchak (x, y, x2, y2) protsedurasi yordamida to'rtburchaklar shakli chizilgan - koordinatalar shaklning yuqori chap va pastki o'ng burchaklarini o'rnatadi. Doira chizish uchun Circle (x, y, R) chizig'ini yozing, bu erda x, y, R markazning koordinatalari va aylana radiusi, shuningdek piksellarda. Ellipsni chizish qiyinroq, buning uchun yana ko'plab parametrlardan foydalaniladi: Ellips (x, y, BegA, EndA, RX, RY). Bu erda x, y ellipsning bir xil markazidir va BegA va EndA elliptik yoyni boshlash va tugatish burchagini bildiradi. RX, RY o'zgaruvchilari ellips radiusini mos ravishda x va y o'qlari bo'ylab o'rnatadi.
9-qadam
Agar sizda alohida shaklda chizish eng oson bo'lgan shakl berilgan bo'lsa, buning uchun MoveTo va LineTo protseduralaridan foydalaning. Birinchidan, joriy kursorni kerakli nuqtaga o'tkazing: MoveTo (x, y). Keyin undan keyingi LineTo (x1, y1) nuqtasiga chiziq torting va yana LineTo (x2, y2) to'g'ri chizig'ini oling va asl shaklga ega bo'lguningizcha.
10-qadam
Dastur kodida rasm chizish oxirida grafik rejimni quyidagi satr bilan yoping: closegraph. Dasturning asosiy qismini odatdagidek end so'zi bilan tugating. Endi kodni kompilyatsiya qilish va bajarish uchun ishlatish mumkin.
