Diktat_Prosedural_13_StudiKasus

Diaktifkan jika akibat suatu operasi derajat polinom

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: } Finish : boolean { Mengakhiri proses } Pilihan : integer [0..5] { Nomor tawaran } { Primitif operasi terhadap polinom yang dibutuhkan untuk proses } procedure InitPol (output P : polinom) { Membuat polinom P yang kosong } procedure AdjustDegree (input/output P : polinom) { Melakukan adjustment terhadap Degree. Diaktifkan jika akibat suatu operasi, derajat polinom hasil berubah. { Primitif operasi terhadap polinom yang disediakan untuk pemakai } procedure CreatePol (output P : polinom) { Mengisi polinom P } procedure TulisPol (input P : polinom) { Menulis polinom P } procedure AddPol (input P1, P2 : polinom, output P3 : polinom) { Menjumlahkan P1 + P2 dan menyimpan hasilnya di P3, P3 ≠ P1 dan P3 ≠ P2 } procedure SubPol (input P1, P2 : polinom, output P3 : polinom) { Mengurangkan P1 - P2 dan menyimpan hasilnya di P3, P3 ≠ P1 dan P3≠ P2 } procedure DerivPol (input P : polinom, output P1 : polinom) { Membuat turunan P dan menyimpan hasilnya di P1, P1 ≠ P } ALGORITMA Finish ← false repeat iterate output ("Ketik nomor di bawah [0..5] untuk memilih operasi") output ("1. Membentuk dua buah polinom P1 dan P2") output ("2. Menuliskan polinom P1,P2 dan P3") output ("3. Menjumlahkan polinom P1 dan P2 menjadi P3") output ("4. Mengurangkan P1 dan P2 menjadi P3") output ("5. Membentuk turunan polinom P1 yaitu P3") output ("0. Akhir proses") input (Pilihan) stop Pilihan ∈ [0..5] output ("Ulangi, pilihan di luar harga yang ditawarkan") { Pilihan sesuai, maka lakukan proses sesuai dengan Pilihan } depend on Pilihan Pilihan = 1 : CreatePol(P1); CreatePol(P2) Pilihan = 2 : TulisPol(P1); TulisPol(P2); TulisPol(P3) Pilihan = 3 : AddPol(P1,P2,P3) Pilihan = 4 : SubPol(P1,P2,P3) Pilihan = 5 : DerivPol(P1,P3) Pilihan = 0 : Finish ← true until Finish Oleh: Inggriani Liem/Revisi bab oleh: Tim IF2030 sem. 1 2011-2012/Tgl. Revisi: 21 Nov 2011 6 Draft Diktat Struktur Data Hanya untuk digunakan di lingkungan Sekolah Teknik Elektro dan Informatika ITB procedure InitPol (output P : polinom) { I.S. : sembarang. F.S. Polinom P yang kosong dibentuk } { Membentuk sebuah polinom kosong } KAMUS LOKAL i : integer { indeks traversal } ALGORITMA i traversal [0.. Nmax] P.TabSukui ← 0 P.Degree ← -999 procedure CreatePol (output P : polinom) { I.S. : sembarang } { F.S. : Polinom P terdefinisi derajat dan koefisien-koefisiennya jika tidak "kosong"} { Mengisi polinom P dengan membaca dari alat masukan, pemasukan harga diakhiri dengan mark } KAMUS LOKAL i : integer { indeks traversal } Deg, Coef : integer { input pasangan data derajat dan koefisien } { pemasukan data diakhiri dengan Deg=-999, mungkin terbentuk polinom kosong } MaxDegree : integer { derajat masukan yang maksimum = derajat polinom } ALGORITMA { Inisialisasi tabel penyimpan suku polinom } InitPol(P) { Input data : skema penanganan kasus kosong } input (Deg,Coef) if Deg = -999 then output ("Polinom kosong"); P.Degree ...
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