Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Grad <-> Fahrenheit (Formel) (https://www.delphipraxis.net/95075-grad-fahrenheit-formel.html)

Tommy1988 30. Jun 2007 11:21


Grad <-> Fahrenheit (Formel)
 
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 30. Jun 2007 11:26

Re: Grad <-> Fahrenheit (Formel)
 
Also das mathematisch umzuformen ist Unterstufenniveau. :?

Delphi-Quellcode:
Fahrenheit := Grad * KommaAcht + 32;
Delphi-Quellcode:
Grad := (1/32) * Fahrenheit - KommaAcht;
Oder so ähnlich.

Tommy1988 30. Jun 2007 11:29

Re: Grad <-> Fahrenheit (Formel)
 
Wenn das doch tatsächlich "Unterstufenniveau" ist, wieso bekommst
du dann die Formel nicht hin ;)

Matze 30. Jun 2007 11:30

Re: Grad <-> Fahrenheit (Formel)
 
Ä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 30. Jun 2007 11:37

Re: Grad <-> Fahrenheit (Formel)
 
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 30. Jun 2007 11:38

Re: Grad <-> Fahrenheit (Formel)
 
Aber mein 2. "Vorschlag" sollte gehen.

mkinzler 30. Jun 2007 11:39

Re: Grad <-> Fahrenheit (Formel)
 
http://de.wikipedia.org/wiki/Grad_Fahrenheit

Tommy1988 30. Jun 2007 11:50

Re: Grad <-> Fahrenheit (Formel)
 
(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 30. Jun 2007 11:51

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

Matze 30. Jun 2007 11:56

Re: Grad <-> Fahrenheit (Formel)
 
Zitat:

Zitat von Tommy1988
Das sagt Wiki.

Das habe ich doch auch geschrieben. :wall:

mkinzler 30. Jun 2007 13:29

Re: Grad <-> Fahrenheit (Formel)
 
Zitat:

Das habe ich doch auch geschrieben. ouch!
@Matze:Ich wollte eigentlich deine Aussage nur untermauern, da er so ungläubig geklungen hat.

Matze 30. Jun 2007 14:00

Re: Grad <-> Fahrenheit (Formel)
 
Ich weiß, die Aussage war auch nicht an dich gerichtet. :)

Aber das Thema ist nun ja erledigt.

hathor 30. Jun 2007 19:56

Re: Grad <-> Fahrenheit (Formel)
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:27 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz