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.