Page 28 - Pengenalan Bahasa Basic

Statement pada baris 60, 70, dan 80 pada program tersebut di atas merupakan salah satu cara
untuk memberikan alternatif pilihan untuk mengakhiri atau melanjutkan pelaksanaan program LOOP
tak terhingga. Dengan mengetikkan character T lalu [enter], maka program akan diakhiri dan bila
mengetikkan character Y lalu [enter], maka program akan dijalankan lagi seperti di atas.

SOAL-SOAL LATIHAN
1. Bagaimana pelaksanaan program berikut?
10 REM ”PROGRAM BELAJAR MATEMATIKA”
20 PRINT ”Masukkan dua bilangan!”
30 INPUT A, B
40 INPUT ”Jumlahnya = ”; C
50 IF C = A + B THEN 110
60 PRINT “Anda salah, coba sekali lagi!”
70 INPUT “Jumlahnya = “; C
80 IF C = A + B THEN 110
90 PRINT “Anda salah, yang betul adalah = “; A + B
100 GOTO 120
110 PRINT “Bagus Anda betul”
120 PRINT “Ingin memasukkan dua bilangan lagi? ”
130 PRINT ”Ketik Y jika ia, T jika tidak”
140 INPUT Y$
150 IF Y$ = ”Y” THEN 20
160 PRINT ”Selamat berlatih, see you next time!”

2. Buatlah flowchart program tersebut di atas!
3. Buatlah program untuk menghitung luas trapesium yang diketahui kedua sisi sejajarnya serta
tingginya. Gunakan statemen INPUT!
4. Buatlah program untuk menghitung luas segitiga sama sisi yang diketahui sisinya, dengan
menggunakan statement INPUT!
5. Hitung luas dan keliling lingkaran yang diketahui jari-jarinya. Pergunakan statement INPUT!

Bonus program: Screen 1 by Wira Sutejo.

10 SCREEN 2 : KEY OFF : CLS
20 INPUT “Harga X1 dan Y1 ….”; A(1), B(1)
30 INPUT “Harga X2 dan Y2 ….”; A(2), B(2)
40 INPUT “Kerapatan garis ….”; D
50 CLS
60 A = A(1) : B = B(1) : GOSUB 190
70 A = A(2) : B = B(2) : GOSUB 190
80 A$ = INPUT$(1)
90 RUN
100 ‘***Subrutin Penggambaran Garis
110 FOR X = 0 TO 199 STEP D/4
120 LINE (0,X) – (A,B)
130 LINE (639,X) – (A,B)
140 NEXT X
150 FOR Y = 0 TO 639 STEP D/2
160 LINE (Y,0) – (A,B)
170 LINE (Y,199) – (A,B)
180 NEXT Y
190 RETURN

Program_Turbo Basic 25 Edi Supriyanto, S. Pd.