Bahasa pemrograman Turbo Pascal memungkinkan Anda menggambar berbagai bentuk secara grafis di layar. Setiap objek grafis dapat dibangun menggunakan titik, garis, busur. Pascal menggunakan mode grafik raster dengan resolusi layar 640 x 480. Menggambar terdiri dari pengaturan koordinat titik awal dan akhir objek yang akan ditampilkan ke prosedur grafik. Warna objek, ketebalan garis, serta gayanya, juga ditetapkan sebagai parameter prosedur grafis. Untuk menggambar menggunakan perangkat lunak, Anda perlu menghubungkan modul grafis Pascal.
Diperlukan
Lingkungan pemrograman Turbo Pascal
instruksi
Langkah 1
Bongkar objek gambar yang ditentukan ke dalam elemen penyusunnya. Pilih masing-masing garis, busur, lingkaran, persegi panjang, dan titik. Ini adalah bentuk yang dapat digambar menggunakan prosedur Turbo Pascal.
Langkah 2
Di awal kode program, sambungkan modul grafis. Untuk melakukan ini, tulis baris seperti ini: menggunakan grafik. Selanjutnya, buat variabel integer untuk menginisialisasi mode grafik: var gdet, gm: integer.
Langkah 3
Di badan program, setelah kata kunci begin, inisialisasi variabel, berikan salah satunya nilai nol, dan yang kedua nilai deteksi. Selanjutnya, tunjukkan awal mode menggambar grafis, masukkan baris formulir: initgraph (gdet, gm, ''). Hapus perangkat tampilan: hapus perangkat.
Langkah 4
Mengatur warna latar belakang untuk menggambar dan warna garis dari objek yang akan digambar. Gunakan prosedur SetBkColor (putih) dan SetColor (8) untuk ini. Warna yang akan disetel ditunjukkan dalam tanda kurung. Secara total, Pascal menggunakan 16 warna, dan masing-masing ditentukan dengan angka atau kata dari tabel warna khusus.
Langkah 5
Bayangkan sebuah graticule layar dengan sumbu x dari kiri ke kanan dan sumbu y dari atas ke bawah. Pada asal sistem koordinat ini, yaitu di sudut kiri atas layar, adalah koordinat (0, 0). Hitung koordinat posisi yang diinginkan dari objek grafik pertama. Tentukan semua koordinat untuk menggambar angka dalam sistem khusus ini.
Langkah 6
Gambarlah garis menggunakan garis prosedur (x, y, x1, y1), di mana koordinat x, y adalah titik awal garis, dan x1, y1 adalah ujungnya. Ubah ketebalan atau jenis garis jika perlu. Untuk melakukannya, gunakan prosedur SetLineStyle (0, 0, NormWidth). Parameter pertama dari prosedur ini dapat mengubah garis dengan membuatnya menjadi tanda hubung, atau garis putus-putus - ubah angka ini menjadi 1 atau 2. Parameter ketiga mengatur ketebalan garis. Secara default, parameter NormWidth selalu diatur - garis tipis, untuk garis tebal diatur ThickWidth. Jenis garis yang diubah akan ditarik setelah memanggil prosedur ini.
Langkah 7
Tempatkan titik pada layar menggunakan prosedur PutPixel (x, y, warna), di sini x dan y juga koordinat titik, dan warna adalah warnanya. Sebelum menggambar bentuk tertutup, Anda dapat mengatur isinya. Untuk melakukannya, panggil prosedur SetFillStyle (EmptyFill, 0), di mana parameter pertama menentukan isian padat bentuk, dan yang kedua menentukan warna isian.
Langkah 8
Bentuk persegi panjang digambar menggunakan prosedur Persegi Panjang (x, y, x2, y2) - koordinat mengatur sudut kiri atas dan kanan bawah bentuk. Untuk menggambar lingkaran, tuliskan garis Lingkaran (x, y, R), di mana x, y, R adalah koordinat pusat dan jari-jari lingkaran, juga dalam piksel. Elips lebih sulit untuk 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 untuk memulai dan mengakhiri busur elips. Variabel RX, RY mengatur jari-jari elips di sepanjang sumbu x dan y, masing-masing.
Langkah 9
Jika Anda memiliki bentuk tertentu, yang paling mudah untuk digambar dalam segmen terpisah, gunakan prosedur MoveTo dan LineTo untuk ini. Pertama, pindahkan kursor saat ini ke titik yang Anda inginkan: MoveTo (x, y). Kemudian tarik garis dari itu ke titik berikutnya LineTo (x1, y1) dan lagi menggambar garis lurus LineTo (x2, y2) dan seterusnya sampai Anda mendapatkan bentuk aslinya.
Langkah 10
Di akhir menggambar dalam kode program, tutup mode grafik dengan baris: closegraph. Akhiri isi program, seperti biasa, dengan kata akhir. Sekarang kode dapat dikompilasi dan dijalankan untuk dieksekusi.
