Program Pascal Dengan Looping For Downto Do

Baca Juga

Pagis sobat dunia komputer, hari ini kita akan belajat mengenai Looping for..downto..do dimana fungsi ini dalam pascal merupakan fungsi perulangan menurun dan jumlah perulangan yang diingikan telah diketahui jumlahnya. hal ini berbeda dengan looping(perulangan) while..do ataupun repeat..until dimana perulangan yang diinginkan belum diketahui jumlahnya dan jalan atau tidaknya perulangan dalam program tergantung kondisi yang dipasang dalam program...

Sebagai Contoh Kali ini saya akan memberikan contoh program pascal dimana program akan mengulang terus dari angka genap sampai terendah membentuk segitiga. dibawah ini adalah source code ya.

Program nomor2b;

Uses crt;

Var a,b : integer;

Begin

           Clrscr;

           For a := 0 to 10 do

           Begin

           If a mod 2 = 0 then

           For b:=10 downto a do

           If b mod 2 = 0 then

           Write(b:2);

           Writeln;

           End;

           Readln;

End.

Tampilan output akan menjadi seperti ini

penjelasan script : Pada program di atas output yang muncul hanya bilangan genap saja dan ini merupakan fungsi dari  If a mod 2 = 0 (kondisi ini hanya akan memproses data-data dari a yang jika sisa hasil bagi tersebut 0 maka baru angka tersebut di proses lalu dilanjutkan then For b:=10 downto i do ( perintah perulangan ini akan membuat 10 berulang sampai a dan kondisi If b mod 2 = 0 ( maka perintah ini hanya akan mencetak output yang sesuai dengan kondisi itu yaitu bilangan genap dan write(b:2) angka 2 disini berfungsi sebagai jarak spasi antar angka yang dicetak.

Ok, saya rasa cukup sampai disini dan terima kasih telah membaca artikel ini..

jika, ingin mencopy artikel ini ke blog sobat jangan lupa tinggalkan credit untuk blog ini yakni..

duniakomputers.blogspot.com

Subscribe to receive free email updates: