Turbo Pascal proqramlaşdırma dili ekranda qrafik şəklində müxtəlif formalı şəkillər çəkməyə imkan verir. İstənilən qrafik obyekt nöqtələr, xətlər, qövslərdən istifadə etməklə qurula bilər. Pascal, ekran çözünürlüğü 640 x 480 olan bir raster qrafika rejimindən istifadə edir. Rəsm, qrafik prosedurlarına göstəriləcək obyektin başlanğıc və bitmə nöqtələrinin koordinatlarını təyin etməkdən ibarətdir. Obyektin rəngi, xətlərin qalınlığı və üslubu da qrafik prosedurların parametrləri kimi təyin olunur. Proqramdan istifadə edərək rəsm çəkmək üçün Paskal qrafika modulunu birləşdirməlisiniz.
Zəruri
Turbo Pascal proqramlaşdırma mühiti
Təlimat
Addım 1
Göstərilən rəsm obyektini tərkib hissələrinə ayırın. Fərdi xətləri, yayları, dairələri, düzbucaqlıları və nöqtələri seçin. Bunlar Turbo Pascal prosedurlarından istifadə edərək çəkilə bilən formalardır.
Addım 2
Proqram kodunun əvvəlində qrafik modulunu birləşdirin. Bunu etmək üçün belə bir sətir yazın: qrafik istifadə edir. Sonra qrafik rejimini işə salmaq üçün tam dəyişənlər yaradın: var gdet, gm: integer.
Addım 3
Proqramın gövdəsində start açar sözündən sonra dəyişənləri başlanğıc edin, onlardan birini sıfır dəyər, ikincisini isə aşkarlama dəyərini təyin edin. Sonra qrafik rəsm rejiminin başlanğıcını göstərin, formanın bir sətrini daxil edin: initgraph (gdet, gm, ''). Ekran cihazını silin: cleardevice.
Addım 4
Rəsm üçün arxa plan rəngini və çəkiləcək obyektlərin xətt rəngini təyin edin. Bunun üçün SetBkColor (ağ) və SetColor (8) prosedurlarını istifadə edin. Qurulacaq rəng mötərizədə göstərilir. Ümumilikdə, Paskal 16 rəng istifadə edir və bunların hər biri ya rəqəmlə, ya da xüsusi bir rəng masasından bir sözlə təyin olunur.
Addım 5
X oxu soldan sağa və yuxarıdan aşağıya y oxu ilə bir ekran qratikulunu təsəvvür edin. Bu koordinat sisteminin başlanğıcında, yəni ekranın yuxarı sol küncündə koordinat (0, 0) dayanır. İlk qrafik obyektin istədiyiniz mövqeyinin koordinatlarını hesablayın. Bu sistemdə rəqəmlər çəkmək üçün bütün koordinatları göstərin.
Addım 6
Prosedur xəttindən (x, y, x1, y1) istifadə edərək bir xətt çəkin, burada x, y koordinatları xəttin başlanğıc nöqtəsidir və x1, y1 onun sonudur. Xəttin qalınlığını dəyişdirin və ya zəruri hallarda yazın. Bunu etmək üçün SetLineStyle (0, 0, NormWidth) prosedurundan istifadə edin. Prosedurun ilk parametri xətti tire və ya nöqtəli bir xətt halına gətirərək dəyişə bilər - bu rəqəmi 1 və ya 2-yə dəyişdirin. Üçüncü parametr xətlərin qalınlığını təyin edir. Varsayılan olaraq, NormWidth parametri həmişə qurulur - qalın xətlər üçün ThickWidth olaraq incə xəttlər. Dəyişdirilən sətir növü bu proseduru çağırdıqdan sonra çəkiləcəkdir.
Addım 7
PutPixel (x, y, color) prosedurundan istifadə edərək ekranda bir nöqtə qoyun, burada x və y eyni zamanda nöqtənin koordinatlarıdır və rəng onun rəngidir. Qapalı bir forma çəkmədən əvvəl, onun doldurulmasını təyin edə bilərsiniz. Bunu etmək üçün SetFillStyle (EmptyFill, 0) prosedurunu çağırın, burada birinci parametr formanın möhkəm dolmasını, ikincisi isə doldurma rəngini təyin edir.
Addım 8
Düzbucaqlı (x, y, x2, y2) prosedurundan istifadə edərək düzbucaqlı bir forma çəkilir - koordinatlar formanın yuxarı sol və aşağı sağ künclərini təyin edir. Bir dairə çəkmək üçün Circle (x, y, R) sətirini yazın, burada x, y, R mərkəzin koordinatları və dairənin radiusu da piksel şəklindədir. Bir ellips çəkmək daha çətindir, bunun üçün daha çox parametr istifadə olunur: Elips (x, y, BegA, EndA, RX, RY). Burada x, y ellipsin eyni mərkəzidir və BegA və EndA, eliptik qövsün başlanğıcının və bitməsinin açısını göstərir. RX, RY dəyişənləri müvafiq olaraq x və y oxları boyunca ellips radiusunu təyin edir.
Addım 9
Ayrı-ayrı seqmentlərdə çəkmək ən asan olan müəyyən bir formanız varsa, bunun üçün MoveTo və LineTo prosedurlarını istifadə edin. Əvvəlcə cari imleci istədiyiniz nöqtəyə aparın: MoveTo (x, y). Sonra ondan növbəti nöqtəyə bir xətt çəkin LineTo (x1, y1) və yenidən düz forma alana qədər LineTo (x2, y2) və s.
Addım 10
Proqram kodunda rəsm çəkildikdən sonra qrafika rejimini sətirlə bağlayın: closegraph. Proqramın əsas hissəsini, həmişəki kimi, son sözü ilə bitirin. İndi kod tərtib edilərək icra oluna bilər.
