--> Archiwum Forum
WiseGuy [ Chor��y ]
Mam pytanie w sprawie Delphi
Chodzi mi o to , że nie wiem jakiej funkcji użyć żeby w labelu wyświetliło mi wynik w stopniach cosinusa pewnej liczby od -1 do 1.
kastore [ Troll Slayer ]
Label1.Caption:=FloatToStr(Cos(liczba))
kastore [ Troll Slayer ]
Ale faktycznie to daje wynik w radianach ,
musisz poszukać wzoru na przeliczanie radianów na stopnie , nie pamiętam go dokładnie
kastore [ Troll Slayer ]
Czyli będziesz musiał
zrobić coś takiego
Label1.Caption:=FloatToStr(RadToDeg(Cos(liczba)))
function RadToDeg(In : Extended) : Extended;
kastore [ Troll Slayer ]
O nawet jest taka funkcja
Czyli powinieneś zrobić
Label1.Caption:=FloatToStr(RadToDeg(Cos(liczba)));
kastore [ Troll Slayer ]
nie zapomniej wpisać tylko Math do Uses bo on sie nie dopisuje automatycznie
WiseGuy [ Chor��y ]
Dzieki stary uratowales mi zycie (serio). jak bede w domu to sprawdze czy dziala a w razie jakis problemow bede pisal. jeszcze raz big thx :)
kastore [ Troll Slayer ]
NO Problemo
Sprawdzilem ze dziala
w pracy siedzie na Delfnie