Diktat_Prosedural_04_ADTMatriks

Brsmaxkolminkolmax of eltype nbrseff integer

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: u dilakukan sekaligus } { Definisi TYPE MATRIKS dengan indeks integer } { Ukuran minimum dan maksimum baris dan kolom } type indeks : integer { indeks baris dan kolom } constant BrsMin : indeks = 1 constant BrsMax : indeks = 100 constant KolMin : indeks = 1 constant KolMax : indeks = 100 type el_type : integer type MATRIKS : < Mem : matrix[BrsMin..BrsMax,KolMin..KolMax] of el_type, NBrsEff : integer, { banyaknya/ukuran baris yg terdefinisi } NKolEff : integer { banyaknya/ukuran kolom yg terdefinisi } > { Memori matriks yang dipakai selalu di “ujung kiri atas” } {************ DEFINISI PROTOTIP PRIMITIF ************} {*** Konstruktor membentuk MATRIKS ***} procedure CreateMATRIKS (input NB,NK:integer, output M:MATRIKS) { Membentuk sebuah MATRIKS “kosong” berukuran NBxNK di “ujung kiri” memori } { I.S. NB dan NK adalah valid untuk memori matriks yang dibuat } { F.S. MATRIKS M terdefinisi dengan ukuran NBxNK } {*** Validasi Ukuran ***} function IsUkuranValid (NB,NK:integer) → boolean { Mengirimkan true jika NB dan NK adalah ukuran yang valid untuk } { membentuk MATRIKS NBxNK } {*** Selektor MATRIKS ***} {*** Selektor Get ***} function GetNBrsEff (M:MATRIKS) → integer { Mengirimkan banyaknya baris efektif M } function GetNKolEff (M:MATRIKS) → integer { Mengirimkan banyaknya kolom efektif M } function GetElmt (M:Matriks; i,j:indeks) → el_type { Mengirimkan elemen M dengan nomor baris i dan nomor kolom j } function GetElmtDiagonal (M:MATRIKS, i:indeks) → el_type { Mengirimkan elemen M[i,i] } {*** Untuk sebuah matriks M yang terdefinisi: ***} function GetFirstIdxBrs (M:MATRIKS) → indeks { Mengirimkan indeks baris terkecil M } function GetFirstIdxKol (M:MATRIKS) → indeks { Mengirimkan indeks kolom terkecil M } function GetLastIdxBrs (M:MATRIKS) → indeks { Mengirimkan indeks baris terbesar M } function GetLastIdxKol (M:MATRIKS) → indeks { Mengirimkan indeks kolom terbesar M } {*** Selektor Set: Operasi mengubah nilai elemen matriks ***} procedure SetBrsEff (input/output M:MATRIKS, input NB:integer) { I.S. M...
View Full Document

This document was uploaded on 03/15/2014 for the course IF 2030 at Institut Teknologi Bandung.

Ask a homework question - tutors are online