Turbo pascal help

[Slaven]

Da li neko zna uraditi tacno ove zadatke

1.S=b-b(n+1)+b(n+2)-...+b(m)

2.S=1/(n-1)!-1/(n-2)!+1/(n-3)!-...1/(n-k)! (n>k)

3.S=1-x/1!+ x na kvadrat/2!-...+(-1)na n * x na n/n!+... sve dok je n<x


Trebaju mi hitno :type:

 

[Marvin]

Pa ovo su udzbenicki primeri...Za osnovnu skolu
Pascal nisam radio odavno, evo na brzaka da probam...

S=b-b(n+1)+b(n+2)-...+b(m)

pod pretpostavkom da je n dato, odnosno
da n ide od nekog broja do datog m


z:=1; s:=0; z:=1;
while n<=m do
begin
s:=s+b*z
n:=n+1;
z:=-z;
end;


S=1/(n-1)!-1/(n-2)!+1/(n-3)!-...1/(n-k)! (n>k)

opet pretpostavljam da je n uneseno
pretpostavljam da mozes da napises funkciju fakt(), koja
postoji u svakom udzbeniku, bar kao rekurzivna f-ja

i:=1; z:=1; s:=0; k:=1;
while n>k do
begin
s:=s+z*(1/fakt(n-k));
k:=k+1;
z:=-z;
end;


kod treceg ti je sve isto samo s na pocetku postavis na 1, i z na -1, a x dizes stepen valjda f-jom pow (nisam siguran,ako nije ta, mozes sa exp pa da ga logaritmujes)

 

[Slaven]

e hvala, ****** ja radim pascal sto moram, tako da me i ne interesuje puno.Hvala

 

[!rabas]

A funkciju fakt() mozes da napises na dva nacina: rekurzivno i iterativno.

Rekurzija:

function fakt(n:integer):integer;
begin
 if n=0 then fakt:=1 
         else fak:=n*fak(n-1);
end;

A "normalna" funkcija moze ovako:

function fakt(n:ineteger):integer;
var
  s,i:integer;
begin
   s:=1;
   for i:=1 to n do
     s:=s*i;
  fakt:=s;
end;