Program Pascal Dengan Looping For Downto Do
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
Categories:
Program Pascal
bisa nggak angkanya di ganti menjadi tulisan. kalo bisa minta codingannya dong
BalasHapusgimana script nya kalo hasilnya seperti ini ?
BalasHapus1
12
123
1234
12345
1234
123
12
1
bagaimana caranya bisa buat tabel perkalian ke bawah
BalasHapusseperti di bawah ini;
1 2 3
1 2 3
2 4 6
dan seterusya...???
mohon petunjuk..
terimakasih