Soru = Cos(x)’in Mac Laurin seri açılımı cos(x) = 1 - x2/2! + x4/4! - x6/6! + x8/8! ... şeklindedir. x radyan cinsinden verilen açıyı göstermek üzere, cos(x)’i hesaplayacak programı kullanıcı tanımlı fonksiyon kullanarak yazınız.
Şekli :
Kodlar :
Function faktor(deger:integer):longint;
var
f:longint; k:byte;
begin
f:=1;
for k:=1 to deger do
f:=f*k;
faktor:=f;
end;
Function xCos(x:real):real;
const
duyarlilik=0.00000001;
var
arasonuc, sonuc: real;
sayi, isaret: integer;
begin
sonuc:=0.0;
isaret:=1;
sayi:=0;
repeat
sonuc:=sonuc + isaret * exp(sayi*ln(x)) / faktor(sayi);
isaret:=isaret*(-1);
sayi:=sayi+2;
until (exp(sayi*ln(x))/faktor(sayi) < duyarlilik);
xCos:=sonuc;
end;
Procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.text:=floattostr(xCos(strtofloat(edit1.text)/180*pi));
end;
Çalışma Şekli :
 
Derece girildikten sonra ‘Hesapla’ butonuna tıklandığında bize açı değerini gösterecektir.
|
