Programmierung einer Kaskoversicherung

[Balu der Bär]

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

[Reinhardtinho]

Zitat von Balu der Bär:

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

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

[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 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 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 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 von Garfield:

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%"



Sherlock

[leddl]

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%"

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..."
Natürlich bleibt der VN dann auf den 25% sitzen - vorausgesetzt, er kauft sich mit dem Versicherungsgeld etwas gleichwertiges

[Luckie]

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