Programmierung einer Kaskoversicherung

[Hüseyin123]

Hallo Leute,
seit diesem Jahr benutzen wir im Infomatikunterricht Delphi 4. 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. Prüfen Sie den Algorithmus mit geeigneten Testwerten anhand einer Wertbelegungstabelle.
ACHTUNG: Ist der Schaden kleiner als 50 Euro muss er selbst bezahlt werden.

Ich bitte um Hilfe...

Danke im Voraus!

[fkerber]

Hallo!

Herzlich willkommen in der DP.

Bitte gib deinem Beitrag einen aussagekräftigen Titel, sodass man direkt sieht, um was es geht - auch die !!! sind nicht nötig ;)


Zum Problem:
An sich ist das ja erstmal kein Delphi-Problem. Du solltest dir also erstmal mit Blatt Papier und Stift ein paar Fälle aufschreiben, damit du überhaupt weißt, was du tun sollst.


Grüße, Frederic

[Hüseyin123]

Entschuldgigung, ich habe einen Tippfehler gemacht. Ich meinte natürlich ist der Schaden "kleiner" als 50 Euro.
Wie gesagt,ich hab dieses Programm erst vor 2 Monaten kennengelernt und bin noch ein ziemlicher Anfänger. Ich würde mich freuen, wenn ich Hilfe bekommen würde.

[fkerber]

Hi!

Ich vermute, du hast Delphi erst vor ein paar Wochen kennen gelernt?
Wie gesagt, das Umsetzen in Delphi ist nachher recht "einfach", wenn du erstmal weißt, was du umsetzen musst.

3 Beispiele:
1) Schaden: 30 Euro
2) Schaden: 400 Euro
3) Schaden: 1237 Euro

Wenn ich jetzt zu dir sage, rechne aus, was die Versicherung zahlt bzw. was du zahlen musst - was machst du dann (von Hand)?


Grüße, Frederic

[Teekeks]

Wir helfen dir gerne, doch machen wir nicht deine Hausaufgaben...
Was hast du denn bis jetzt schon gemacht?
Wo brauchst du genau Hilfe und/oder hast du Fragen?

Gruß Teekeks

[Hüseyin123]

Also, danke für die Hilfe.
Ich will, dass ich dieses Programm beherrsche und bitte euch mir dabei zu helfen :) und bei dieser Hausarbeit ihr mir sozusagen "die ersten Schritte" der Aufgabe zeigt. Wie muss ich anfangen? etc.
Edit-Felder und Labels habe ich schon eingefügt.
1 Edit, Feld für den Wert
2 Button, einer zum Schliessen und der andere zur Berechnung
1 Label, das Ergebnisfeld

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 €

[Teekeks]

Der erste Schritt könnte sein das du dir die grundlegenden Dinge aneignest, indem du z.B. dieses Grundlagen-Tutorial durcharbeitest.

Gruß Teekeks

[fkerber]

Hi!

Ja, so kann das passen.
Dann würde ich mal mit der Implementierung von Fall 1 anfangen.
Da solltest du ein Konstrukt kennen gelernt haben, dass für solche Sachen die richtige Wahl ist.


Grüße, Frederic

[Hüseyin123]

vllt so: [delphi] if zahl 1 > 50 then .... (da weiss ich nicht weiter)

[Leanahtan]

Zitat:

Zitat von Hüseyin123

Also, danke für die Hilfe.
Ich will, dass ich dieses Programm beherrsche und bitte euch mir dabei zu helfen :) und bei dieser Hausarbeit ihr mir sozusagen "die ersten Schritte" der Aufgabe zeigt. Wie muss ich anfangen? etc.
Edit-Felder und Labels habe ich schon eingefügt.
1 Edit, Feld für den Wert
2 Button, einer zum Schliessen und der andere zur Berechnung
1 Label, das Ergebnisfeld

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 €

Ok, dann musst du dir Überlegen, wie du bei Klick auf Berechnung an den im Edit-Feld eingegebenen Wert kommst. Mit diesem berechnest du dann, was die Versicherung zahlt, und gibst diesen Wert über das Label aus. Abschließend musst du dir noch überlegen, was du machst, wenn das Ergebnis kleiner als Null ausfällt.

