Perhatikan codingan dibawah :
Keterangan :
- Pada baris pertama terdapat codingan “program
perkalian pascal, ini adalah sebuah judul dari program yang akan kita buat.
- User crt : yaitu perintah unit dari program
pascal ini sendiri.
- Var : yaitu pendeklarasian variable yang akan
kita gunakan dalam membuat program, nah maksud perintah a,b,c array
[1..50,1..50] of integer adalah menyatakan data yang kita gunakan adalah data
integer dan menjelaskan variable a,b,c sebagai array dengan dua ordo.
- Perintah
I,j,k,x,y,z integer menandakan pedeklarasian data variable I,j,k,x,y,z
bertipe bilangan bulat.
- Begin : merupakan perintah untuk memulai
program.
- Clrscr : perintah yang berfungsi untuk
membersihkan layar.
- Writeln (‘Ukuran matriks A’) : mencetak kata
yang ada didalam kurung dan diapit tanda kutip atas yaitu kata “Ukuran matriks
A”
- Write (‘Baris : ‘) yaitu : menginput niai pada baris.
- Readln (x) : perintah untuk membaca nilai x yang akan kita input.
- Write (‘Kolom :’) yaitu : menginput nilai pada
kolom.
- Readln (y) : perintah untuk membaca nillai y
yang akan kita input.
- Writeln : memberikan jarak enter secara kebawah.
- Writeln (‘Ukuran matriks B’) : mencetak kata
yang ada didalam kurung dan diapit tanda koma atas yaitu kata “Ukuran matriks
B”
- Writeln (‘Baris : ‘ y) : mencetak nilai y yang
sudah kita input sebelumnya.
- Write (‘kolom ‘) : menginput nilai pada kolom
- Readln (z) :
perintah untuk membaca nilai z yang akan kita input.
- For I = 1 to x do : proses looping dimana nilai
I adalah 1 sampai nilai x yang sudah kita input tadi.
- For j = 1 to y do : sama seperti perintah
sebelumnya yaitu proses looping dimana nilai j adalah 1 sampai nilai y yang
sudah kita input sebelumnya.
- Begin : memulai program kembali.
- Write (‘Elemen
A[‘,I,’,’,j,’] : mencetak Elemen A beserta menginput nilai I dan J.
- Readln (a[I,j]) : membaca nilai dari variable a
dan nilai I dan J.
- Writeln : memberikan jarak sebesar enter
kebawah.
- For i=1 to y do : proses looping kembali dimana
nilai I adalah 1 sampai nilai y.
- For j=1 to z do : melakukan proses looping
dimana nilai j adalah 1 sampai nilai z.
- Begin : memulai program kembali.
- Write (‘Elemen B[‘,I,’,’,j,’] : ‘) : mencetak
elemen B dan menginput nilai I dan J.
- Readln (b[I,j]) : membaca nilai dari variable b
dan nilai dari I dan j.
- For k:=1 to y do : proses looping dimana nilai k
adalah 1 sampai nilai y.
- C[I,j] = C[I,j] + A[I,,k] * b[k,j] : proses
matematika penambahan dan perkalian dimana nilai c+a*b.
- Writeln : memmberikan jarak kembali.
- Writeln (‘Hasil dari perkalian matrix a dengan
matrix b adalah ‘) : mencetak kata yang ada didalam kurung dan diapit tanda
kutip atas.
- Writeln : memberikan jarak kembali.
- For i=1 tox do : proses looping kembali dimana
nilai I adalah 1 dan sampai nilai x.
- Begin : memulai program kembali.
- For j=1 to z do : melakukan looping kembali
dimana nilai j adalah 1 sampai nilai z.
- Writeln : memberikan jarak.
- End : menghentikan semua printah yang ada diatas
sebelumnya.
Tampilan OUPUTnya :
Semoga Bermanfaat :))
Tidak ada komentar:
Posting Komentar