This preview has intentionally blurred sections. Sign up to view the full version.View Full Document
Unformatted text preview: End Set artist = artist End Set album (album) End Set type (type) End class Class DVD Title as real Type as string Subprogram new dvd ( title, type) Set title as (title) Set type as (type) End Get title a () as real End get type () as string End Subprogram set title (title) Set title = title End Set type (type) Set type = type end type in this program refers to for cds like rock, rap, pop and so on and for DVD’S refers to horror, drama, sci-fi and so on for your referance to what it refers to....
View Full Document
- Spring '10