синус

[Кристина1]

Как вычислить синус, чтобы при введении sin90 он выдавал ответ единица??? Помогите пожалуйста...

[alun]

Объясните подробнее Ваше задание...

[Arigato]

Надо перевести из градусов в радианы, т.к. встроенные функции принимают параметр, заданный в радианах.
Например:

const Rad = Pi / 180;
begin
  WriteLn (Sin (90 * Rad));
end.

[Карась]

Я надеюсь Вы знаете, что аргумент этой (и многих других, если не всех) функций указывается в радианах.

Или указывайте угол в радианах, либо переводите в градусы.

адд: Гы )

[alun]

А я ступил

[Кристина1]

неа....не работает как надо....

примерно хоть так???

procedure TForm1.Button6Click(Sender: TObject);
const Rad = Pi / 180;
begin//(Sin (90 * Rad));
if ((x2.text='')and(x1.text<>'')) then
begin
x1.text:=FloatToStr(sin(StrToFloat( x1.text))*Rad);
st1.caption:=x1.text;
end;
if (x2.text<>'')and(x1.text<>'') then
begin
x2.text:=FloatToStr(sin(StrToFloat( x2.text))*Rad);
st1.caption:=x2.text;
end;
end;

[werser]

procedure TForm1.Button6Click(Sender: TObject);
begin//(Sin (90 * (Pi / 180)));
if ((x2.text='')and(x1.text<>'')) then
begin
x1.text:=FloatToStr(sin(StrToFloat( x1.text))*Rad);
st1.caption:=x1.text;
end;
if (x2.text<>'')and(x1.text<>'') then
begin
x2.text:=FloatToStr(sin(StrToFloat( x2.text))*Rad);
st1.caption:=x2.text;
end;
end;


Пишите так уже. Константы смотрите в пособиях где описуют.

[Кристина1]

Всё равно не работает как надо

[werser]

var x1,x2:real;
begin
x1:=strtofloat(Edit1.Text);
x2:=Sin(x1 * (Pi / 180));
Label1.Caption:=floattostr(x2);


end;

[SNUPY]

procedure TForm1.Button6Click(Sender: TObject);
const Rad = Pi / 180;
begin//(Sin (90 * Rad));
if ((x2.text='')and(x1.text<>'')) then
begin
x1.text:=FloatToStr(sin(StrToFloat(x1.text)*Rad)); 
st1.caption:=x1.text;
end;
if (x2.text<>'')and(x1.text<>'') then
begin
x2.text:=FloatToStr(sin(StrToFloat(x2.text)*Rad)); 
st1.caption:=x2.text;
end;
end;