Page 22 - Pengenalan Bahasa Basic
P. 22

10. Tuliskan hasil pelaksanaan program berikut!
                   a)   10 DATA 8,10
                       20 READ P, Q
                       30 IF P > Q THEN 60
                       40 PRINT “P LEBIH KECIL DARI Q”
                       50 GOTO 100
                       60 IF P = Q THEN 90
                       70 PRINT “P LEBIH BESAR DARI Q”
                       80 GOTO 100
                       90 PRINT “P SAMA DENGAN Q”
                       100 END

                   b)  10 DATA 3, 4, 5
                       20 READ A, B, C
                       30 LET D = C * C
                       40 IF D = (A * A + B * B) THEN 70
                       50 PRINT “SEGITIGA ABC TIDAK SIKU-SIKU DI TITIK C”
                       60 GOTO 80
                       70 PRINT ”SEGITIGA ABC ADALAH SIKU-SIKU DI TITIK C”
                       80 END




























































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