Search the works
Tip měsíce

Doporučte náš web

získejte až 300 Kč

za každou

vloženou práci!

Více informací zde

Kontakty
Emailová adresa info@diplomky.net
ICQ 566225598
My status Diplomky.net
MSN info@diplomky.net
TOP Nabídka!

Nestíháte Vaše

studium?

Nezoufejte!

Vypracujeme Vám

podklady na míru.

Pro více informací

pokračujte zde

Reklamní plocha pro Vás

Reklama pro Vás

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


 

Stažení práce

Pro jednorázové stažení prostřednictvím SMS klikněte na níže umístěné tlačítko


TOP Nabídka!

Potřebujete napsat referát, seminárku nebo třeba diplomovou práci? Žádný problém!

Zpracujeme Vám podklady na míru. Více informací zde