Keturunan Pomparan Raja naimbaton(PARNA):
- Simbolon altong
- Simbolon hapotan
- Simbolon pande
- Simbolon panihai
- Simbolon suhut nihuta
- Simbolon tuan
- Sitanggang bau
- Sitanggang lipan
- Sitanggang gusar
- Sitanggang upar
- Sitanggang silo
- Saraan(sigalingging)
- Saragih dajawak
- Saragih damunte
- Saragih sumbayak
- Siadari
- Siallagan
- Siambaton
- Sidabalok
- Sidabungke
- Sidabutar
- Sigalingging
- Sidauruk
- Sijabat
- Simalango
- Simanihuruk
- Simarmata
- Sitio
- Tamba
- Tinambunan
- Tumanggor
- Turnip
- Turuten
- Bancin
- Banurea
- Boang menalu
- Brampu
- Brasa
- Bringin
- Dalimunte
- Gajah
- Garingging
- Ginting baho
- Ginting beras
- Ginting capa
- Ginting guru putih
- Ginting jadibata
- Ginting jawak
- Ginting manik
- Ginting munthe
- Ginting pase
- Ginting sinisuka
- Ginting sugihen
- Ginting tumangger
- Haro
- Kombih
- Maharaja
- Manik kecupak
- Munthe
- Nadeak
- Nahampun
- Napitu
- Pasi
- Pinayungan
- Rumahorbo
- Saing
Buat Program Perkalian Matriks
Program berikut merupakan program Turbo Basic untuk melakukan perkalian dua buah matriks, dimana matriks tersebut memiliki ordo yang dapat ditentukan ketika program dijalankan
Cls
input “Baris Matriks A =”;m
input “Kolom Matriks A dan Baris Matriks B =”;n
input “Kolom Matriks B =”;p
Dim a(m, n)
Dim b(n, p)
Dim c(m, p)
‘Inputkan matriks A
Cls
Print “Matriks A”
For i = 1 To m
For j = 1 To n
print “Nilai Matriks A(“;i;”,”;j;”)”:input a(i,j)
Next j
Next i
‘Inputkan Matriks B
Print
Print “Matriks B”
For i = 1 To n
For j = 1 To p
print “Nilai Matriks B(“;i;”,”;j;”)”:input b(i,j)
Next j
Next i
‘Tampilkan semua Matriks
Cls
Print “Matriks A”
For i = 1 To m
For j = 1 To n
Print a(i, j),
Next j
Print
Next i
Print “Matriks B”
For i = 1 To n
For j = 1 To p
Print b(i, j),
Next j
Print
Next i
‘hitung dan tampilkan matriks C
Print
Print
Print “MATRIKS C:”
For i = 1 To m
For j = 1 To p
c(i, j) = 0
For k = 1 To n
c(i, j) = c(i, j) + a(i, k) * b(k, j)
Next k
Print c(i, j),
Next j
Print
Next i
Cls
input “Baris Matriks A =”;m
input “Kolom Matriks A dan Baris Matriks B =”;n
input “Kolom Matriks B =”;p
Dim a(m, n)
Dim b(n, p)
Dim c(m, p)
‘Inputkan matriks A
Cls
Print “Matriks A”
For i = 1 To m
For j = 1 To n
print “Nilai Matriks A(“;i;”,”;j;”)”:input a(i,j)
Next j
Next i
‘Inputkan Matriks B
Print “Matriks B”
For i = 1 To n
For j = 1 To p
print “Nilai Matriks B(“;i;”,”;j;”)”:input b(i,j)
Next j
Next i
‘Tampilkan semua Matriks
Cls
Print “Matriks A”
For i = 1 To m
For j = 1 To n
Print a(i, j),
Next j
Next i
Print “Matriks B”
For i = 1 To n
For j = 1 To p
Print b(i, j),
Next j
Next i
‘hitung dan tampilkan matriks C
Print “MATRIKS C:”
For i = 1 To m
For j = 1 To p
c(i, j) = 0
For k = 1 To n
c(i, j) = c(i, j) + a(i, k) * b(k, j)
Next k
Print c(i, j),
Next j
Next i
Victor Hutabarat
Nama : Victor Hutabarat
TTL : Palembang Sumatra Selatan, 29 Agustus 1955
TTL : Palembang Sumatra Selatan, 29 Agustus 1955
VICKY SIANIPAR
Nama Lengkap : Viky Paulus Sianipa
TTL : DKI Jakarta 26 Juni 1976
Langganan:
Postingan
(Atom)