Rechner programmieren

[Wolfgang Mix]

Wie schon gesagt, kannst du mit trunc und frac aus Realzahlen Integerwerte herstellen.

[Tytomik]

Tut mir echt leit das verstehe ich immer noch nicht ganz könnetet ihr mr den teil nicht mal richtig schrieben:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var a,b: real;
begin
Label3.caption:= floattostr(a-b);
If Strtofloat(Label3.Caption)>500 then begin
Form1.Color:= clred;

Habe gestern angefangen.
Wäre echt nett.
Danke

[Wolfgang Mix]

Woher kommen die Werte von a und b?

[Tytomik]

ja das sind die variablen und ich habe alles jetzt in Real zahlen gemacht es geht auch alles nr ich versteh nicht ganz wie ich in dem teil das frac anwänden muss.

[himitsu]

Der Anfang hat jetzt aber grundsätzlich erstmal nix mit Programmieren zu tun, sondern mit Mathematik.

Ergebnis = Dividend / Divisor
ganze_Zahl = Teil_vor_dem_Komma_vom_Ergebnis
Rest = Teil_nach_dem_Komma_vom_Ergebnis * Divisor
oder
Rest = Dividend - ganze_Zahl

Und nun muß man das nur noch in Quellcode umwandeln.
Teil_vor_dem_Komma = Trunc
Teil_nach_dem_Komma = Frac

Deine Lösungen sind nun ganze_Zahl und Rest.

[Tytomik]

aber so wie ich es jetzt verstanden habe müsste es doch so sein :

procedure TForm1.Button6Click(Sender: TObject);
begin
Label4.caption:= floattostr(c);
c:=a/b-trunc;

end;

Aber das ist doch falsch.
Danke für die hilfe.

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