оформить простенькую процедуру

[-=Andriushka=-]

пишу калькулятор и что то не могу сделать чтобы калькулятор считал в радианах!вот процедура:

procedure TForm1.Button10Click(Sender: TObject);
begin
Edit2.Text := FloatToStr(Sin(StrToFloat(Edit2.Text)))
end;

помогите исправить ее




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Mad_Cat]

delphi по умолчанию считает в радианах)))
а перевод радиан в градусы

1 рад=pi/180 град

а градусов в радианы

1 град=180/pi рад

[-=Andriushka=-]

Сообщение от Mad_Cat

delphi по умолчанию считает в радианах)))
а перевод радиан в градусы

1 рад=pi/180 град

а градусов в радианы

1 град=180/pi рад

ну в математике я силен и в курсе как и че...а вот как это оформить в проге что то не могу понять

[Mad_Cat]

подключи Math в uses
и используй функи DegToRad и RadToDeg
или http://programmersforum.ru/showpost....20&postcount=3

[-=Andriushka=-]

Сообщение от Mad_Cat

подключи Math в uses
и используй функи DegToRad и RadToDeg
или http://programmersforum.ru/showpost....20&postcount=3

можно по побдробнее обьяснить как эти функции обьявить?

[Mad_Cat]

я с тебя ох.....
http://delphibasics.ru/RadToDeg.php
http://delphibasics.ru/DegToRad.php
тебе google c яндексом за неуплату отключили7

[Serge_Bliznykov]

пишу калькулятор и что то не могу сделать чтобы калькулятор считал в радианах!

начнём с начала.
если Вы в Edit2.Text написали угол В РАДИАНАХ
то ничего уже делать не надо. Ваш код так и считает. Синус угла, заданного в радианах.
если же Вы в Edit2 задаёте угол В ГРАДУСАХ - тогда угол нужно перевести в радианы:

Edit2.Text := FloatToStr(Sin(StrToFloat(Edit2.Text)*pi/180))

и всё!

[-=Andriushka=-]

Сообщение от Serge_Bliznykov

начнём с начала.
если Вы в Edit2.Text написали угол В РАДИАНАХ
то ничего уже делать не надо. Ваш код так и считает. Синус угла, заданного в радианах.
если же Вы в Edit2 задаёте угол В ГРАДУСАХ - тогда угол нужно перевести в радианы:

Edit2.Text := FloatToStr(Sin(StrToFloat(Edit2.Text)*pi/180))

и всё!

а разве правильно что текстовая строка умножается на число?

[Serge_Bliznykov]

а разве правильно что текстовая строка умножается на число?

мда..
либо Вы не понимаете, что у Вас написано, либо просто не заметили...
Умножается НЕ СТРОКА, умножается результат выполнения функции StrToFloat:

Edit2.Text := FloatToStr(Sin(StrToFloat(Edit2.Text)*pi/180))

- а эта функция на вход принимает параметер в виде строки, а возвращает значение в формате вещественного числа.
А вещественное число вполне уже можно и умножать, и делить..