Page 27 - Pengenalan Bahasa Basic

1) 10 PRINT ”Masukkan tiga bilangan!”
20 INPUT A, B, C
30 PRINT ”Hasil kali ketiga bilangan tersebut adalah ”; A * B * C
40 END

Setelah program dijalankan, maka computer melaksanakan baris 10 dan 20 dan pada layer computer
Anda akan tampak:
Masukkan tiga bilangan!
?
yang berarti meminta kita untuk memasukkan tiga bilangan, misalnya 10, 11, 20. Setelah bilangan-
bilangan tersebut kita ketik dan kemudian kita tekan [Enter], maka pada layar komputer kita akan
muncul tampilan:
Masukkan tiga bilangan!
? 10, 11, 20
Hasil kali ketiga bilangan tersebut adalah 2200

2) 10 REM ”STATEMENT INPUT DENGAN LOOP”
20 PRINT ”Masukkan dua bilangan!”
30 INPUT A, B
40 PRINT ”Jumlah kedua bilangan tersebut adalah ”; A + B
50 GOTO 20
60 END

Program di atas jika dijalankan tidak dapat berhenti, karena mengandung loop tak terhingga.
Setiap selesai memasukkan dua data lalu [enter] selalu muncul tanda tanya lagi yang berarti
minta memasukkan data berikutnya. Hal ini disebabkan pada baris 50 program tersebut selalu
memerintahkan untuk kembali ke baris 20 dan tak pernah bisa mengerjakan baris ke 60.

3) Program tersebut dapat disempurnakan dengan menambahkan beberapa statement lain, seperti
program berikut ini:

10 REM ”STATEMENT INPUT DENGAN LOOP”
20 PRINT ”Masukkan dua bilangan!”
30 INPUT A, B
40 PRINT ”Jumlah kedua bilangan tersebut adalah ”; A + B
45 PRINT
50 PRINT ”Ingin memasukkan lagi? ”
60 PRINT ”Ketik Y bila ia, ketik T bila tidak!”
70 INPUT N$
80 IF N$ = ”Y” THEN 20
90 END

Setelah program dijalankan, maka computer melaksanakan baris 10 dan 20 dan pada layer computer
Anda akan tampak:
Masukkan dua bilangan!
?
yang berarti meminta kita untuk memasukkan tiga bilangan, misalnya 10, 20. Setelah bilangan-
bilangan tersebut kita ketik dan kemudian kita tekan [Enter], maka pada layar komputer kita akan
muncul tampilan:
Masukkan dua bilangan!
? 10, 20
Jumlah kedua bilangan tersebut adalah 30

Ingin memasukkan lagi?
Ketik Y bila ia, ketik T bila tidak!
?T

Program_Turbo Basic 24 Edi Supriyanto, S. Pd.