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