[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.

[Reinhardtinho]

Zitat:

Zitat von Sherlock

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

Sherlock

Dann bezahlt er ja 50 Euro plus 25% des Neuwertes, das ist doch nicht richtig?!

[Sherlock]

Hach, ist das kompliziert :D

Die Aufgabe ist doch:

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.

Anders formuliert: Die Versicherung zahlt 75% des Neuwerts abzüglich einer Selbstbeteiligung von 50€. Korrekt?

Wenn ja, dann müsste
400€ Neuwert =>
ZuZahlen := (0.75 * 400) - 50;
Macht 300€ - 50€ also 250€ Auszahlung durch die Versicherung.

Oder hab ich zusammen mit Hüseyin nen Denkehler?

Sherlock

[Hüseyin123]

Ich denke schon,dass ich und Sherlock da recht haben.
Aber würde es nicht gehen, dass ich mit einem Edit-Feld,1 Button und 1 Label diese Programmierung durchführe. Man könnte ja auch wenn es weniger als 50 Euro sind alles in einen Button reinschreiben,oder nicht? Mir muss diese Hausarbeit gelingen, da es als Klausur bewertet wird und in der ersten Klausur hatte ich leider eine 5 :?

[Reinhardtinho]

Zitat:

Zitat von Sherlock

Anders formuliert: Die Versicherung zahlt 75% des Neuwerts abzüglich einer Selbstbeteiligung von 50€. Korrekt?

Ich würde sagen nein.

Er muss mindestens 50 Euro selbst tragen. Das tritt dich nur ein, wenn die Selbstbeteiligung (25% des Neuwertes) unter diesen 50 Euro liegt.

[Hüseyin123]

Also mein Lehrer hat es gedeutet und meinte:
75% des Schadens bekommt man und die 50 Euro sind sozusagen die Selbstbeteiligung..Wenn der Schaden 50 Euro oder kleiner ist als,bekommt man gar nix zurück...Aber wie ist dass dann z.B bei 60 Euro da bezahlt man ja 50 Euro und die 10 Euro sind ja nicht 75 % :pale:

[Delphi-Laie]

Da habe ich ja vielleicht etwas angestoßen, nur, weil es nicht eindeutig formuliert war.

Klasse - das ist fast wie mit Loriot und Evelyn Hamann! :lol:

[Garfield]

Zitat:

Zitat von Sherlock

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

Nein, habe ich nicht.

Zitat:

Zitat von Reinhardtinho

Dann bezahlt er ja 50 Euro plus 25% des Neuwertes, das ist doch nicht richtig?!

Genau so ist das.

Laut obiger Aufgabenstellung zahlt die Versicherung 75%, wobei der Versicherungsnehmer mindestens 50€ zahlen muss.

Das heißt, die Versicherung zahlt 75%, der Versicherungsnehmer 25%. Sind die 25% weniger als 50€ erhöht sich der relative Anteil des Versicherungsnehmers.

Beispiel 1:

Der Neuwert beträgt 100€

Versicherungsnehmer:
Anteil: 25% -> 25€
Mind.: 50€ -> 50€
Zu zahlen: 50€

Der Versicherungsnehmer zahlt 50€ und die Versicherung den Rest, was ebenfalls 50€ sind. Damit zahlt jeder die Hälfte.

Beispiel 2:

Der Neuwert beträgt 500€

Versicherungsnehmer:
Anteil: 25% -> 125€
Mind.: 50€ -> 50€
Zu zahlen: 125€

Der Versicherungsnehmer zahlt 125€, also 25%.

Etwas anderes gibt die Aufgabenstellung nicht her.

Zitat:

Zitat von Delphi-Laie

Da habe ich ja vielleicht etwas angestoßen, nur, weil es nicht eindeutig formuliert war.

Es ist doch eindeutig. Man darf nur nichts hinein interpretieren, was nicht da steht, nur weil es vielleicht in der Praxis so gehandhabt wird.

[Delphi-Laie]

Zitat:

Zitat von Garfield

Laut obiger Aufgabenstellung zahlt die Versicherung 75%, wobei der Versicherungsnehmer mindestens 50€ zahlen muss.

Das heißt, die Versicherung zahlt 75%, der Versicherungsnehmer 25%.

Davon, daß der Versicherungsnehmer 25% (zu 100%) aufstocken muß, steht in der Aufgabenstellung aber nichts.

Wie schrieben Sie gerade so schön:

Zitat:

Zitat von Garfield

Man darf nur nichts hinein interpretieren, was nicht da steht, nur weil es vielleicht in der Praxis so gehandhabt wird.

Vielleicht werden an sich nur 75% bezahlt (Zeitwert)?! So verstehe ich den Eröffnungsbeitrag, und zwar ohne Interpretationsspielraum.

Ganz klar ist mir hingegen nicht, was im Satz "Ist der Schaden kleiner als 50 Euro muss er selbst bezahlt werden." nun konkret unter dem Schaden verstanden wird: Die Reparatur-/Wieder-/Neubeschaffungskosten, oder doch bloß die 75% davon. Mit anderen Worten: Wessen Schaden (ist gemeint) - der des Unfallopfers oder der der Versicherung bzw. des Unfallverursachers?

Ich kann noch deutlicher werden: Die Information im Satz "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." halte ich nicht für ausreichend und damit nicht eindeutig. Die korrekte Erfüllung der Aufgabenstellung wird damit m.E. zum reinen Glücksspiel. Womöglich war dem Lehrer selbst nicht klar, daß das nicht eindeutig ist. Ein ziemlich sicheres Indiz dafür ist auch das Aufflammen dieser Diskussion.

[Reinhardtinho]

Zitat:

Zitat von Delphi-Laie

Da habe ich ja vielleicht etwas angestoßen, nur, weil es nicht eindeutig formuliert war.

Klasse - das ist fast wie mit Loriot und Evelyn Hamann! :lol:

Ich schließe mal schnell so eine Versicherung ab, mal schauen was ich am Ende bezahlen muss ... :stupid:

[p80286]

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

[Balu der Bär]

Schön zu sehen das vermeintlich leichte Schulaufgaben auch den ein oder anderen Erwachsenen durcheinanderbringen. :mrgreen:

[Reinhardtinho]

Zitat:

Zitat von Balu der Bär

Schön zu sehen das vermeintlich leichte Schulaufgaben auch den ein oder anderen Erwachsenen durcheinanderbringen. :mrgreen:

So, wie ich Informatik-Lehrer kenne - hoffentlich liest das keiner - ist die Lösung eine ganz andere 8-)

