1.
Buka program pascal lalu masukkan coddingan..
dan ini logikanya.
dan ini logikanya.
Program
perkalian_matrixs; =>ini adalah
sebagai judul program.
Uses
crt; =>untuk memanggil suatu library pada program.
Var; =>adalah pendeklarasian variabel yang di
pakai.
a,b,c : array
[1..50,1..50] of integer; =>Untuk
Mendeklarasikan kalo a,b,c d adalah
variable matris sedangkan [1..50,1..50] adalah variable array dengan tipe
Integer.
i,j,k,x,y,z : integer; =>pendeklarasian i,j,k,x,y,z dengan tipe Integer
Begin =>digunakan
untuk memulai Program
clrscr; =>Untuk membersihkan layar dari program
writeln('Ukuran matrix
A'); => untuk mencetak outputan si
user memasukkan ukuran matriks A.
write(‘Baris :’); =>
untuk menuliskanatau untuk inputan baris..
readln (x); => utuk mencetak atau menghasilkan
outputan yang di bagian syntax atas dengan di deklarasikan X…
write(‘kolom’); untuk menuliskanatau untuk inputan baris..
readln (Y); => utuk mencetak atau menghasilkan
outputan yang di bagian syntax atas dengan di deklarasikan Y…
writeln; =>untuk memberi jarak enter atau untuk
memberi baris baru buat kodingan yang baru.
writeln; =>untuk memberi jarak enter atau untuk
memberi baris baru buat kodingan yang baru.
writeln('Ukuran matrix
B'); => untuk mencetak outputan si
user memasukkan ukuran matriks B.
write(‘Baris y:’); =>
untuk menuliskanatau untuk inputan baris dengan pendeklarasian y..
write(‘kolom’); untuk menuliskanatau untuk inputan baris..
readln (Z); => utuk mencetak atau menghasilkan
outputan yang di bagian syntax atas dengan di deklarasikan Z…
for i:=1 to x do =>For i := 1 to
x do artinya akan melakukan perulangan
dari I:= 1 sampai X dan akan terus
melakukan perulangan sampai nilai X terpenuhi lalu do à
lakukan… Perulangan selanjutnya
for j:=1 to y do => artinya for j:=1 to y do akan
melakukan perulangan j:=1 sampai y dan akan terus melakukan perulangan sampai
nilai y terpenuhi lalu do à
lakukan…
Begin =>Berfungsi untuk memulai Program
write('Elemen
A[',i,',',j,'] : '); =>untuk
menuliskan atau ouptutan si user untuk baris dan kolom I dan J
readln(a[i,j]); => untuk membaca atauinputan si user
duntuk varibel a[I,j]
end; =>
untuk meng-Akhiri syntax / program
writeln; =>untuk memberi jarak enter atau untuk
memberi baris baru buat kodingan yang baru.
for i:=1 to y do =>For i := 1 to y do artinya akan melakukan perulangan dari I:=
1 sampai y dan akan terus melakukan
perulangan sampai nilai y terpenuhi lalu do à
lakukan… Perulangan selanjutnya
for j:=1 to z do => artinya for j:=1 to y do akan
melakukan perulangan j:=1 sampai y dan akan terus melakukan perulangan sampai
nilai z terpenuhi lalu do à
lakukan…
Begin =>Berfungsi untuk memulai Program
write('Elemen B[',i,',',j,']
: '); =>untuk menuliskan atau
ouptutan si user untuk baris dan kolom I dan J
readln(B[i,j]); => untuk membaca atauinputan si user
duntuk varibel B[I,j]
end; =>
untuk meng-Akhiri syntax / program
for i:=1 to x do =>For i := 1 to x do artinya akan melakukan perulangan dari I:=
1 sampai x dan akan terus melakukan
perulangan sampai nilai y terpenuhi lalu do à
lakukan… Perulangan selanjutnya
for j:=1 to z do => artinya for j:=1 to y do akan
melakukan perulangan j:=1 sampai y dan akan terus melakukan perulangan sampai
nilai z terpenuhi lalu do à
lakukan…
for j:=1 to z do => artinya for j:=1 to y do akan
melakukan perulangan j:=1 sampai y dan akan terus melakukan perulangan sampai
nilai z terpenuhi lalu do à
lakukan…
c[i,j] := c[i,j] +
a[i,k]*b[k,j]; =>ini adalah rumus / Operasi Perhitungan yang akan muncul
do outputan dimana baris c[i,j] sama
dengan baris c[i,j] di tambah kolom a[i,k] kali kolom b[k,j];
writeln; =>untuk memberi jarak enter atau untuk
memberi baris baru buat kodingan yang baru.
writeln; =>untuk memberi jarak enter atau untuk
memberi baris baru buat kodingan yang baru.
writeln('Hasil
dari perkalian Matrix A dengan Matrix B adalah : '); =>
untuk mencetak di outputan untuk mempertanyakan ('Hasil dari perkalian Matrix A dengan Matrix
B adalah : ');
writeln; =>untuk memberi jarak enter atau untuk
memberi baris baru buat kodingan yang baru.
for i:=1 to x do =>For i := 1 to x do artinya akan melakukan perulangan dari I:=
1 sampai x dan akan terus melakukan
perulangan sampai nilai y terpenuhi lalu do à
lakukan… Perulangan selanjutnya
for j:=1 to z do => artinya for j:=1 to y do akan
melakukan perulangan j:=1 sampai y dan akan terus melakukan perulangan sampai
nilai z terpenuhi lalu do à
lakuka…
Begin =>Berfungsi untuk memulai syntax /program
baru
for j:=1 to z do => artinya for j:=1 to y do akan
melakukan perulangan j:=1 sampai y dan akan terus melakukan perulangan sampai
nilai z terpenuhi lalu do à
lakukan…
write(c[i,j],' ');
=> untuk menuliskan masukan atau inputan si user dalam mengisi c
baris dan kolomnya.
writeln; =>untuk memberi jarak enter atau untuk
memberi baris baru buat kodingan yang baru
end; => untuk mengakhiri syntax / program
writeln; =>untuk memberi jarak enter atau untuk
memberi baris baru buat kodingan yang baru,
readln; =>Berfungsi untuk memasukan data perbaris,
yang If di tekan Enter akan
ganti baris baru…
end. =>Berfungsi untuk mengakhiri Syntax /
Program.
Seperti contoh program pascal saya..
2.
Jika sudah memasukan coddingan maka seharusnya akan
mengcompil..
Jika codingan
benar maka akan muncul seperti di gambar ini..
3.
Kemudian
jika compiling berhasil maka kemudian running program.
Maka akan keluar outputan dan msukan atau
inputan terserah user.
Tidak ada komentar:
Posting Komentar