Grad <-> Fahrenheit (Formel)

[Tommy1988]

Hallo, mit folgendem Code, wandle ich
einen "Grad-wert" aus einem Edit in einen Fahrenheitswert um,
und lasse ihn in einem 2. Edit ausgeben.

Delphi-Quellcode:

// oben
Grad, Fahrenheit : Real;

const
KommaAcht : Double = 1.8;
{...}
procedure TForm1.Button14Click(Sender: TObject);
begin
Grad := StrToFloat(EdGr.Text);

Fahrenheit := Grad * KommaAcht + 32;
// Wenn Eingabe gleich 1 (Grad) : Fahrenheit ist gleich: 33,8.
// Anders ist es mir nicht möglich auf den FahrenheitsWert zu kommen.

EdFa.Text := FloatToStr(Fahrenheit);

Anders rum Fahrenheit <-> Grad bekomme ich es leider nicht hin.

Weis wer eine mathematishe Lösung?

Wenn ich 33,9 eingebe, müsste ich irgentwie auf 1 (Grad) kommen.

[Matze]

Also das mathematisch umzuformen ist Unterstufenniveau. :?

Delphi-Quellcode:

Fahrenheit := Grad * KommaAcht + 32;

Delphi-Quellcode:

Grad := (1/32) * Fahrenheit - KommaAcht;

Oder so ähnlich.

[Tommy1988]

Wenn das doch tatsächlich "Unterstufenniveau" ist, wieso bekommst
du dann die Formel nicht hin ;)

[Matze]

Äh ups. :mrgreen:

Ich meine

Delphi-Quellcode:

Grad := (Fahrenheit - 32) / KommaAcht;

PS: Ich hatte irgendwie "(Grad + KommaAcht) * 32" interpretiert. Und nach 3h Mathe lernen kann man sich auch mal verrechnen, das hättest du dennoch hinbekommen müssen. ;)

[Tommy1988]

Eine zweite Möglichkeit wäre:

Delphi-Quellcode:

Grad1 := Fahrenheit - 32;
Grad := Grad1 * NullKommaFuenf; 
{ Grad1: 212 Fahrehneit - 32 
Grad: 180 x 0,555 = 100 C }

Ergebnis: 99,9.

Nachteil: (Dumm)...

[Matze]

Aber mein 2. "Vorschlag" sollte gehen.

[mkinzler]

http://de.wikipedia.org/wiki/Grad_Fahrenheit

[Tommy1988]

(TF − 32) ÷ 1,8

Das sagt Wiki.. hätte ich auch finden können. :wall:

Sehr gute Tabelle :thumb: mus ich mi :thumb: mal näher ansehen. Danke

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Sonstige Fragen zu Delphi" nach "Object-Pascal / Delphi-Language" verschoben.

[Matze]

Zitat:

Zitat von Tommy1988

Das sagt Wiki.

Das habe ich doch auch geschrieben. :wall:

[mkinzler]

Zitat:

Das habe ich doch auch geschrieben. ouch!

@Matze:Ich wollte eigentlich deine Aussage nur untermauern, da er so ungläubig geklungen hat.

[Matze]

Ich weiß, die Aussage war auch nicht an dich gerichtet. :)

Aber das Thema ist nun ja erledigt.

[hathor]

StdConvs unit

CelsiusToFahrenheit
FahrenheitToCelsius


http://www.delphibasics.co.uk/RTL.as...usToFahrenheit
http://www.delphibasics.co.uk/RTL.as...nheitToCelsius

function FahrenheitToCelsius(const AValue: Double): Double;
begin
Result := ((AValue - 32) * 5) / 9;
end;

function CelsiusToFahrenheit(const AValue: Double): Double;
begin
Result := ((AValue * 9) / 5) + 32;
end;