Pagis teman 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 aktivitas tergantung kondisi yang dipasang dalam program…
Sebagai Contoh Kali ini aku akan menawarkan teladan aktivitas pascal dimana aktivitas akan mengulang terus dari angka genap hingga terendah membentuk segitiga. dibawah ini ialah source code ya.
Program nomor2b;
Uses crt;
Var a,b : integer;
Begin
Readln;
End.
Tampilan output akan menjadi menyerupai ini
klarifikasi script : Pada aktivitas 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 kalau sisa hasil bagi tersebut 0 maka gres angka tersebut di proses kemudian dilanjutkan then For b:=10 downto i do ( perintah perulangan ini akan membuat 10 berulang hingga 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, aku rasa cukup hingga disini dan terima kasih telah membaca artikel ini..
jika, ingin mencopy artikel ini ke blog teman jangan lupa tinggalkan credit untuk blog ini yakni..
duniakomputers.blogspot.com
Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like
Fan Page kami, dan
SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.