Turbo Pascal programlama dili, ekranda çeşitli şekilleri grafiksel olarak çizmenize olanak tanır. Herhangi bir grafik nesne noktalar, çizgiler, yaylar kullanılarak oluşturulabilir. Pascal, 640 x 480 ekran çözünürlüğüne sahip bir raster grafik modu kullanır. Çizim, grafik prosedürlerine görüntülenecek nesnenin başlangıç ve bitiş noktalarının koordinatlarının ayarlanmasından oluşur. Nesnenin rengi, çizgilerin kalınlığı ve stili de grafik prosedürlerinin parametreleri olarak belirlenir. Yazılım kullanarak çizim yapmak için Pascal grafik modülünü bağlamanız gerekir.
Gerekli
Turbo Pascal programlama ortamı
Talimatlar
Aşama 1
Belirtilen çizim nesnesini kurucu öğelerine ayırın. Tek tek çizgileri, yayları, daireleri, dikdörtgenleri ve noktaları seçin. Bunlar Turbo Pascal prosedürleri kullanılarak çizilebilecek şekillerdir.
Adım 2
Program kodunun en başında grafik modülünü bağlayın. Bunu yapmak için şöyle bir satır yazın: kullanır grafiği. Ardından, grafik modunu başlatmak için tamsayı değişkenleri oluşturun: var gdet, gm: integer.
Aşama 3
Programın gövdesinde, start anahtar sözcüğünden sonra, değişkenlerden birine sıfır değeri ve ikincisine de algılama değeri atayarak değişkenleri başlatın. Ardından, grafik çizim modunun başlangıcını belirtin, formun bir satırını girin: initgraph (gdet, gm, ''). Görüntüleme cihazını temizle: cihazı temizle.
4. Adım
Çizim için arka plan rengini ve çizilecek nesnelerin çizgi rengini ayarlayın. Bunun için SetBkColor (beyaz) ve SetColor (8) prosedürlerini kullanın. Ayarlanacak renk parantez içinde belirtilmiştir. Pascal toplamda 16 renk kullanır ve bunların her biri ya bir sayı ya da özel bir renk tablosundan bir sözcük ile belirtilir.
Adım 5
X ekseni soldan sağa ve y ekseni yukarıdan aşağıya doğru olan bir ekran ızgarası hayal edin. Bu koordinat sisteminin başlangıç noktasında, yani ekranın sol üst köşesinde koordinat (0, 0) bulunur. İlk grafik nesnesinin istenen konumunun koordinatlarını hesaplayın. Bu özel sistemde şekil çizmek için tüm koordinatları belirtin.
6. Adım
Prosedür çizgisini (x, y, x1, y1) kullanarak bir çizgi çizin; burada x, y koordinatları çizginin başlangıç noktası ve x1, y1 bitiş noktasıdır. Gerekirse çizgi kalınlığını veya türünü değiştirin. Bunu yapmak için SetLineStyle (0, 0, NormWidth) prosedürünü kullanın. Prosedürün ilk parametresi çizgiyi kısa çizgi veya noktalı çizgi yaparak değiştirebilir - bu sayıyı 1 veya 2 olarak değiştirin. Üçüncü parametre çizgilerin kalınlığını ayarlar. Varsayılan olarak, NormWidth parametresi her zaman ayarlanır - kalın çizgiler için Kalın Genişlik olarak ayarlanan ince çizgiler. Bu prosedür çağrıldıktan sonra değiştirilen çizgi tipi çizilecektir.
7. Adım
PutPixel (x, y, color) prosedürünü kullanarak ekrana bir nokta yerleştirin, burada x ve y aynı zamanda noktanın koordinatlarıdır ve renk onun rengidir. Kapalı bir şekil çizmeden önce dolgusunu ayarlayabilirsiniz. Bunu yapmak için, ilk parametrenin şeklin katı dolgusunu, ikinci parametrenin ise dolgu rengini belirttiği SetFillStyle (EmptyFill, 0) prosedürünü çağırın.
8. Adım
Dikdörtgen (x, y, x2, y2) prosedürü kullanılarak bir dikdörtgen şekil çizilir - koordinatlar şeklin sol üst ve sağ alt köşelerini belirler. Bir daire çizmek için, Daire (x, y, R) satırını yazın; burada x, y, R, merkezin koordinatları ve dairenin yarıçapı da piksel cinsindendir. Bir elipsin çizilmesi daha zordur, bunun için daha birçok parametre kullanılır: Elips (x, y, BegA, EndA, RX, RY). Burada x, y, elipsin aynı merkezidir ve BegA ve EndA, eliptik yayın başlayacağı ve biteceği açıyı gösterir. RX, RY değişkenleri, sırasıyla x ve y eksenleri boyunca elipsin yarıçapını ayarlar.
9. Adım
Ayrı parçalar halinde çizmesi en kolay olan belirli bir şekle sahipseniz, bunun için MoveTo ve LineTo prosedürlerini kullanın. Önce, geçerli imleci istediğiniz noktaya getirin: MoveTo (x, y). Sonra ondan bir sonraki Noktaya Doğruya (x1, y1) bir çizgi çizin ve tekrar Doğruya (x2, y2) düz bir çizgi çizin ve orijinal şekli elde edene kadar böyle devam edin.
Adım 10
Program kodunda çizimin sonunda, grafik modunu şu satırla kapatın: closegraph. Programın gövdesini her zamanki gibi end kelimesiyle sonlandırın. Artık kod derlenebilir ve yürütme için çalıştırılabilir.
