Contoh Program Kakulator Turbo Basic

BERIKUT INI ADALAH CONTOH PROGRAM KAKULATOR (TURBO BASIC)


cls
color 6
locate 1,16: print "TUGAS ALOGARITMA DAN PEMROGRAMAN 1"
color 3
locate 2,20: print "========================="
locate 3,20: print " DIBUAT OLEH : VICTOR INDRA"
locate 4,20: print "========================="


color 9
locate 6,20: print "========================="
locate 8,21: print " Program Perhitungan "
locate 9,20: print "========================="
locate 10,20: print "[1] Penjumlahan "
locate 11,20:print "[2] Pengurangan "
locate 12,20: print "========================"
locate 14,20: print "Pilihan Anda : Enter"

locate 14,35: input ,pil$

if pil$="1" then
cls
locate 7,20: print "========================="
locate 8,20: print " ketik angka pertama ="
locate 9,20: print " ketik angka kedua ="
locate 10,20: print " hasil Penjumlahan ="
locate 11,20: print "========================="
locate 8,42: input ,a1
locate 9,42: input ,a2
locate 10,42: print ;a1+a2
locate 11,20: print "tekan enter untuk keluar program!"
end if

if pil$="2" then
cls
locate 7,20: print "========================="
locate 8,20: print "ketik angka pertama ="
locate 9,20: print "ketik angka kedua ="
locate 10,20: print "Hasil Pengurangan ="
locate 11,20: print "========================="
locate 8,42: input ,a1
locate 9,42: input ,a2
locate 10,42: print ,a1-a2
locate 11,20: print "tekan enter untuk keluar program!"
end if