Die Berechnung ist falsch
Ausgabe := ( L * T ) + D;
Hier wird stumpf die Länge mit den Tagen multipliziert und dann die Anzahl der Duschmarken addiert?
Und dabei soll was vernünftiges rauskommen?
Wenn wir uns mal nur die Einheiten ansehen dann stellt man schnell fest, dass da was nicht stimmen kann:
Code:
( Meter * Tag ) + Stück = TagMeter + Stück
Also brauchen wir wohl etwas mehr
Code:
Meter * Euro/( Meter * Tag ) * Tag + Stück * Euro/Stück
Kürzt man jetzt alles weg, dann bleibt nur noch Euro über, also ein Preis.
Somit fehlt in der Berechnung der Wert für die Miete (Preis pro Meter und Tag) und die Kosten für die Duschmarken.
Ausgabe := L * T * BootPreisProMeterTag + D * DuschmarkePreisProStueck;
Und die Abfragen würde ich auch so handeln
Delphi-Quellcode:
a := 6;
if L > 7 then
a := 7;
if L > 8 then
a := 8;
if L > 9 then
a := 9;