12.03
Unknown
1 CLS
5 PRINT menu
10 PRINT
15 PRINT "1
menghitungluas segitiga"
20 PRINT "2
menghituing luas permukaa bola"
25 PRINT "3
menghitung isi kubus"
30 PRINT
35 INPUT
"pilih nomor (1,2,3)"; pilih
40 ON pilih GOTO
100, 130, 150
45 PRINT
50 GOTO 30
100 INPUT
"panjang alas dan tinggi segitiga="; a: t
110 luas = (1 /
2) * a * t
120 PRINT
"luas segitiga"; luas
125 END
130 INPUT
"phi dan jari-jari="; phi: r
135 luas = (4 /
3) * (3.14) * r ^ 2
140 PRINT
"luas permukaan bola"; luas
145 END
150 INPUT "sisi
pada kubus="; s
160 volume = s ^
3
165 PRINT
"isi kubus"; volume
170 END
Jika pada QBASIC akan tampak :
SELAMAT MENCOBA !!!
