Programmierung einer Kaskoversicherung

[fkerber]

Hi!

Ja, if ist für sowas die richtig Wahl.
Aber zu allererst musst da ja mal schauen, dass du an den Wert kommst, den der User als Schadenshöhe angegeben hat.
Also lesen aus dem Edit.
Und naja, was ist, wenn der Wert kleiner als 50 Euro ist? - Dann musst du ihn wohl in dem Label ausgeben, das dafür steht, was der User zahlen muss.


Grüße, Frederic

[Hüseyin123]

Es kann ja nicht kleiner als 0 Euro sein oder ?

[DP-Maintenance]

Dieses Thema wurde von "Phoenix" von "VCL / WinForms / Controls" nach "Sonstige Fragen zu Delphi" verschoben.
Sicher kein VCl-Thema

[Garfield]

Zitat:

Zitat von Hüseyin123

1) 30 Euro= Der Schaden wird selbst bezahlt , da er kleiner ist als 50 Euro
2) 400 Euro= 400€ * 0,75 - 50€ = 250 €
3) 1237 Euro= 1237€ * 0,75 - 50€ = 877,75 €

Bevor Du mit der Programmierung beginnst, musst Du aus diesen Fällen einen allgemeingültigen Ablaufplan erstellen. Wobei Du nach meiner Ansicht bei Deinen Fällen 2 und 3 falsche Ergebnisse hast. Bei meiner Rechnung kommen 300,00 und 927,75 raus.

[Blup]

Du solltest systhematisch vorgehen, zerlege deine Aufgabe in immer kleinere Teilaufgaben, bis du diese direkt lösen kannst.

1. Du möchtest z.B. auf den ButtonClick reagieren, also wird eine Methode gebraucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

2. Was soll hier nun im groben passieren:
- Die Schadenshöhe soll eingelesen werden.
- Der Erstattungsbetrag soll daraus ermittelt werden.
- Der Erstattungsbetrag soll ausgegeben werden.

Also erst mal für jede Teilaufgabe eine Methode entwerfen, wie diese ihre jeweilige Aufgabe löst kommt später:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    {...}
    Button1Click(Sender: TObject);
  private
    function SchadenshoeheErmitteln: Double;
    function ErstattungsbetragErmitteln(Schadenshoehe: Double): Double;
    procedure ErstattungsbetragAusgeben(Erstattungsbetrag: Double);
  end;

function TForm1.SchadenshoeheErmitteln: Double;
begin

end;

function TForm1.ErstattungsbetragErmitteln(Schadenshoehe: Double): Double;
begin

end;

procedure TForm1.ErstattungsbetragAusgeben(Erstattungsbetrag: Double);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Schadenshoehe, Erstattungsbetrag: Double;
begin
  {Die Schadenshöhe soll eingelesen werden.}
  Schadenshoehe := SchadenshoeheErmitteln;
  {Der Erstattungsbetrag soll daraus ermittelt werden.}
  Erstattungsbetrag := ErstattungsbetragErmitteln(Schadenshoehe);
  {Der Erstattungsbetrag soll ausgegeben werden.}
  ErstattungsbetragAusgeben(Erstattungsbetrag);
end;

Damit bist du mit dem Hauptprogramm schon mal fertig und kannst 3 Programmierer anstellen, die sich jeweils um eine Teilaufgabe kümmern ;).

[Neutral General]

Zitat:

Zitat von Blup

Damit bist du mit dem Hauptprogramm schon mal fertig und kannst 3 Programmierer anstellen, die sich jeweils um eine Teilaufgabe kümmern .

Z.B sich selbst :stupid:

[Garfield]

Hallo Blup, Du bist schon beim zweiten Schritt.

[Delphi-Laie]

Zitat:

Zitat von Hüseyin123

Hallo Leute,
seit diesem Jahr benutzen wir im Infomatikunterricht Delphi 4.

Doppelte Gratulation: Pascal ist mit Sicherheit eine geeignete Lehr-/Lernsprache, jedoch auch für professionelle Angelegenheiten mindestens genauso geeignet. Außerdem Gratulation wegen Delph 4 - ein feiner Compiler: Noch vergleichsweise schnell, stabil und nicht, maximal kaum fehlerhaft bzw. fehlerbehaftet (die Experten entdeckten im Verlaufe der Zeit im Detail sicher einige Fehler).

Zitat:

Zitat von Hüseyin123

Ich hab 0 Ahnung über das Programm und muss zu Montag eine Hausarbeit erledigen :wall:
Die Aufgabe lautet:
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.

Aufgabe:
Entwickeln sie einen Algorithmus, der nach Eingabe des Neuwertes des versicherten Gegenstandes den Erstatungsbertrag berechnet und ausgibt.

Die Bezeichnung „Algorithmus“ ist für eine Wertezuweisung (mathematisch eigentlich Formel bzw. Gleichung, nicht jedoch in Delphi) ein wenig zu hoch gegriffen:

Delphi-Quellcode:

Auszahlsumme:=0.75*Neuwert-50;
oder: Auszahlsumme:=0.75*(Neuwert-50) ?!
if Auszahlsumme<0 then Auszahlsumme:=0

Zitat:

Zitat von Hüseyin123

Prüfen Sie den Algorithmus mit geeigneten Testwerten anhand einer Wertbelegungstabelle.

Externe Wertetabelle?

Nehmen Sie einfach drei Werte: Einen unter, einen genau und einen über 50 €, letzter am besten einen leicht nachvollziehbaren, z.B. 100 €.

Zitat:

Zitat von Hüseyin123

ACHTUNG: Ist der Schaden kleiner als 50 Euro muss er selbst bezahlt werden.

Wie sieht es z.B. bei 60 € aus? 50 € bezahlt der Versicherungsnehmer, 7,50 € die Versicherung? Oder es werden 45 € als Auszahlbetrag berechnet, die der Versicherungsnehmer dann logischerweise selbst/allein vollständig zu berappen hätte?

[Sherlock]

Garfield, Du hast bei Deinen Rechnungen vergessen die 50 Euronen am Ende abzuziehen ;)

Sherlock

[Hüseyin123]

Also, wenn der Betrag weniger als 50 Euro ist dann muss man alles selber zahlen.
Danke, dass sich bereits soviele für eine Hilfe angeboten haben.