Chcę obliczyć: cos(6). Wynik dostaję poprawny ale w RAD. W Delphi jest procedura zamiany z RAD na DEG ale to mi nie chce działać. Pokazują mi się jakieś bzdury. Może coś źle robię. Poniżej procedura:
procedure TFORM1.......
begin
kosinus:=StrToFloat(Panel1.Caption);
Panel1.Caption:=FloatToStr(cos(kosinus));
end;
Program odczytuje to co jest w danej chwili wyświetlone w panelu, konwertuje na liczbę i przypisuje do zmiennej kosinus. W następnej linii oblicza cosinus zamienia go na string i wyświetla w panelu. Niby proste ale nie działa mi to.
z góry dzięki za pomoc. Pozdrawiam.
procedure TFORM1.......
begin
kosinus:=StrToFloat(Panel1.Caption);
Panel1.Caption:=FloatToStr(cos(kosinus));
end;
Program odczytuje to co jest w danej chwili wyświetlone w panelu, konwertuje na liczbę i przypisuje do zmiennej kosinus. W następnej linii oblicza cosinus zamienia go na string i wyświetla w panelu. Niby proste ale nie działa mi to.
z góry dzięki za pomoc. Pozdrawiam.