Rechner programmieren

[himitsu]

Delphi-Quellcode:

a := StrToFloat(Label1.Caption);
b := StrToFloat(Label2.Caption);

c := a / b;
d := Trunc(c);
e := Frac(c);

Label3.Caption := FloatToStr(d);
Label4.Caption := FloatToStr(e);

oder, um es mal mit nur einem Label zu machen, für's Ergebnis

Delphi-Quellcode:

...
Label3.Caption := Format('%n (Rest = %n)', [d, e]);

[Tytomik]

Vielen dank für die hilfe hat mir echt geholfen!!