Pascal-for petlja

[ erc kragujevac @ 11.12.2015. 20:47 ] @

Probao sam da pomognem oko ovoga ali nisam radio Pascal preko 15 godina i ispao sam iz forme:

[ Rapaic Rajko @ 14.12.2015. 08:08 ] @

Mislim, ocekuje se da neko ovo PREKUCA, pa onda i 'produva da radi'..?

Pozz

[ Milan Milosevic @ 14.12.2015. 13:13 ] @

Kolko ja znam sumiranje se ne pise ovako. Tako da nisi dao zadatak koji treba da se resi.
Kako mi da znamo sta tebi treba iz ovoga.

_{[Ovu poruku je menjao Milan Milosevic dana 14.12.2015. u 14:55 GMT+1]}

[ captPicard @ 14.12.2015. 13:31 ] @

Citat:

Rapaic Rajko:
Mislim, ocekuje se da neko ovo PREKUCA, pa onda i 'produva da radi'..?

Pozz

Mislio i ja tako nekako napisati ali sam se suzdržao

[ erc kragujevac @ 14.12.2015. 22:39 ] @

Citat:

Rapaic Rajko:
Mislim, ocekuje se da neko ovo PREKUCA, pa onda i 'produva da radi'..? :)

Pozz

Ne nego savet jer mi je prica sa for petljom OK, ali mislim da je cela postavka malo sasava.
i Nigde ne viidm da se unosi bar n, a koliko se ja secam trebalo bi.

[ erc kragujevac @ 14.12.2015. 22:41 ] @

Citat:

captPicard:

Citat:

Rapaic Rajko:
Mislim, ocekuje se da neko ovo PREKUCA, pa onda i 'produva da radi'..? :)

Pozz

Mislio i ja tako nekako napisati ali sam se suzdržao :D

Nisi morao. Na glupa pitanja se ne moze dobiti pametan, a cesto bilo kakav odgovor.

Lici li ti ova prica sa sumom na nesto.

S=(x^n+(5+x)^2i)/(2i+n)!

[ Milan Milosevic @ 15.12.2015. 06:51 ] @

Meni i dalje ne lici na sumu, al nema veze.
No da predpostavimo da su ti n, i celi pozitivni brojevi ili nula , a da je x neki realni broj
kako njih unosis kao ulazne podatke ne mozes da ih koristis u for petlji kao sto si ti uradio sa i
Ukoliko uvedemo neke smene tvoja jednacina bi izgledala ovako

Nisi naglasio da li se faktorijel racuna preko potprograma ili direktno. Ja cu ici direktno.
Kako znamo faktorijal nekog broja (c+n)! = (c+n)*(c+n-1)*...(c)*(c-1)*... 3*2*1
sto cemo ovde iskoristiti da optimizujemo sto je vise moguce algoritam

Code:

c:= 2*i;
a:=1;
b:=1;
for j :=1 to c do
begin
  b := b*(5+x);
  a := a*j;
end;

f :=1.0;
for j:=1 to n do
begin
  f := f*x;
a := a*(c+j); // drugo deo faktorijela
end;
s := (f+b)/a;

Kod nije testiran i treba da deklarises odgovarajuce promenjive tipa

Code:

var
j,c,a:integer;
f,b:real;

_{[Ovu poruku je menjao Milan Milosevic dana 15.12.2015. u 11:12 GMT+1]}

[ erc kragujevac @ 15.12.2015. 09:52 ] @

Hvala.

Ako sam ovo dobro gledao ovo je neka suma za niz ili sta god.
Mislim da je ovaj deo koda vise nego OK.
Koliko se secam treba da trazim unos za x, i i n i da ih preuzmem sa readln .