Hallo zusammen,
ich möchte einen Rechner nachbilden, der als Ergebnis immer nur eine 0 oder eine 5 als erste und einzige Nachkommastelle anzeigt.
Dies bedeutet, dass Zahlen:
1. mit einer 1 als Nachkommastelle auf 0 in der Nachkommastelle aberundet werden (Beispiel: 5,1 soll zu 5,0 oder 5 werden).
2. mit einer 2,3,4,5 und 6 auf 5 in der Nachkommastelle aufgerundet werden (Beispiel: 5,3 soll zu 5,5 werden).
3. mit einer 7,8 und 9 auf eine 0 in der Nachkommastelle abgerundet werden Beispiel: 5,8 soll zu 6,0 oder 6 werden).
Mir fällt leider keine Lösung ein, vielleicht hat ja jemand eine Idee, wie ich es in den nachstehenden Quellcode einbauen kann.
Vielen Dank vorab!!!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c, d, e : Real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
d := (a * 0.0165) + (b * 0.11) ;
e := (d / 100) * c ;
Label1.Caption := FloatToStr(round(e * 10) / 10) +' Punkte';
Label2.Visible := True
end;