Pascal : Contoh Program menggunakan Perulangan For To Do, DIV dan MOD

Program Pascal --- Contoh program berikut menggunakan Perulangan For To Do sebagai perulangan yang digunakan untuk membuat gambar segitiga dari sebuah bintang yang diulangi secara teratur. selain For To Do, contoh program juga menggunakan MOD dan DIV.

MOD adalah Modulus yang merupakan salah satu simbol operasi aritmatika yaitu sisa hasil pembagian

DIV adalah Integer Division, merupakan Hasil pembagian yang dibulatkan.

Nah Seperti itu penjelasan tentang MOD dan DIV, untuk lebih jelasnya langsung ke contoh programnya, program mencetak gambar..

Contoh program menggunakan aplikasi TPW 1.5

Baca juga : Download Turbo Pascal for Windows

Code Pascal

Program cetak;
Uses wincrt;
Var
       a,b,c,x: integer;
Begin
writeln('                    Mencetak Gambar');
writeln('=================================================='); Write (' Masukkan angka: ');readln(x);

Writeln;
If x mod 2=0 then
For a := 1 to (x div 2) do
Begin
For b := 1 to (x div 2)-a do
Write (' ');
For c := 1 to (a*2) do
Write ('*');
Writeln;
End
Else
For a := 1 to (x div 2)+1 do
Begin
For b := 1 to (x div 2)+(1-a) do
Write (' ');
For c := 1 to (a*2)-1 do
Write ('*');
Writeln;
End;
readln;
End.

Hasil Running

Seperti itu penggunaan perulangan For To Do serta MOD dan DIV dalam pembuatan program. Jadi, untuk mempermudah perhitungan dapat menggunakan ini sebagai acuannya.

Sekian. Wassalam..

Bagikan ke:

Facebook Google+ Twitter

• Program Pascal : Cara Membuat Program Mencari Nilai Luas Trapesium
• Program Pascal : Contoh penggunaan PROCEDURE dan perulangan IF ELSE membuat piramid Bilangan
• Program Pascal : Contoh program pascal menggunakan Array
• Mempelajari Array Penyimpanan data dalam Pemrograman dunia IT
• Program Pascal : Membuat program untuk menghitung Nilai berpangkat dengan Procedure
• Pascal : Contoh Program menggunakan Perulangan For To Do, DIV dan MOD
• Program Pascal : Kalkulator Mencari Nilai rata-rata contoh kode Procedure dan Array
• Pascal : Menentukan Tahun Kabisat yang mengirimkan sebuah Boolean dengan Function
• Pemrograman Pascal : Mengenal Nilai Genap dengan Array
• Pascal : Membuat Perhitungan Gaji dengan Turbo Pascal
• Pemrograman Pascal : Contoh Array 1 dimensi
• Pascal : Menghitung nilai Jajar Genjang dengan Turbo Pascal For Windows (TPW 1.5)
• Pascal : Penggunaan script Repeat Until dan Case Break
• Pascal : Membuat Program Menghitung detik menggunakan DIV MOD
• Pascal : Program Konversi Suhu menggunakan Case
• Mempelajari Algoritma Pemrograman Berorientasi Objek dikenal OOP
• Web : Cara mengatur Paragraf html code menjadi lebih teratur
• HTML : Belajar HTML Memasukkan link Bahasa Pemrograman WEB
• Belajar HTML Pemrograman Web
• Download Turbo Pascal for Windows (TPW 1.5)