Diktat_StrukturData_01_ADT

59 integer 059 type jam hh hour hour 023 mm

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: isi TYPE type Hour : type Minute type Second JAM <HH:MM:SS> integer [0..23] : integer [0..59] : integer [0..59] } type JAM : < HH : Hour, { Hour [0..23] } MM : Minute, { Minute [0..59] } SS : Second { Second [0..59] } > {*****************************************************************} { DEFINISI PRIMITIF } {*****************************************************************} { KELOMPOK VALIDASI TERHADAP TYPE } {*****************************************************************} function IsJValid (H,M,S:integer) → boolean { Mengirim true jika H,M,S dapat membentuk J yang valid } { dipakai untuk mentest SEBELUM membentuk sebuah Jam } {*** Konstruktor: ***} {*** Membentuk sebuah JAM dari komponen-komponennya ***} function MakeJam (HH:integer, MM:integer, SS:integer) → JAM { Membentuk sebuah JAM dari komponen-komponennya yang valid } { Prekondisi : HH,MM,SS valid untuk membentuk JAM } (*** Operasi terhadap komponen : selektor Get dan Set ***} {*** Selektor ***} function GetHour(J:JAM) → integer { Mengirimkan bagian HH (Hour) dari JAM } function GetMinute(J:JAM) → integer { Mengirimkan bagian Menit (MM) dari JAM } function GetSecond (J:JAM) → integer { Mengirimkan bagian Second(SS) dari JAM } {*** Pengubah nilai komponen ***} procedure SetHOur(input/output J:JAM, input newHH:integer) { Mengubah nilai komponen HH dari J } procedure SetMinute(input/output J:JAM, input newMM:integer) { Mengubah nilai komponen MM dari J } procedure SetSecond(inp...
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