Perulangan QBASIC dengan menggunakan For...Next
Pada kesempatan ini saya ingin sharing saja tentang contoh coding perulangan dengan menggunakan for..next, mungkin kalian sudah banyak yang mengerti tentang QBASIC ini. Di dalam QBASIC terdapat statement perulnagn yaitu :
1. FOR NEXT merupakan perulangan dimana perulangan akan berhenti yaitu saat nilai
Pencacah mencapai nilai akhir yang diinginkan tanpa ada proses penyeleksian.
BENTUK UMUM FOR..NEXT :
FOR pencacah = nilai_awal TO nilai_akhir [STEP kenaikan]
[Blok Statement]
NEXT pencacahContoh coding nya sebagai berikut :
Cls
Dim X, Y, A, B As Integer
Print "MASUKKAN BANYAK BILANGAN :";
INPUT A
Print
Print "BILANGAN GENAPNYA : ";
For X = 2 To A Step 2
Print X;
Next X
Print
Print "BILANGAN GANJILNYA : ";
For Y = 1 To A Step 2
Print Y;
Next Y
End
Hasil nya akan seperti gambar di bawah ini :
Subscribe to:
Post Comments (Atom)
Posts
