Глупый вопрос про Sin(x) - помогите разобраться

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Глупый вопрос про Sin(x) - помогите разобраться

Сообщение Kelmair » 01.11.2017 13:40:07

Похоже, что я что-то не правильно делаю. Вопрос дурацкий

Калькулятор выдаёт sin(2874,19863) = −0,10108008575
Моя программа считает sin(2874.19863) = 0,351008611648819

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:double;
begin
a:=StrToFloat(Edit1.Text);
b:=sin(a);
Edit2.Text:=FloatToStr(b)
end;

Вот почему так и как правильно?
Kelmair
незнакомец
 
Сообщения: 1
Зарегистрирован: 01.11.2017 13:34:45

Re: Глупый вопрос про Sin(x) - помогите разобраться

Сообщение Sergei I. Gorelkin » 02.11.2017 09:18:16

Аргумент sin(x) задается в радианах. Калькулятор же в данном случае считает в градусах.
Аватара пользователя
Sergei I. Gorelkin
энтузиаст
 
Сообщения: 1368
Зарегистрирован: 24.07.2005 14:40:41
Откуда: Зеленоград

Re: Глупый вопрос про Sin(x) - помогите разобраться

Сообщение tema » 04.11.2017 12:18:30

Kelmair писал(а):
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:double;
begin
a:=StrToFloat(Edit1.Text);
b:=sin(a*pi/180);
Edit2.Text:=FloatToStr(b)
end;

tema
постоялец
 
Сообщения: 349
Зарегистрирован: 24.03.2011 20:19:27


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Rambler [Bot] и гости: 5

Рейтинг@Mail.ru