Instruksi Pengulangan pada Bahasa BASIC
Contoh : Menampilkan angka 1 sampai 100
Manual |
Dengan Pengulangan |
PRINT 1 PRINT 2 PRINT 3 … dst (akan sulit jika harus menulis
satu-satu hingga 100) |
Angka = 1 WHILE angka < 101 PRINT angka; angka = angka + 1 WEND END (syntax lebih sederhana) |
Algoritma |
Basic |
While(kondisi) …. Endwhile |
WHILE kondisi …. WEND |
Repeat …. Until(kondisi) |
DO …. LOOP UNTIL kondisi |
For(var=awal to akhir step n) …. endfor |
FOR var=awal TO akhir STEP n …. NEXT var |
Contoh : Algoritma Perulangan_1 {mencetak angka 1 hingga 100} Deklarasi Integer angka; Deskripsi Angka <- 1; While(angka<101) do Write (angka); Angka <- angka +1; Endwhile. |
Contoh : REM Program Perulangan_1 ‘mencetak angka 1 hingga 100 ‘menggunakan while Angka = 1 WHILE angka < 101 PRINT angka; angka = angka + 1 WEND END |
Algoritma Perulangan_2 {menghitung jumlah 1+2+3+…+N,N
dimasukkan lewat keyboard} Deklarasi Integer cacah,N,Jumlah; Deskripsi Write (“Masukkan nilai N : “); Read(N); Cacah <- 1; Jumlah <- 0; Repeat Jumlah <- Jumlah + cacah; Cacah <- cacah +1; Until (cacah >N). Write(“Jumlahnya = “,Jumlah); |
REM Program Perulangan_2 ‘menghitung jumlah 1+2+3+…+N ‘N dimasukkan lewat keyboard ‘menggunakan DO/LOOP UNTIL INPUT “masukkan nilai N : “;N Cacah =1 Jumlah =0 DO Jumlah = jumlah + cacah Cacah = cacah +1 LOOP UNTIL cacah >N PRINT “Jumlahnya = “;jumlah END |
Algoritma Perulangan_3 {menghitung nilai Rata dari N
buah bilangan} Deklarasi Integer cacah,N,angka,jumlah; real Rata; Deskripsi Write(“masukkan berapa bilangan
: “); Read(N); Jumlah <- 0; For (cacah = 1 to N step 1) Write(“masukkan bilangan
ke-“,cacah); Real(angka); Jumlah <- Jumlah + angka; Endfor. Rata <- Jumlah/N; Write(“Rata-rata = “,Rata); |
REM Program Perulangan_3 ‘menghitung nilai Rata dari N
buah bilangan ‘menggunakan FOR/NEXT INPUT”masukkan berapa bilangan
“;N Jumlah =0 FOR (cacah = 1 to N STEP 1) PRINT”masukkan bilangan
ke-“;cacah INPUT angka Jumlah = Jumlah + angka NEXT cacah Rata = Jumlah/N PRINT “Rata-rata = “;Rata |
Referensi : Suarga.2012.Algoritma dan Pemrograman.Yogyakarta:ANDI