Тригонометрия

[Teleport]

Здравствуйте!
пишу программку, которая должна вычислить sin, cos и tg.

Пользователь вводит значения в градусах в Edit1, и нажимает кнопку.
label1 выводит результат.

procedure TForm1.Button1Click(Sender: TObject);
var
a, itog: real;
begin
a:= StrToFloat(Edit1.Text);
a:= (a*pi)/180;
itog:=  sin(a);
Label1.Caption:= FloatToStr(itog);
end;

ввожу 90 - результат 1. Ввожу 0 - результат0
но вот никак не пойму - когда я ввожу 180 или 360
Программка выдает мне всякую ерунду
типа: 1,22460635382238E-16 или -2,44921270764475E-16

[igroman]

Ну правильно, так и должно быть. Если вам нужно откинуть дробную часть используйте div, тогда программа будет выдавать целое число.

[Карась]

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

Ну правильно, так и должно быть. Если вам нужно откинуть дробную часть используйте div, тогда программа будет выдавать целое число.

Просто синус 180 равен нулю..... Чтото тут не так....

[B_N]

Сообщение от Карась

Просто синус 180 равен нулю..... Чтото тут не так....

Видимо просто pi не очень равно числу пи. Наверное стоит задать его поточнее и лучше вообще забыть о существовании типа real, всё делать через extended.

[Stilet]

Чтото тут не так

ибо Sin - Returns the sine of the angle in radians.

[Карась]

Ага.. понятно с чем связанно...

procedure TForm1.Button1Click(Sender: TObject);
Var Float : Extended;
begin
Float := Sin(StrToInt(Edit1.Text) * pi/180);
Label1.Caption := FloatToStrF(Float, ffFixed, 4, 6);
end;

Теперь результат выполнения совпадает с фундаментальными знаниями получеными в школе

[B_N]

Карась, ну это ведь уже "бородатый анекдот" Обычное "нестрогое" равенство при использовании плавающей точки. Достаточно посмотреть, что вернёт просто sin(PI). Кстати, единственный способ получить так строго 0, которого удалось добиться - это интеловский фортран и шикарный тип REAL(16), он же quadruple precision. Всё остальное - округлять.

[Teleport]

ясненько, спасиб)))

FloatToStrF(Float, ffFixed, 4, 6);

это помогло))

[_Dmitry]

В модуле Math есть функция проверки на равенство нулю. Величина погрешности зависит от количества значащих цифр для каждого типа переменной. Перед выводом результата можно добавить следующее:

 if IsZero(itog) then itog:=0;