penggunaan GO TO dalam turbo basic

Program pemilihan pada Turbobasic

Hai teman-teman kembali lagi di tulisan saya selanjutnya di blog ini, kali ini saya akan membagikan sedikit informasi tentang struktur pemilihan di program turbobasic dan akan memeberikan contoh programnya.Sebelumnya saya akan menjelaskan apa itu struktur dasar pemilihan? struktur pemilihan pada program turbobasic yaitu suatu kondisi terdapat ada dua buah kemungkinan yang akan terjadi pada program dimana perintah untuk melakukan proses selanjutnya terdapat kemungkinan benar atau salah (true/false) ini bisa digambarkan dengan menggunakan kata "jika".
contoh kasus pemilihan adalah dalam penentuan bialangan ganjil atau genap seperti berikut ini:

1. Masukkan bilangan bulat yang akan dicoba
2. Bagilah bilangan tersebut dengan angka 2
3. Hitung hasil sisa, jika nilai sisa sama dengan 0
4. Tampilkan "bilangan genap" pada layar
5. Jika nilai sisa tidak sama dengan 0
6. Tampilkan ke layar "bilangan ganjil"
7. Selesai

Apabila di tampilkan dengan sebuah flowchat maka akan menjadi seperti berikut:

Pada gambar diatas terdapat proses perintah yang bercabang, dan dua buah kemungkinan yaitu benar dan salah. Apabila kondisi memenuhi syarat prosesnya (benar) maka akan mencetak "bilangan genap" dan jika salah maka akan mencetak "bilangan ganjil", biasanya program pemilihan ini menggunakan fungsi if-then sebagai instruksinya.
Cukup sampai disini penjelasannya, selanjutnya saya akan memberikan contoh progam dalam turbobasic perulangan dengan if then else. Berikut contohnya:

Program menentukan bilangan positif atau negatif


ketikkan pada turbobasic anda:
1. cls
2. input "masukkan suatu bilangan =";bil
3. if bil = 0 then print "bilangan nol"
4. if bil > 0 then print "bilangan positif"
5. if bil < 0 then print "bilangan negatif"
6. end

Berikut tampilan dalam program dalam turbobasic :


Dan berikut hasil programnya :



Program dimensi hari ke waktu

ketikkan pada turbobasic anda seperti berikut:
1. cls
2. sub jam
3. input "masukkan jumlah hari =";hari
4. jam!=hari*24
5. Print "jumlah jam =";jam!
6. end sub
7. sub menit
8. input "masukkan jumlah hari="hari
9. menit!=hari*24*60
10. print "jumlah menit=";menit!
11. end sub
12. sub detik
13. input "masukkan jumlah hari=";hari
14. detik!=haro*24*60*60
15. print "jumlah detik=";detik!
16. end sub
17. cls
18. print "---->Menu pilihan<----"
19. print "1. Dalam jam"
20. print "2.Dalam menit"
21. print "3.Dalam detik"
22. input Masukkan piliahan anda=";pil$
23. if pil$="1" then
24. cls
25. call jam
26. elseif pil$="2" then
27. cls
28. call menit
29. elseif pil$="3" then
30. cls
31. call detik
32. end
33. end if
    Berikut tampilan pada turbo basic :
    

    Lanjutannya yah :D

    
    
    
    
    Berikut hasil dari programnya :
    
    Masukkan pilihan anda, kali ini saya memilih mengubah hari ke bentuk jam maka saya ketikkan angka "1" dan berikut hasilnya :
    

Demikian materi dan contoh program yang bisa saya bagikan di blog ini, semoga teman-teman paham tentang materi ini sehingga dapat membuat program yang lain sesuai kreatifitas masing-masing, apabila teman-teman ingin berdiskusi dengan saya silahkan tinggalkan komentar pada kolom komentar ya.
Sekian terimaksih
888730309180046