چه طوری میشه سینوس را محاسبه کرد

[depase]

چه طوری میشه سینوس را محاسبه کرد اگه ممکنه کمک کنید فوری........؟؟؟؟؟؟؟؟؟؟؟؟

[Mahyaa]

با تابع Sin از یونیت System


function Sin(X: Extended): Extended;

[depase]

اگر ممکنه بیشتر راهنمایی کن....

[depase]

من تاره دلفی رو شروع کردم نمیدونم چه طوری استفاده کنم......

[حمیدرضاصادقیان]

سلام.دیگه از این راحتتر بیان کنند؟؟؟؟؟؟


var SnFunction:Float;
Begin
SnFunction:=Sin(10);
showmessage(currtostr(SnFunction));
End;

[depase]

من یه جور دیگه نوشتم اینه ولی جواب نمیده
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function Fact(n: Word): Longint;
var
f: LongInt;
i: Integer;
begin
f := 1;
for i := 2 to 8 do f := f * i;
Result := f;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
sin,fact,x:real;
begin
x:=-1;
x:=strtofloat(edit1.Text);

while i<=15 do
i:=0;
sin:=x-x*2*i+1/2*i+fact ;
i:=2*i+1;
edit2.Text:=floattostr(sin);

end;

end.

[حمیدرضاصادقیان]

سلام.لطف کنید کد خود رو در تگ کد قرار بدید




interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function Fact(n: Word): Longint;
var
f: LongInt;
i: Integer;
begin
f := 1;
for i := 2 to 8 do f := f * i;
Result := f;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
sin,fact,x:real;
begin
x:=-1;
x:=strtofloat(edit1.Text);

while i<=15 do
i:=0;
sin:=x-x*2*i+1/2*i+fact ;
i:=2*i+1;
edit2.Text:=floattostr(sin);

end;

end

[حمیدرضاصادقیان]

دوست عزیز یک اشتباه شما اینه که نام توابع شما با نام متغیرهای شما یکسانه.
وقتی که خود دلفی اینکارو میکنه چه لزومی داره شما دوباره بازنویسی کنید؟

[depase]

آخه باید بدونه توابع دلفی این کارو انجام بدم اگه کمک کنی ممنون میشم

[B-Vedadian]

دلفی اپراتور مستقیمی برای توان نداره، برای اینکه به توان برسونی از Pow تو یونیت Math استفاده کن. برای رفع اصل اشکال هم که نام متغیرتو غیر از sin چیز دیگه ای بذار.

[iranfa]

من يكسري از توابع ساده رو ميگم :
تابع sin براي سيسنوس هستش
تابع cos براي كسينوس هستش
تابع tan براي تانژانت هستش
تابع cotan براي كتانژانت
تابع sqr يا sqrt براي راديكال هستش
و اين نكته رو بگم كه شما بايد سعي كنيد كه تا ميتوانيد كدها را ساده و خوانا بنويسيد
اگر ميشه با يك تابع كار يك صفحه رو انجام داد من دليلي به عدم انجام اين كار نميبينم

در هر صورت هر تابعي خواستي بگو