Page 21 - Pengenalan Bahasa Basic
P. 21

SOAL-SOAL LATIHAN
               Tuliskan hasil pelaksanaan program berikut!
               1.  10 LET X = 3                               5.  10 DATA 40, 50, 80
                   20 PRINT X                                     20 READ S, M, U
                   30 IF X = 7 THEN 60                            30 LET NA = (2 * P+3 * M + 5 * U)/10
                   40 LET X = X + 2                               40 IF NA < 56 THEN 70
                   50 GOTO 20                                     50 PRINT “DINYATAKAN LULUS”
                   60 END                                         60 GOTO 80
                                                                  70   PRINT    “DINYATAKAN        TIDAK
               2.  10 REM ”PROGRAM LOOP”                          LULUS”
                   20 LET X = 1                                   80 END
                   30 PRINT ”D A M A I   D I   H A T I”
                   40 IF X = 5 THEN 60                        6.  10 DATA ALI, 40, 50, 80
                   50 LET X = X + 1                               20 READ N$, P, Q, R
                   60 GOTO 30                                     30 LET NA = (2 * P + 3 * Q + 5 * R) / 10
                   70 END                                         40  TL$  =  “DINYATAKAN  TIDAK
                                                                  LULUS”
               3.  10 LET X = 0                                   50 L$ = “DINYATAKAN LULUS”
                   20 PRINT X * X                                 60 IF NA < 56 THEN 90
                   30 IF X = 10 THEN 60                           70 PRINT N$, TL$
                   40 LET X = X + 2                               80 GOTO 100
                   50 GOTO 20                                     90 PRINT N$, L$
                   60 END                                         100 END

               4.  10 DATA 40,80                              7.  10 DATA 25, 50
                   20 READ N1, N2                                 20 READ A, B
                   30 LET X = (N1 + N2)/2                         30 IF A > B THEN 60
                   40 IF X > 55 THEN 70                           40 PRINT A; “LEBIH KECIL  DARI ”; B
                   50 PRINT “SISWA TIDAK LULUS”                   50 GOTO 70
                   60 GOTO 80                                     60 PRINT A; “LEBIH BESAR DARI “; B
                   70 PRINT “SISWA LULUS”                         70 END
                   80 END


               8.  Lengkapi pada baris 30 program di bawah ini!
                       10  LET X = 1
                       20 PRINT X
                       30 IF X = .... THEN .....
                       40 LET X = X + 2
                       50 GOTO 20
                       60 END

                   Hasil pelaksanaan programnya adalah:
                       1
                       3
                       5

               9.  Kita bermaksud membeli buku tulis. Untuk pembelian 10 buah atau lebih, harga pembelian Rp.
                   1000,00.  Jika  pembelian  kurang  dari  10  buah,  maka  harga  pembelian  Rp.  1.250,00  per  buku.
                   Lengkapilah baris 40 pada program berikut!
                       10  DATA .....
                       20 READ N
                       30 IF N > 10 THEN 60
                       40 ................................
                       50 GOTO 70
                       60 LET H = 1000 * N
                       70 PRINT ”HARGA SELURUH BUKU = ”; H
                       80 END

               Program Turbo Basic                          18                         Edi Supriyanto, S. Pd.
   16   17   18   19   20   21   22   23   24   25   26