Wartość funkcji trygonometrycznych

napisany przeze mnie program nieprawidłowo mi zwraca wartość funkcji cos i tan dla 90 stopni, dla pozostałych działa prawidłowo. jak poradzić sobie z tym?

Edit1.Text:=FloatToStr(cos(StrToFloat(Edit1.Text)*pi/180)); 

tan

c:=cos(StrToFloat(Edit1.Text)*pi/180);
if c=0 then Edit1.Text:=Edit1.Text +'nie istnieje';
s:=sin(StrToFloat(Edit1.Text)*pi/180);

Edit1.Text:=FloatToStr(s/c);

naprawić błąd.

=cos(kat*M_PI/180);

Może wyślesz kod?

to tak mam a dla wprowadzinych 90 stopni wyświetla mi wynik -2,71050543121376E-20 i nie wiem co jest nie tak

Zainteresuj się jedną z wymienionych funkcji: Format, FormatFloat, FloatToStr, FloatToStrF.