Perulangan QBasic Part II

Sesi sebelumnya kita telah melakukan pemanasan untuk mengenal tentang fungsi operai For...Next, berikutnya dalam kesempatan ini fauzi mencoba untuk memperkenalkan dengan berbagai contoh soal For...Next Universal
yang beraneka ragam, silahkan untuk kita pelajari code program dan alur logika nya secara bersama-sama yah...

CONTOH SOAL 1
Diinginkan Output sebagai berikut:
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5

Code Programnya:


Sehingga dapat kita lihat algoritma dari program di atas sbb:
1.Clear screen (membersihkan layar)
2.Input nilai variable A (bernilai integer)
3.Lakukan perulangan pernyataan di bawah sampai kondisi B=1 TO A tidak terpenuhi
4.Lakukan perulangan pernyataan di bawah sampai kondisi C=1 TO B tidak terpenuhi
5.Tampilkan nilai variable C
6.Apakah ada kondisi variable C yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR C=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable C lebih dari nilai variable B
7.PRINT untuk ganti baris
8.Apakah ada kondisi variable B yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR B=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable B lebih dari nilai variable A
10.END untuk mengakhiri program

Dihasilkan Output:


Yang dapat di jabarkan sbb:
Penjelasan:
1.A=5
2.B=1 TO 5
3.C=1 TO B
4.Tampilkan nilai variable C {mendatar karena ada ”;”}
5.NEXT C {C=C+1} Ulangi FOR C=1 TO B dan seterusnya Sampai C lebih besar dari B
6.PRINT (Ganti Baris)
7.NEXT B {B=B+1} Ulangi FOR B=1 TO A dan seterusnya Sampai B lebih besar dari A
8.END

CONTOH SOAL 2
Diinginkan Output sebagai berikut:
1
2 2
3 3 3
4 4 4 4
5 5 5 5 5

Code Programnya:


Sehingga dapat kita lihat algoritma dari program di atas sbb:
1.Clear screen (membersihkan layar)
2.Input nilai variable A (bernilai integer)
3.Lakukan perulangan pernyataan di bawah sampai kondisi B=1 TO A tidak terpenuhi
4.Lakukan perulangan pernyataan di bawah sampai kondisi C=1 TO B tidak terpenuhi
5.Tampilkan nilai variable B
6.Apakah ada kondisi variable C yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR C=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable C lebih dari nilai variable B
7.PRINT untuk ganti baris
8.Apakah ada kondisi variable B yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR B=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable B lebih dari nilai variable A
10.END untuk mengakhiri program

Dihasilkan Output:


Yang dapat di jabarkan sbb:
Penjelasan:
1.A=5
2.B=1 TO 5
3.C=1 TO B
4.Tampilkan nilai variable B {mendatar karena ada ”;”}
5.NEXT C {C=C+1} Ulangi FOR C=1 TO B dan seterusnya Sampai C lebih besar dari B
6.PRINT (Ganti Baris)
7.NEXT B {B=B+1} Ulangi FOR B=1 TO A dan seterusnya Sampai B lebih besar dari A
8.END

CONTOH SOAL 3
Diinginkan Output sebagai berikut:
5 5 5 5 5
4 4 4 4
3 3 3
2 2
1

Code Programnya:


Sehingga dapat kita lihat algoritma dari program di atas sbb:
1.Clear screen (membersihkan layar)
2.Input nilai variable A (bernilai integer)
3.Lakukan perulangan pernyataan di bawah sampai kondisi B=1 TO A tidak terpenuhi
4.Lakukan perulangan pernyataan di bawah sampai kondisi C=1 TO A tidak terpenuhi
5.Tampilkan nilai variable A
6.Apakah ada kondisi variable C yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR C=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable C lebih dari nilai variable A
7.PRINT untuk ganti baris
8.Beri nilai Variabel A sama dengan nilai variabel A sebelumnya dikurangi satu
9.Apakah ada kondisi variable B yang memenuhi?, jika tidak lakukan pernyataan di bawah ini, jika masih, ulangi kembali pada statemen FOR B=1 TO A sampai kondisi tersebut tidak terpenuhi yaitu nilai variable B lebih dari nilai variable A
10.END untuk mengakhiri program

Dihasilkan Output:


Yang dapat di jabarkan sbb:
Penjelasan:
1.A=5
2.B=1 TO 5
3.C=1 TO A
4.Tampilkan nilai variable B {mendatar karena ada ”;”}
5.NEXT C {C=C+1} Ulangi FOR C=1 TO A dan seterusnya Sampai C lebih besar dari A
6.PRINT (Ganti Baris)
7.Beri Nilai A=A-1
8.NEXT B {B=B+1} Ulangi FOR B=1 TO A dan seterusnya Sampai B lebih besar dari A
9.END

Demikian 3 Contoh soal menggunakan For...Next Universal, kemudian jika teman-teman ingin mencoba soal yang lebih membutuhkan banyak bensin alias energi alias logika tinggi hehe.. berikut soal yang silahkan teman-teman nikmati:

Soal Ujian
Diinginkan Output sebagai berikut:

1 2 3 4 5 5 4 3 2 1
1 2 3 4 0 0 4 3 2 1
1 2 3 0 0 0 0 3 2 1
1 2 0 0 0 0 0 0 2 1
1 0 0 0 0 0 0 0 0 1

ket: 0 anggap itu adalah spasi

Naah... silahkan dicoba yah? jika sudah jadi silahkan dicocokan dengan code program yang telah berhasil saya buat di sini.. Ingat coba dulu sebelum menyerah? Tuhan pastikan pentujuk nya bagi hambanya yang sabar dan tak kenal putus asa.. hehe kaya dmasiv tuh! Semangat Teman! Cu Next Time...