Kamis, 30 November 2017

Perulangan FOR...NEXT di Qbasic


Digunakan untuk mengontrol jalannya perulangan pada program, dimana statement tersebut akan mengalami perulangan selama kondisi atau pernyataan masih memenuhi syarat.
Bentuk Umumnya:
FOR (PENCACAH)=(AWAL) TO (AKHIR)
(STATEMENT)
NEXT (PENCACAH)
KETERANGAN
Pencacah : Nama sembarang numeric
Awal : nilai awal/batas bawah pencacah
Akhir : nilai akhir/batas atas pencacah


Penjelasannya :

1.CLS untuk membersihkan layar dari tampilan teks sebelumnya
2.INPUT untuk memasukan variable, program di atas menggunakan variable angka
3.FOR ... NEXT untuk melakukan suatu perulangan sampai kondisi yang digunakan bernilai salah, sehingga perulangan tersebut akan berhenti, dan melanjutkan ke statemen setelah NEXT
4.Pemberian nilai bahwa nilai variable angka bernilai sama dengan nilai variable angka sebelumnya dikurangi satu
5.END untuk mengakhiri program

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

Dan inilah hasil output nya

Dan seperti inilah bentuk flowchart nya



Baca selengkapnya »

0 komentar:

Posting Komentar

Copyright © Tongkrongannya Anak TKJ - 2016