[Hüseyin123]

Also mein Anfang sieht so aus:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TFensterFrm = class(TForm)
    Zahl1: TEdit;
    BerechneBtn: TButton;
    SchliessenBtn: TButton;
    ErgebnisLbl: TLabel;
    procedure SchliessenBtnClick(Sender: TObject);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  FensterFrm: TFensterFrm;
  Zahl1, Ergebnis : INTEGER ;

implementation

{$R *.DFM}

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



end.

Was kann ich jetzt bei dem BerechneBtn schreiben?
Außerdem wollte ich wissen was strtoint,inttostr und strtofloat heissen?

[Garfield]

Zitat:

Zitat von Delphi-Laie

Davon, daß der Versicherungsnehmer 25% (zu 100%) aufstocken muß, steht in der Aufgabenstellung aber nichts.

Wer soll es denn sonst tun? Es gibt doch nur die beiden Vertragspartner.

Zitat:

Zitat von Delphi-Laie

Vielleicht werden an sich nur 75% bezahlt (Zeitwert)?! So verstehe ich den Eröffnungsbeitrag, und zwar ohne Interpretationsspielraum.

Sicher 75%, zeitunabhängig.

Zitat:

Zitat von Delphi-Laie

Die Information im Satz ... halte ich nicht für ausreichend und damit nicht eindeutig. Die korrekte Erfüllung der Aufgabenstellung wird damit m.E. zum reinen Glücksspiel. Womöglich war dem Lehrer selbst nicht klar, daß das nicht eindeutig ist. Ein ziemlich sicheres Indiz dafür ist auch das Aufflammen dieser Diskussion.

