Модуль Match

[Garilla]

Разработка программы «Модуль Match», вычисляющий значение функций tg(x), Arccos(x), ArcSin(x), Sh(x), Ch(x), Xy с использованием модуля, процедур и функций.


Ребят помогите пожалуйста создать эту программу

[Serge_Bliznykov]

во-первых, модуль явно Math (математика по англицки).

во-вторых, язык программирования Вы забыли указать.

в-третьих, "помочь" это не означает "всё сделать вместо Вас". Если Вы заказать работу хотите - то это Вам в другой раздел.
Если же собираетесь делать сами и ожидаете помощь, то давайте свой код, что пытались написать, что не получается и т.д.

[Garilla]

Исходника нету это В Delphi

[Poma][a]

тыц
тыц

[Garilla]

Если я бы знал как все это сделать без встроенных функций я не просил бы помощи.. это нужно делать через процедуры и тд..

[Stilet]

как все это сделать без встроенных функций

Тоесть? Тебе дали задание написать тригонометрические функции с нуля? Т.е. разложениями в ряды, ассемблерными командами и т.д.?

[Garilla]

Всем спасибо,да без встроенных функций которые предлагает Delphi
Пользуйтесь может кому понадобится


unit Unit2;

interface

function sum(x:integer;y:integer):integer;
function arcsin(x:real):real;
function arccos(x:real):real;
function arcctg(x:real):real;
function tg(x:real):real;
function log_a_x(x:real;a:real):real;
function x_a(x:real;a:real):real;
function sh(x:real):real;
function ch(x:real):real;



implementation



function sum;
begin
sum:=x+y;
end;

function arcsin;
begin
if x=1 then arcsin:=pi/2
else if x=-1 then arcsin:=-pi/2
else arcsin:=(180/pi)*arctan(x/sqrt(1-sqr(x)));
end;

function arccos;
begin
if x=1 then arccos:=0
else if x=-1 then arccos:=pi
else arccos:=(180/pi)*(pi/2-arctan(x/sqrt(1-sqr(x))));
end;

function arcctg;
begin
arcctg:=pi/2-arctan(x);
end;

function tg;
begin
tg:=sin(x)/cos(x);
end;

function log_a_x;
begin
Log_a_x:=ln(x)/ln(a);
end;

function x_a;
begin
x_a:=exp(a*ln(x));
end;

function sh;
begin
sh:=(exp(x)-exp(-x))/2
end;

function ch;
begin
ch:=(exp(x)+exp(-x))/2
end;

end.

[Garilla]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XpMan;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Button6: TButton;
Edit4: TEdit;
Edit5: TEdit;
Button7: TButton;
Button8: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const pi=22/7;
var
Form1: TForm1;

implementation
uses unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(floattostr(arcsin(strto float(edit1.Text))));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(floattostr(arccos(strto float(edit1.Text))));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage(floattostr(arcctg(strto float(edit1.Text))));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ShowMessage(floattostr(tg(strtofloa t(edit1.Text)*(pi/180))));
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ShowMessage(floattostr(log_a_x(strt ofloat(edit2.Text),strtofloat(edit3 .Text))));
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
ShowMessage(floattostr(x_a(strtoflo at(edit4.Text),strtofloat(edit5.Tex t))));
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
ShowMessage(floattostr(sh(strtofloa t(edit1.Text))));
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
ShowMessage(floattostr(ch(strtofloa t(edit1.Text))));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

[Garilla]

http://rghost.ru/53303770
Полностью

[p51x]

ну совсем "без встроенных функций которые предлагает Delphi" ))