Bahasa pengaturcaraan Turbo Pascal membolehkan anda melukis pelbagai bentuk secara grafik di skrin. Sebarang objek grafik boleh dibina dengan menggunakan titik, garis, busur. Pascal menggunakan mod grafik raster dengan resolusi layar 640 x 480. Lukisan terdiri dalam menetapkan koordinat titik permulaan dan akhir objek yang akan ditunjukkan kepada prosedur grafik. Warna objek, ketebalan garis, serta gaya mereka, juga ditetapkan sebagai parameter prosedur grafik. Untuk menarik menggunakan perisian, anda perlu menyambungkan modul grafik Pascal.
Perlu
Persekitaran pengaturcaraan Turbo Pascal
Arahan
Langkah 1
Bongkar objek lukisan yang ditentukan ke dalam unsur penyusunnya. Pilih garis, busur, bulatan, segi empat tepat, dan titik individu. Ini adalah bentuk yang boleh dilukis dengan menggunakan prosedur Turbo Pascal.
Langkah 2
Pada awal kod program, sambungkan modul grafik. Untuk melakukan ini, tulis baris seperti ini: menggunakan grafik. Seterusnya, buat pembolehubah integer untuk memulakan mod grafik: var gdet, gm: integer.
Langkah 3
Di badan program, setelah kata kunci mula, mulakan pemboleh ubah, berikan salah satu daripadanya nilai sifar, dan yang kedua nilai mengesan. Seterusnya, tunjukkan permulaan mod lukisan grafik, masukkan sebaris bentuk: initgraph (gdet, gm, ''). Kosongkan peranti paparan: cleardevice.
Langkah 4
Tetapkan warna latar untuk melukis dan warna garis objek yang hendak dilukis. Gunakan prosedur SetBkColor (putih) dan SetColor (8) untuk ini. Warna yang akan ditentukan ditunjukkan dalam tanda kurung. Secara keseluruhan, Pascal menggunakan 16 warna, dan masing-masing ditentukan sama ada dengan angka atau kata dari jadual warna khas.
Langkah 5
Bayangkan graticule skrin dengan paksi-x dari kiri ke kanan dan paksi-y dari atas ke bawah. Pada asal sistem koordinat ini, iaitu di sudut kiri atas skrin, adalah koordinat (0, 0). Hitungkan koordinat kedudukan yang dikehendaki dari objek grafik pertama. Nyatakan semua koordinat untuk melukis angka dalam sistem ini.
Langkah 6
Lukis garis menggunakan garis prosedur (x, y, x1, y1), di mana koordinat x, y adalah titik permulaan garis, dan x1, y1 adalah hujungnya. Tukar ketebalan atau jenis garis jika perlu. Untuk melakukan ini, gunakan prosedur SetLineStyle (0, 0, NormWidth). Parameter pertama prosedur dapat mengubah garis dengan menjadikannya garis putus-putus, atau garis putus-putus - ubah nombor ini menjadi 1 atau 2. Parameter ketiga menetapkan ketebalan garis. Secara lalai, parameter NormWidth selalu ditetapkan - garis nipis, untuk garis tebal yang ditetapkan ThickWidth. Jenis garis yang diubah akan diambil setelah memanggil prosedur ini.
Langkah 7
Letakkan titik di layar menggunakan prosedur PutPixel (x, y, color), di sini x dan y juga merupakan koordinat titik, dan warnanya adalah warnanya. Sebelum melukis bentuk tertutup, anda boleh menetapkan isinya. Untuk melakukan ini, panggil prosedur SetFillStyle (EmptyFill, 0), di mana parameter pertama menentukan bentuk padat bentuk, dan yang kedua menentukan warna isian.
Langkah 8
Bentuk segi empat tepat dilukis menggunakan prosedur Persegi Panjang (x, y, x2, y2) - koordinat menetapkan sudut kanan atas dan bawah kanan bentuk. Untuk melukis bulatan, tulis garis Bulatan (x, y, R), di mana x, y, R adalah koordinat pusat dan jejari bulatan, juga dalam piksel. Elips lebih sukar digambar, lebih banyak parameter digunakan untuk ini: Ellipse (x, y, BegA, EndA, RX, RY). Di sini x, y adalah pusat elips yang sama, dan BegA dan EndA menunjukkan sudut di mana untuk memulakan dan menamatkan lengkungan elips. Pemboleh ubah RX, RY menetapkan masing-masing jejari elips di sepanjang paksi x dan y.
Langkah 9
Sekiranya anda mempunyai bentuk tertentu, yang paling mudah digambar dalam segmen yang berasingan, gunakan prosedur MoveTo dan LineTo untuk ini. Pertama, gerakkan kursor semasa ke titik yang anda mahukan: MoveTo (x, y). Kemudian lukis garis dari itu ke titik LineTo seterusnya (x1, y1) dan lukis sekali lagi garis lurus LineTo (x2, y2) dan seterusnya sehingga anda mendapat bentuk semula.
Langkah 10
Pada akhir gambar dalam kod program, tutup mod grafik dengan garis: closegraph. Tamatkan badan program, seperti biasa, dengan kata akhir. Sekarang kodnya dapat disusun dan dijalankan untuk pelaksanaan.