Meiner Ansicht nach ist es schon eindeutig. Jedoch muss man beachten, wem man diese Aufgabe stellt. Für eine Schulaufgabe könnte man tatsächlich ein paar zusätzliche klarstellende Informationen verlangen.

[Sherlock]

Zitat:

Zitat von Garfield

Zitat:

Zitat von Delphi-Laie

Davon, daß der Versicherungsnehmer 25% (zu 100%) aufstocken muß, steht in der Aufgabenstellung aber nichts.

Wer soll es denn sonst tun? Es gibt doch nur die beiden Vertragspartner.

Niemand! Angenommen, Du lässt aus versehen die tolle (400€ teure)Vase fallen, die Deine Schwiegermutter Dir geschenkt hat. Hausratversicherung zahlt 75% des Wertes. Ich möchte gerne Mäuschen spielen, wenn der Versicherungsvertreter Dir sagt: "und jetzt noch bitte die restlichen 25%"

:mrgreen:

Sherlock

[leddl]

Zitat:

Zitat von Sherlock

Niemand! Angenommen, Du lässt aus versehen die tolle (400€ teure)Vase fallen, die Deine Schwiegermutter Dir geschenkt hat. Hausratversicherung zahlt 75% des Wertes. Ich möchte gerne Mäuschen spielen, wenn der Versicherungsvertreter Dir sagt: "und jetzt noch bitte die restlichen 25%"

:gruebel: Achso, der Händler, bei dem du dann die neue Vase für 400€ kaufst sagt dann einfach "Ach, die Versicherung hat ihnen nur 300€ gegeben? Hm okay, dann zahlen Sie eben nur soviel..." :zwinker:
Natürlich bleibt der VN dann auf den 25% sitzen - vorausgesetzt, er kauft sich mit dem Versicherungsgeld etwas gleichwertiges ;)

[Luckie]

Zitat:

Zitat von Hüseyin123

Also mein Anfang sieht so aus:

Also nach zwei Seiten Hilfe und Code Beispielen hast du so gut wie nichts? Was hast du denn zumindest probiert?

Zitat:

Außerdem wollte ich wissen was strtoint,inttostr und strtofloat heissen?

Einfach mal die Hilfe bemühen.

[Garfield]

Zitat:

Zitat von Sherlock

Niemand! Angenommen, Du lässt aus versehen die tolle (400€ teure)Vase fallen, die Deine Schwiegermutter Dir geschenkt hat. Hausratversicherung zahlt 75% des Wertes. Ich möchte gerne Mäuschen spielen, wenn der Versicherungsvertreter Dir sagt: "und jetzt noch bitte die restlichen 25%"

Ich gehe davon aus, dass die oben genannte Kaskoversicherung Deinen Hausratschaden nicht reguliert. Ob überhaupt und zu welchen Bedingungen eine Hausratversicherung besteht, ist in der Aufgabe nicht gegeben. Und ich denke, dass Du die Vase freiwillig zu 100% bezahlen würdest, nur damit der häusliche Segen wieder gerade hängt.

Ob der Versicherungsnehmer nun die 25% tatsächlich zahlt oder nicht, ist letztlich unerheblich. Wenn Du Dir zum Beispiel bei diesem Wetter Dein Auto kaputt fährst, musst Du die 25% nicht dazugeben, um ein neues Auto zu kaufen. Du kannst natürlich auch zu Fuss gehen oder mit dem Rad fahren oder die öffentlichen Verkehrsmittel benutzen.

[Luckie]

Ich glaube, wir sollten uns wieder mehr auf die fiktive Aufgabe konzentrieren, anstatt zu diskutieren, wie das eine reale Versicherung Hand haben würde.

[invalid_operation]

Der Neupreis steht in "Zahl1: TEdit;" als Text drin, den musst du in eine Zahl umwandeln, mit der du weiterrechnen kannst.

Wenn Neupreis kleinergleich fünfzig dann null ansonsten Neupreis mal nullkommafünfundsiebzig minus fünfzig.

Die Zahl, die da rauskommt, musst du in einen String umwandeln, den du in "ErgebnisLbl: TLabel;" ausgeben lässt.

Und wie Luckie schon schrub: Einfach mal die Hilfe von Delphi bemühen.