Program auto-půjčovna

Základní informace

Název práce: Program auto-půjčovna

Typ práce: Semestrální program

Programovací jazyk: Smalltalk

Autor práce: Bc. Alexander Kafka

Datum obhajoby: 2008

Souhrn

Tento program by měl sloužit k usnadnění práce (dokumentace) auto-půjčovny. Obsahuje objekt zapůjčení, který obsahuje datum zapůjčení a smluvenou dobu zapůjčení a metody cena za zapůjčení, momentální stav auta, penále za zpožděné vrácení a dobu kdy je auto zapůjčeno. Dále, jako objekt je auto, který obsahuje složky rok výroby, maximální rychlost a státní poznávací značku. Dalšími objekty jsou značky aut, které má firma k dispozici. Každý tento objekt má v sobě uloženou metodu cenu na den. Dále je objekt člověk, který obsahuje jméno a příjmení, datum narození, pohlaví a adresu zákazníka. V tomto objektu vypočítáme věk zákazníka. Posledními objekty jsou členové klubu a standardní zákazníci, podle toho, do kterého z těchto dvou objektů je zákazník přidělen se mu vypočítává sleva za zapůjčené auto.

Náhled programu

cena
^self smluvenaDelkaZapujceni * auto cenaNaDen * zapujcitel sleva
initialize
"generated by Daskalos"

super initialize.
zapujcitel := nil.
auto := nil.
datumZapujceni := nil.
smluvenaDelkaZapujceni := nil.
momentalniStavZapujceni
| d1 d2 |
d1 := self datumZapujceni addDays: self smluvenaDelkaZapujceni.
d2 := Date today.
^d1 subtractDate: d2
penale
self momentalniStavZapujceni < 0
ifTrue: [^-1 * self momentalniStavZapujceni * 0.85 * auto cenaNaDen].
^0
trvaniZapujceni
| d1 d2 |
d1 := Date today.
d2 := self datumZapujceni.
^d1 subtractDate: d2