Page 24 - Pengenalan Bahasa Basic
P. 24

2.  Perhatikan program berikut!              Bentuk Flow-Chartnya adalah sebagai berikut:

                       10 DATA ...                                   START
                       20 READ A, B
                       30 LET D = A + B
                       40 IF D > 0 THEN 70                         READ A, B
                       50 PRINT ”D BILANGAN NEGATIF”
                       60 GOTO 80                                 LET D = A + B
                       70 PRINT ”D BILANGAN POSITIF
                       80 END

                                                                     D > 0      Ya    PRINT “D BILANGAN POSITIF”


                                                                  Tidak
                                                          PRINT “D BILANGAN NOSITIF”


                                                                     END


               3.  Perhatikan program berikut!             Bentuk Flow-Chartnya adalah sebagai berikut:
                       10 LET X = 1
                       20 PRINT X                                   START
                       30 IF X = 7 THEN 60
                       40 LET X = X + 2
                       50 GOTO 20                                    X = 1
                       60 END

                                                                  PRINT X


                                                                     X = 7               END


                                                                 LET X = X + 2

               4.  Perhatikan Flow-Chart berikut!

                                START


                               READ N


                                N > 10              LET H = N * 50



                             LET H = N * 60


                                  PRINT “HARGA SELURUHNYA = “; H



                                 END


               Program Turbo Basic                          21                         Edi Supriyanto, S. Pd.
   19   20   21   22   23   24   25   26   27   28   29