Berikut algoritma perulangan, "cara mencetak angka 1 sampai 10000 secara berurutan" :
- Dklarasikan variabel angka yang akan ditampilkan
- Deklarasikan nilai n yang akan ditampilkan
- Deklarasikan variabel angka terakkhir yang ingin ditampilkan
- Timpilkan angka
- Lakukan perhitungan disetiap prosesnya
- Kerjakan perintah sampai nilai hitung sampai di angka 10000
- Jika nilai hitung sudah sesuai yang diinginkan maka selesai
Berikut program perulangan yang dapat diaplikasikan pada turbobasic:
- Mencetak angka 1 sampai 1000 secara berurutan
Ketikkan pada komputer anda:- cls
- for i=1-10000
- print i
- next i
- end
Dalam tampilan turbo basic anda akan seperti ini:
Dan tampilan hasilnya akan seperti ini:
hehehe maaf tampilan hasilnya terpotong, untuk lebih jelasnya silahkan kalian coba pada turbobasic kalian dan nampaklah hasil sabenarnya, kalian juga dapat mengubah nilai variabel angkanya menjadi lebih banyak maupun lebih sedikit. Sehingga tanpa menuliskan perintah print 1-10000 kalian dapat rampungkan dengan perintah yang simpel seperti diatas, untuk selanjutnya saya akan memberi contoh program menggunakan loop, seperti nerikut ini:
- Menampilkan data kelipatan 5 ,1 sampai 8 serta total jumlah hasil perkaliannya
Ketikkan pada turbo basic anda seperti berikut:- cls
- i=0
- do:i=i+1
- f=i*5
- e=e+f
- print ";i;"*5;=";f
- if i=8 then exit loop
- loop
- print "________________+"
- print "total=";e
- end
Dan inilah hasil tampilannya:
Program diatas dapat di modifikasi sesuai keinginan teman-teman, tentunya sesuai dengan kebutuhan masing masing kan ya.:D
Demikian sedikit materi yang dapat saya bagikan di blog saya,untuk selanjutnya saya akan memberikan macam-macam perintah campuran dalam turbobasic( gabungan antara perulangan pemilihan dan mungkin runtutan) bagi teman teman yang kurang paham silakan ditanyakan pada kolom komentar ya.
Keren , sangat bermanfaat sekali bang terimakasih 👍
BalasHapus