[awalprogram]
print "program gabungan oleh CUT NEISA SALSABILA"
print "SILAKAN PILIH MENU PROGRAM DI BAWAH INI"
print "1. Luas daerah segitiga"
print "2. Luas daerah lingkaran"
print "3. Luas permukaan balok"
print "4. Luas permukaan tabung"
print "5. Luas permukaan bola"
print "6. Bilangan bulat positif 1 sampai 5"
print "7. Bilangan negatif kurang dari 10"
print "8. Bilangan genap 2 sampai 10"
print "9. Bilangan lompat ganjil"
print "[Link] per"
print "[Link] dibuat berbentuk tabel"
print "[Link] rata-rata"
print "[Link] ganjil 9 sampai 1"
print "[Link] ganjil 1 sampai 9"
print "[Link] mencari akar"
print "[Link] menggunakan perintah IF...THEN...ELSE"
print "[Link] menggunakan perintah IF...THEN...ELSE"
print "[Link] menggunakan perintah IF...THEN...ELSE"
print "[Link] menyeleksi bilangan ganjil atau genap"
print "[Link] menyelesaikan persamaan kuadrat oleh cut neisa"
print "[Link] faktorial"
print "[Link] menjumlahkan sebarang bilangan"
print "[Link] menjumlahkan sebarang bilangan"
print "[Link] menjumlahkan sebarang bilangan"
print "[Link] menjumlahkan sebarang bilangan"
print "[Link] menjumlahkan sebarang bilangan dan rata-ratanya"
print "[Link] Luas Daerah persegi"
print "[Link] Luas Daerah persegi panjang"
print "[Link] Luas Daerah trapesium"
print "[Link] Luas Daerah jajaran genjang"
print "[Link] Luas Daerah jajaran genjang"
print "[Link] keliling persegi"
print "[Link] keliling persegi panjang"
print "[Link] keliling segitiga"
print "[Link] keliling jajar genjang"
print "[Link] luas daerah lingkaran"
print "[Link] keliling lingkaran"
print "[Link] volume kubus"
print "[Link] volume balok"
print "[Link] volume limas segitiga"
print "[Link] volume tabung"
print "[Link] volume kerucut"
print "[Link] volume bola"
print "[Link] ganjil kurang dari 20"
print "[Link] genap kurang dari 20"
print "[Link] menggunakan perintah IF...THEN...ELSE"
print "[Link] menggunakan perintah IF...THEN...ELSE"
print "[Link] menggunakan perintah IF...THEN...ELSE"
print "[Link] menggunakan perintah IF...THEN...ELSE"
print "[Link] menggunakan perintah IF...THEN...ELSE"
print "[Link] menjumlahkan dua matriks"
input "program mana yang anda pilih?" ; n
select case n
case 1
[awal2]
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan Luas Daerah Segitiga"
print "berapa Alasnya";:input Alas
print "berapa Tingginya";:input Tinggi
L=(1/2)*Alas*Tinggi
print L
case 2
print "Program ini dibuat oleh cut neisa salsabila"
print "Menentukan Luas Daerah Lingkaran"
print "berapa phi" ;:input phi
print "berapa jari" ;:input jari
L=(phi)*jari^2
print L
case 3
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan Luas Permukaan Balok"
print "berapa panjang" ;:input panjang
print "berapa lebar" ;:input lebar
print "berapa tinggi" ;:input tinggi
L=2*(panjang*lebar+panjang*tinggi+lebar*tinggi)
Print L
case 4
print "Program ini dibuat oleh cut neisa salsabila"
print "Menentukan Luas Permukaan Tabung"
print "berapa phi" ;:input phi
print "berapa jari" ;:input jari
print "berapa tinggi" ;:input tinggi
L=2*phi*jari*(jari+tinggi)
Print L
case 5
print "Program ini dibuat oleh cut neisa salsabila"
print "Menentukan Luas Permukaan Bola"
print "berapa phi" ;:input phi
print "berapa jari" ;:input jari
L=4*phi*jari*jari
Print L
case 6
print "bilangan bulat positif 1 sampai 5"
for i=1 to 5
print i
NEXT
case 7
print "bilangan negatif kurang dari 10"
for i=1 to 5
print 2*i-1
NEXT
case 8
print "bilangan genap 2 sampai 10"
for i=1 to 5
print 2*i
NEXT
case 9
print "bilangan lompat bilangan ganjil"
for i=0 to 5
print i^2
NEXT
case 10
print "program ini dibuat oleh cut neisa salsabila"
print "bilagan per"
for i=1 to 5
print 1/i
NEXT
case 11
print "bilangan dibuat berbentuk tabel"
print"________________________"
print "i";" ";"2*i";" ";"2*i-1";" ";"i^2";" ";"1/i"
print"________________________"
for i=1 to 5
print i;" ";2*i;" ";2*i-1;" ";i^2;" ";1/i
NEXT
case 12
print "mencari rata-rata"
print "barisan"
jumlah=0
for i=1 to 5
jumlah=jumlah+i
rata=jumlah/i
print i
NEXT
print "jumlahnya";" = ";jumlah
print "rata-rata";" = ";rata
case 13
print "Dibuat oleh cut neisa"
print "bilangan ganjil 9 sampai 1"
for i=9 to 1 step -2
print i
NEXT
case 14
print " Dibuat oleh cut neisa"
print "bilangan ganjil 1 sampai 9"
for i=0 to 4
print 2*i+1
NEXT
case 15
print "cara mengcari akar"
print "program ini dibuat oleh cut neisa salsabila"
print sqr(111)
case 16
print "program menggunakan perintah IF...THEN...ELSE"
INPUT "masukkan suatu bilangan" ; i
IF i < 5 THEN
print i
ELSE
print "bilangan yang anda masukkan lebih dari 5"
end IF
case 17
print "program menggunakan perintah IF...THEN...ELSE"
INPUT "masukkan suatu bilangan" ; i
IF i < 5 THEN
print i
ELSE
print "bilangan yang anda masukkan lebih dari 5"
end IF
case 18
print "program menggunakan perintah IF...THEN...ELSE"
INPUT "berapa usia anda?" ; i
IF i < 16 THEN
print "anda belum boleh menikah"
ELSE
print "anda sudah boleh menikah"
end IF
case 19
print "program menyeleksi bilangan ganjil atau genap"
INPUT "isilah sebuah bilangan" ; i
IF i mod 2 = 0 THEN
print "bilangan yang anda ketik adalah bilangan genap"
ELSE
print "bilangan yang anda ketik adalah bilangan ganjil"
end IF
case 20
print "program menyelesaikan persamaan kuadrat oleh cut neisa"
print "berapa koefisien dari x^2?" ; : input a
print "berapa koefisien dari x?" ; : input b
print "berapa nilai konstanta?" ; : input c
d = b^2 - 4*a*c
IF d >= 0 THEN
print "x1 = " ; (-1*b + sqr(d)) / (2*a)
print "x2 = " ; (-1*b - sqr(d)) / (2*a)
ELSE
print "akarnya imajiner"
end IF
case 21
print "program faktorial"
print "berapa faktorial yang ingin dicari?" ; : input n
jumlah = 1
for i = 1 to n
jumlah = jumlah * i
NEXT
print n ; "! = "; jumlah
case 22
print "program menjumlahkan sebarang bilangan"
jumlah=0
for i=1 to 5
print "a(";i;")=";: input a(i)
jumlah=jumlah + a(i)
NEXT i
print "jumlahnya= ";jumlah
case 23
print "program menjumlahkan sebarang bilangan"
jumlah=0
for i=1 to 10
print "a(";i;")=";: input a(i)
jumlah=jumlah + a(i)
NEXT i
print "jumlahnya= ";jumlah
case 24
DIM a(15)
print "program menjumlahkan sebarang bilangan"
jumlah=0
for i=1 to 15
print "a(";i;")=";: input a(i)
jumlah=jumlah + a(i)
NEXT i
print "jumlahnya= ";jumlah
case 25
print "Program menjumlahkan sebarang bilangan"
print "berapa banyak data yang anda ingin jumlahkan" ;: input n
DIM a(5)
print "program menjumlahkan sebarang bilangan"
jumlah=0
for i=1 to n
print "a(";i;")=";: input a(i)
jumlah=jumlah + a(i)
NEXT i
print "jumlahnya= ";jumlah
case 26
print "Program menjumlahkan sebarang bilangan dan rata-ratanya"
print "berapa banyak data yang anda ingin jumlahkan" ;: input n
DIM a(n)
print "program menjumlahkan sebarang bilangan"
jumlah=0
for i=1 to n
print "a(";i;")=";: input a(i)
jumlah=jumlah + a(i)
rata=jumlah/i
NEXT i
print "jumlahnya= ";jumlah
print "ratanya= ";rata
case 27
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan Luas Daerah persegi"
print "berapa sisinya";:input sisi
L = sisi * sisi
print "jadi luas daerahnya adalah " ; L
case 28
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan Luas Daerah persegi panjang"
print "berapa panjang";:input panjang
print "berapa lebar";:input lebar
L = lebar * panjang
print "jadi luas daerahnya adalah " ; L
case 29
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan Luas Daerah trapesium"
print "berapa a";:input a
print "berapa b";:input b
print "berapa tinggi";:input tinggi
L = 1/2*(a+b)*tinggi
print "jadi luas daerahnya adalah " ; L
case 30
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan Luas Daerah jajaran genjang"
print "berapa alas";:input alas
print "berapa tinggi";:input tinggi
L = alas*tinggi
print "jadi luas daerahnya adalah " ; L
case 31
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan Luas Daerah jajaran genjang"
print "berapa d1";:input d1
print "berapa d2";:input d2
L = 1/2*d1*d2
print "jadi luas daerahnya adalah " ; L
case 32
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan keliling persegi"
print "berapa sisinya";:input sisi
K = 4*sisi
print "jadi kelilingnya adalah " ; K
case 33
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan keliling persegi panjang"
print "berapa panjang";:input panjang
print "berapa lebar";:input lebar
K = 2*(panjang+lebar)
print "jadi kelilingnya adalah " ; K
case 34
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan keliling segitiga"
print "berapa sisi";:input sisi
print "berapa sisi";:input sisi
print "berapa sisi";:input sisi
K = sisi+sisi+sisi
print "jadi kelilingnya adalah " ; K
case 35
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan keliling jajar genjang"
print "berapa sisiAB";:input sisiAB
print "berapa sisiBC";:input sisiBC
print "berapa sisiCD";:input sisiCD
print "berapa sisiAD";:input sisiAD
K = sisiAB+sisiBC+sisiCD+sisiAD
print "jadi kelilingnya adalah " ; K
case 36
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan luas daerah lingkaran"
print "berapa phi";:input phi
print "berapa jari";:input jari
L=2*phi*jari
print "jadi kelilingnya adalah " ; L
case 37
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan keliling lingkaran"
print "berapa phi";:input phi
print "berapa jari";:input jari
K=phi*jari^2
print "jadi kelilingnya adalah " ; K
case 38
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan volume kubus"
print "berapa sisi";:input sisi
V=sisi^3
print "jadi volumenya adalah " ; V
case 39
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan volume balok"
print "berapa panjang";:input panjang
print "berapa lebar";:input lebar
print "berapa tinggi";:input tinggi
V=panjang*lebar*tinggi
print "jadi volumenya adalah " ; V
case 40
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan volume limas segitiga"
print "berapa alassegitiga";:input alassegitiga
print "berapa tinggisegitiga";:input tinggisegitiga
print "berapa tinggi";:input tinggi
V=1/3*(1/2*alassegitiga*tinggisegitiga)*tinggi
print "jadi volumenya adalah " ; V
case 41
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan volume tabung"
print "berapa phi";:input phi
print "berapa jari";:input jari
print "berapa tinggi";:input tinggi
V=phi*jari^2*tinggi
print "jadi volumenya adalah " ; V
case 42
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan volume kerucut"
print "berapa phi";:input phi
print "berapa jari";:input jari
print "berapa tinggi";:input tinggi
V=1/3*phi*jari^2*tinggi
print "jadi volumenya adalah " ; V
case 43
print "Program ini dibuat oleh cut neisa salsabila "
print "Menentukan volume bola"
print "berapa phi";:input phi
print "berapa jari";:input jari
V=4/3*phi*jari^3
print "jadi volumenya adalah " ; V
case 44
print "program ini dibuat oleh cut neisa"
print "bilangan ganjil kurang dari 20"
for i=1 to 10
print 2*i-1
NEXT
case 45
print "program ini dibuat oleh cut neisa"
print "bilangan genap kurang dari 20"
for i=1 to 9
print 2*i
NEXT
case 46
print "program ini dibuat oleh cut neisa"
print "program menggunakan perintah IF...THEN...ELSE"
INPUT "berapa usia anda? " ; i
IF i < 18 THEN
print "kamu sudah boleh membuat ktp "
ELSE
print "kamu belum boleh membuat ktp"
end IF
case 47
print "program ini dibuat oleh cut neisa"
print "program menggunakan perintah IF...THEN...ELSE"
INPUT "berapa berat badan kamu? " ; i
IF i < 66 THEN
print "kamu jangan diet lagi"
ELSE
print "kamu sudah bisa diet"
end IF
case 48
print "program ini dibuat oleh cut neisa"
print "program menggunakan perintah IF...THEN...ELSE"
INPUT "berapa uang yang kamu habiskan dalam sebulan? " ; i
IF i < 1000000 THEN
print "kamu pandai menghemat uang"
ELSE
print "kamu terlalu boros"
end IF
case 49
print "program ini dibuat oleh cut neisa"
print "program menggunakan perintah IF...THEN...ELSE"
INPUT "berapa ip kamu semester ini? " ; i
IF i < 3.00 THEN
print "kamu harus lebih giat belajar!!!"
ELSE
print "kamu sudah berusaha dengan baik:)"
end IF
case 50
print "program ini dibuat oleh cut neisa"
print "program menggunakan perintah IF...THEN...ELSE"
INPUT "berapa umur kamu saat ini? " ; i
IF i < 65 THEN
print "kamu masih diizinkan mengikuti perjalanan ibadah haji"
ELSE
print "kamu tidak diizinkan lagi untuk mengikuti perjalanan ibadah haji"
end IF
case 51
print "program menjumlahkan dua matriks"
print "ini matriks A"
for i=1 to 2
for j=1 to 2
print "A(";i;",";j;")=";: input A(i,j)
NEXT
NEXT
print "ini matriks B"
for i=1 to 2
for j=1 to 2
print "B(";i;",";j;")=";: input B(i,j)
NEXT
NEXT
print "ini cetakan matrik A"
for i=1 to 2
for j=1 to 2
print A(i,j) ; " " ;
NEXT
print
NEXT
print "ini cetakan matriks B"
for i=1 to 2
for j=1 to 2
print B(i,j) ; " " ;
NEXT
print
NEXT
for i=1 to 2
for j=1 to 2
C(i,j) = A(i,j) + B(i,j)
print
NEXT
NEXT
print "ini jumlah matriks A dan B"
for i=1 to 2
for j=1 to 2
print C(i,j) ; " " ;
NEXT
print
NEXT
case ELSE
print "maaf program yang anda pilih tidak tersedia"
END select
print "apakah anda ingin mengulang program ini(Y/T)" ;: input n$
CLS
if n$="Y" or n$="y" then goto [awal2] ELSE [awalprogram]
print "tutup program ini, silakan lanjutkan ke program selanjutya"