Programalama > PASCAL

Etiketler: sin, fonk.......

Ort. 0
Puan ver:
program mer176;

{matematiksel fonksiyonu: sin(x)=x-(x^3/1!)+(x^5/5!)-.....
...+((-1)^n*x^(2n+1)/(2n+1)!)}

{program sayı sınırını 'currency' kullanmama rağmen ancak
138.54'e kadar çalışıyor, ancak bu da mod ve trunc fonksiyonu kullanılarak giderilebilir. Gerekli düzünlemeleri daha sonra yapacağım.}

uses
  Forms,
  math;

{$R *.RES}
  var n,f,i:integer;
      dgr,tplm,x,us,r:currency;

begin
  Application.Initialize;
  Application.Run;
  readln(x);
  r:= DegToRad (x);
  n:=0;
  tplm:=0;
  repeat
  n:=n+1;
  f:=1;
  us:=1;
  for i:=1 to (2*n+1) do
  begin
  f:=f*i;
  us:=us*r;
  end;
  dgr:=us/f;
  if n mod 2=0 then
  tplm:=tplm+dgr
  else
  tplm:=tplm-dgr;
  until abs(dgr)<=0.0000001;
  writeln('sin(',x:7:4,')=',(tplm+r):10:6);
  readln;
end.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.