Diktat_Prosedural_13_StudiKasus

S p terdefinisi dan mungkin kosong fs menulis 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: -999 { Definisi polinom kosong } else { Deg ≠ -999 } MaxDegree ← -999 repeat P.TabSukuDeg ← Coef if Deg > MaxDegree then MaxDegree ← Deg input (Deg,Coef) until (Deg = -999) P.Degree ← MaxDegree Oleh: Inggriani Liem/Revisi bab oleh: Tim IF2030 sem. 1 2011-2012/Tgl. Revisi: 21 Nov 2011 7 Draft Diktat Struktur Data Hanya untuk digunakan di lingkungan Sekolah Teknik Elektro dan Informatika ITB procedure TulisPol (input P : polinom) { I.S. : P terdefinisi dan mungkin kosong } { F.S. : Menulis polinom P } KAMUS LOKAL i : integer { indeks traversal } ALGORITMA if P.Degree ≠ -999 then output ('I','P(I)') i traversal [P.Degree..0] if (P.TabSukui ≠ 0 ) then output (i,P.TabSukui) else output ("Polinom kosong") procedure AddPol (input P1, P2 : polinom, output P3 : Polinom) { I.S. : P1, P2 terdefinisi dan mungkin kosong } { F.S. : P3 = P1+P2, P3 adalah polinom baru } { Menjumlahkan P1 + P2 dan menyimpan hasilnya di P3, P3 ≠ P1 and P3 ≠P2 } KAMUS LOKAL i : integer MaxDegree : integer { indeks traversal } { derajat masukan yang maksimum antara P1 dan P2 } ALGORITMA InitPol (P3) if P1.Degree > P2.Degree then MaxDegree ← P1.Degree else MaxDegree ← P2.Degree if MaxDegree ≠ -999 then i traversal [MaxDegree..0] P3.TabSukui ← P1.TabSukui + P2.TabSukui P3.Degree ← MaxDegree { derajat P3 mungkin "turun" } AdjustDegree(P3) Oleh: Inggriani Liem/Revisi bab oleh: Tim IF2030 sem. 1 2011-2012/Tgl. Revisi: 21 Nov 2011 8 Draft Diktat Struktur Data Hanya untuk digunakan di lingkungan Sekolah Teknik Elektro dan Informatika ITB procedure SubPol (input P1, P2 : polinom, output P3 : polinom) { I.S. : P1, P2 terdefinisi dan mungkin kosong } { F.S. : P3 = P1-P2, P3 adalah polinom baru } { Mengurangkan P1 - P2 dan menyimpan hasilnya di P3, P3 ≠ P1 and P3 ≠ P2 } KAMUS LOKAL i : integer MaxDegree : integer { indeks traversal } { derajat masukan yang maksimum antara P1 dan P2 } ALGORITMA InitPol (P3) if P1.Degree > P2.Degree then MaxDegree ← P1.Degree else MaxDegree ← P2.Degree if MaxDegree ≠ -999 then i traversal [MaxDegree..0] P3.TabSukui ← P1.TabSukui - P2.TabSukui { derajat polinom hasil mungkin "turun" !!!! } AdjustDegree(P3) procedure DerivPol (input P : polinom, output P1 : polinom) { I.S. : P terdefinisi, mungkin kosong } { F.S. : P1 adalah turunan P } { Membuat turunan P dan menyimpan hasilnya di P1, P1 ≠ P } KAMUS LOKAL i : integer { indeks traversal } ALGORITMA InitPol (P1) if P.Degree ≠ -999 then i traversal [P.Degree-1..1] P1.TabSukui ← (i+1) * P.TabSukui+1 P.TabSuku0 ← P.TabSuku1 AdjustDegree(P1) { mungkin jadi kosong !!! } Oleh: Inggriani Liem/Revisi bab oleh: Tim IF2030 sem. 1 2011-2012/Tgl. Revisi: 21 Nov 2011 9 Draft Diktat Struktur Data Hanya untuk digunakan di lingkungan Sekolah Teknik Elektro dan Informatika ITB procedure AdjustDegree (input/output P : polinom) { I.S. : P terdefinisi, mungkin kosong. P.Degree belum tentu merupakan derajat polinom } { F.S. : P terdefinisi, P.Degree berisi derajat polinom ber...
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