Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#30

Re: Programmierung einer Kaskoversicherung

  Alt 18. Dez 2009, 16:40
Zitat:
Eine Versicherung regelt Schäden wie folgt: Tritt ein Versicherungsschaden ein, so werden 75% des Neuwertes ersetzt, der Versicherte muss jedoch mindestens 50 Euro selbst tragen.
"..mindestens 50 Euro" ist ja wohl reichlich daneben, d.h. der Versicherungsnehmer könnte gleich alles zahlen!
Da sollte wohl stehen "..bis maximal 50 Euro ist der der Schaden vom Versicherungsnehmer zu zahlen"

Dann sieht das so aus
Code:
Schadenssumme:=Neuwert/100*75
if Schadenssumme<=50 then Versicherungszahlung:=0
else Versicheringszahlung:=Schadenssumme-50;
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat