0% menganggap dokumen ini bermanfaat (0 suara)
116 tayangan16 halaman

Program Dasar Matematika oleh Neisa

Program ini memberikan pilihan menu berupa 51 program yang dapat dijalankan pengguna untuk menyelesaikan berbagai soal matematika dan logika menggunakan bahasa pemrograman basic. Program-program tersebut meliputi penentuan luas dan keliling bangun datar dan ruang, operasi bilangan, dan penggunaan perintah kondisi IF-THEN-ELSE.

Diunggah oleh

Cut Neisa Salsabila
Hak Cipta
© All Rights Reserved
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOCX, PDF, TXT atau baca online di Scribd
0% menganggap dokumen ini bermanfaat (0 suara)
116 tayangan16 halaman

Program Dasar Matematika oleh Neisa

Program ini memberikan pilihan menu berupa 51 program yang dapat dijalankan pengguna untuk menyelesaikan berbagai soal matematika dan logika menggunakan bahasa pemrograman basic. Program-program tersebut meliputi penentuan luas dan keliling bangun datar dan ruang, operasi bilangan, dan penggunaan perintah kondisi IF-THEN-ELSE.

Diunggah oleh

Cut Neisa Salsabila
Hak Cipta
© All Rights Reserved
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOCX, PDF, TXT atau baca online di Scribd

[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"

Common questions

Didukung oleh AI

The program generates the sequence by iterating from 0 to 4 using a FOR loop. On each iteration, it calculates the current odd number by evaluating 2*i+1 and prints the result, producing the sequence 1, 3, 5, 7, and 9 .

The program calculates the factorial by initializing a 'jumlah' variable to 1 and using a FOR loop from 1 to n, multiplying 'jumlah' by the loop index (i) in each iteration. It continues this loop until 'i' reaches the input number 'n', printing the factorial at the end .

The program assesses eligibility in several contexts using IF...THEN...ELSE statements. Examples include checking if a person is old enough to marry, if someone can apply for an identification card, whether a person should diet based on weight, if a person's spending habits are frugal, or if a student's grade requires improvement. Each condition prompts a message indicating either eligibility or the need for a particular action .

The program employs IF...THEN...ELSE constructs to evaluate age-related permissions. It checks if a person is under 16 to determine marriage eligibility, less than 18 for obtaining identification, and under 65 for participating in the Hajj pilgrimage. Each condition outputs a permission or prohibition message based on the age input .

The program uses an IF...THEN...ELSE statement to determine whether a given number is even or odd. It takes input for a number and checks if the number modulo 2 equals 0. If true, it prints that the number is even; otherwise, it prints that the number is odd .

The program calculates the volume of a cone by taking inputs for the cone's radius and height, then applying the formula (1/3)πr^2h, where π is input as 'phi', and the result of the calculation is printed as the cone's volume .

To calculate the average, the program initializes a 'jumlah' variable to zero and iterates through inputs, summing them into 'jumlah'. It divides the cumulative sum by the count of numbers after receiving all inputs to compute the average. The accuracy depends on constant addition of inputs to the cumulative sum and careful division by the number of items, ensuring an error-free calculation .

The program first takes input for two 2x2 matrices, A and B. It then iterates over each element of the matrices using nested FOR loops, adding corresponding elements from A and B to create a new matrix C. The result is printed as the sum of matrices A and B .

The program asks for the base and height of the triangle as inputs. Once these inputs are received, it computes the area using the formula (1/2) * base * height and prints the result .

The program uses the quadratic formula to solve equations of the form ax^2 + bx + c = 0. It calculates the discriminant b^2 - 4ac to check the nature of the roots. If the discriminant is non-negative, it computes the roots using the formula (-b ± √discriminant) / (2a). The program prints the roots when they are real, or it indicates that the roots are imaginary if the discriminant is negative .

Anda mungkin juga menyukai