Programalama > PASCAL

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.