Programmierung einer Kaskoversicherung

[Hüseyin123]

Es ist zwar eine perfekte Idee aber es heilt leider nicht meine Wunden :cry: Wenn ich 66,68 € eingebe kommt wieder 0,001000..... raus.

[Luckie]

Das ist ja nicht mehr mit Anzusehen. 71 Beiträge für die drei Fragen: Wie wandele ich einen Text in eine Fließkommazahl um? Wie rechne ich 75% von einem Betrag minus 50? Und wie gebe ich eine Fließkommazahl auf zwei Nachkommastellen gerundet aus? Und das auch noch wo es der Lehrer im Unterricht sehr wahrscheinlich erklärt hat, es die Delphi Hilfe gibt, man mit Google bestimmt auch fündig geworden wäre, man alle drei Fragen mit Hilfe der Forensuche beantwortet bekommt. :roll:

Und dann wird einem noch genau die Frage per PN gestellt, die hier bereits im Forum diskutiert wird.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
  BetragSchaden: double;
  BetragErstattung: double;
begin
  BetragSchaden := StrToFloatDef(Edit1.Text, 0);
  BetragErstattung := BetragSchaden * 0.75 - 50;
  if BetragErstattung <= 0 then
  begin
    Label1.Caption := 'Keine Erstattung möglich';
  end
  else
  begin
    Label1.Caption := Format('%.2n Euro', [BetragErstattung]);
  end;
end;

[Wolfgang Mix]

@Hüseyin123

Den letzten Schritt hättest Du nun wirklich allein schaffen müssen.
Entweder Du setzt 68.67 ein oder nimmst das "=" weg oder
Du nimmst Luckies Variante.
Das sollte es jetzt aber gewesen sein. Ein bißchen mehr Eigeninitiative
ist schon nötig, sonst kommst Du nicht weiter.

[/Edit] Eigentlich lösen wir Hausaufgaben hier nicht vollständig [IEdit]
Gruß

Wolfgang

[Delphi-Laie]

Luckie, ohne hier Honig verschmieren zu möchten, gebe ich Dir recht!

Mir geht diese Diskussion auch langsam, aber sicher gehörig auf die Nerven. Allmählich kommt in mir sogar der Trollverdacht hoch.

Man möge sich vorstellen, jeder (!) würde für sich beanspruchen, seine Fragen, die man über Suchseiten und Forumssuche in aller Regel eigeninitiativ und oft auch schneller beantwortet bekommt (die in dieser Diskussion gehören mit Sicherheit dazu), hier erneut zu stellen, so daß bei jedem (!) eine solche Datenflut, die fast ausschließlich aus Redundanz besteht, entsteht.

Sicher ist ein Forum auch für Gespräch und ein wenig „small talk“ da, es (zwischen-)menschelt schließlich überall, und auch ich schließe mich davon nicht aus, aber hier wird m.E. das gesunde Maß bei weitem überschritten.

Da Du Deine Ungeduld signalisiert hattest, war ich andererseits sogar erstaunt, daß Du die Diskussion nicht geschlossen hattest.

[Hüseyin123]

Hallo,
ich weiss ich hab den Maß deutlich überschritten bei diesem Problem..Jedoch gucke ich mir meinen Algorithmus seit 2-3 Tagen an,finde aber den Fehler in meinem Algorithmus nicht.

Delphi-Quellcode:

 
unit UKaskoversicherung;
//----------------------------------------
//Projektname: Ein Kaskoversicherungsfall
//Version: V1.0
//Autor: Hüseyin Yilmaz
//Compiler: Delphi 4
//Letze Änderung: 25.12.09
//----------------------------------------

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Math ;


type
  TKaskoversicherung = class(TForm)
    NeuwertEdt: TEdit;
    BerechneBtn: TButton;
    SchliessenBtn: TButton;
    ErstattungsbetragLbl: TLabel;
    Label1: TLabel;

    procedure SchliessenBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BerechneBtnClick(Sender: TObject);

  private

  public
    { Public-Deklarationen}
  end;

var
  Kaskoversicherung: TKaskoversicherung;
  Zahl1: double ;
  Ergebnis : double ;
  s: string    ;



implementation

{$R *.DFM}




procedure TKaskoversicherung.SchliessenBtnClick(Sender: TObject);
begin
close
end;

procedure TKaskoversicherung.FormCreate(Sender: TObject);
begin
NeuwertEdt.text := '' ;
ErstattungsbetragLbl.caption := '' ;

end;

procedure TKaskoversicherung.BerechneBtnClick(Sender: TObject);
begin
Zahl1 := strtofloat(NeuwertEdt.text) ;
ErstattungsbetragLbl.caption := floattostr (Zahl1*0.75-50) ;


IF Zahl1  <= 66.67 then begin
str(Ergebnis:8:2,s);
ErstattungsbetragLbl.caption := s
end;
begin
IF Zahl1 < 0 THEN BEGIN ErstattungsbetragLbl.caption := ' Der Schaden kann nicht im "-" bereich stehen !'
end
  else
  begin
    ErstattungsbetragLbl.Caption := Format('%.2n Euro', [Ergebnis]);
  end;





end;
end;
end.

Es kommt als Ergebnis immer 0,00 Euro raus..Ich verspreche euch, dass es bei meine letzte Frage ist :)

[Wolfgang Mix]

Bei welchen Eingabewerten kommt Null heraus?

[Hüseyin123]

Zitat:

Zitat von Wolfgang Mix

Bei welchen Eingabewerten kommt Null heraus?

Erstattungsbetrag (Ergebnis)

[Wolfgang Mix]

Bei welchen Eingabewerten kommt Null heraus?

> 68,67
= 68,67
< 68,67

[Hüseyin123]

Zitat:

Zitat von Wolfgang Mix

Bei welchen Eingabewerten kommt Null heraus?

> 68,67
= 68,67
< 68,67

Es kommt immer 0,00 Euro raus(außer wenn der Neuwert < 0 ist..Da kommt ya die If-Abfrage

[Der.Kaktus]

Zitat:

Zitat von Hüseyin123

Es kommt immer 0,00 Euro raus(außer wenn der Neuwert < 0 ist..Da kommt ya die If-Abfrage

Bescheidene Frage...hast Du schonmal den internen Debugger bemüht um den Fehler evtl. "selbst" zu finden? :gruebel: