tg/ctg

@Кейт1 · Регистрация: 04.06.2012

Подскажите как записать процедуру для tg, ctg, arcsin,arccos,arctg,arcctg

Процедура для sin

Delphi

1	Edit1.Text:= FloatToStr(Sin(StrToFloat(Edit1.Text)))

Процедура для cos

Delphi

1	FloatToStr(Cos(StrToFloat(Edit1.Text)))

tg = sin/cos
но

Delphi

1	Edit1.Text:= FloatToStr(Sin(StrToFloat(Edit1.Text))) / FloatToStr(Cos(StrToFloat(Edit1.Text)))

к сожалению не работает (

@volvo · 23.12.2012, 15:52

Подключить модуль Math и использовать нормально функцию Tan... И далее по списку. Все перечисленные функции там реализованы...

Delphi

1	Edit1.Text:= FloatToStr(Sin(StrToFloat(Edit1.Text)) / Cos(StrToFloat(Edit1.Text)))

кстати, работает... Только скобки надо было правильно расставить...

@Кейт1 · 23.12.2012, 15:54 **[ТС]**

То есть

Delphi

1
2
3

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;Math

и потом пишу

Delphi

1	FloatToStr(Tan(StrToFloat(Edit1.Text)))

23.12.2012, 15:57

..., Buttons;Math

Очень интересная запись.

@Кейт1 · 23.12.2012, 16:01 **[ТС]**

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

Очень интересная запись.

описалась

angstrom
	23.12.2012, 15:57	4
	..., Buttons;Math Очень интересная запись.

@Кейт1 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 27
	23.12.2012, 16:01 [ТС]	5
	Сообщение от angstrom Очень интересная запись. описалась 0