![]() |
Re: Programmierung einer Kaskoversicherung
Es ist zwar eine perfekte Idee aber es heilt leider nicht meine Wunden :cry: Wenn ich 66,68 € eingebe kommt wieder 0,001000..... raus.
|
Re: Programmierung einer Kaskoversicherung
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; |
Re: Programmierung einer Kaskoversicherung
@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 |
Re: Programmierung einer Kaskoversicherung
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. |
Re: Programmierung einer Kaskoversicherung
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:
Es kommt als Ergebnis immer 0,00 Euro raus..Ich verspreche euch, dass es bei meine letzte Frage ist :)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. |
Re: Programmierung einer Kaskoversicherung
Bei welchen Eingabewerten kommt Null heraus?
|
Re: Programmierung einer Kaskoversicherung
Zitat:
|
Re: Programmierung einer Kaskoversicherung
Bei welchen Eingabewerten kommt Null heraus?
> 68,67 = 68,67 < 68,67 |
Re: Programmierung einer Kaskoversicherung
Zitat:
|
Re: Programmierung einer Kaskoversicherung
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:11 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz