Probleme Pascal – Calculul sumei 1+1*2+1*2*3.+…..*n

Să se calculeze: S=1+1*2+1*2*3+…+1*2*3*…*n, unde n se citeşte de la tastatură.

program prob5;
var p, s,n,i,j:integer;
begin
write(‘n=’);readln(n);
s:=0;
p:=1;
for i:=1 to n do begin
p:=p*j;
s:=s+p;
end;
write(‘rezultatul este:’,s);
readln;
end.

Posturi asemanatoare

Daca vrei sa fii la curent cu ceea ce apare zilnic pe blog, poti sa te abonezi la feedreader ( e gratis, in cazul in care iti pui intrebarea ). Pe langa asta, poti sa ma urmaresti pe Twitter ori pe Facebook. Daca te intereseaza mai mult partea profesionala a lucrurilor, atunci vezi mai multe pe profilul meu de linkedin, incerc sa il tin cat de cat la curent.

This entry was posted on Thursday, October 16th, 2008 and is filed under Tehnologie. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

13 Comentarii la postul : “Probleme Pascal – Calculul sumei 1+12+123.+…..n”

Poti sa iti dai cu parerea, in limitele bunului simt. Sau poti sa injuri porceste, pe raspunderea ta. Esti liber sa dezbati subiectul propus.

marian
March 18th, 2009
nu ii bun programu………:P:P invatza sa le faci k loomea:D
Public User
March 18th, 2009
Nasol daca nu-i bun.

Ah, si nu vreau sa invat sa le fac “kloomea” ca nu mai sunt la stadiul in care trebuie sa imi caut temele de la scoala pe net
Razvan
June 3rd, 2009
NU II BUN MHA NU STI NIK
Public User
June 3rd, 2009
@ Razvan – e pacat daca nu ii bun. Ai dreptate, nu stiu pascal, pentru ca am trecut de perioada in care imi fac temele pe net ( vezi si ultimul comentariu ).

Vad doar comentarii de cacat, ca nu e bun. Atunci vin-o cu solutia, in loc sa tocesti tastatura ca nu-i bun si ca nu stiu nimic. RETARD!
Felipe
September 22nd, 2009
NU e bun ptr k nu e pus begin dupa for ))
bianca
November 21st, 2009
program prob5;
var p, s,n,i,j:integer;
begin
write(’n=’);readln(n);
s:=0;
p:=1;
for i:=1 to n do begin
while j<=i do begin
p:=p*j;
j:=j+1;
end;
s:=s+p;
end;
writeln('s=', s);
end.
bianca
November 21st, 2009
program prob5;
var p, s,n,i,j:integer;
begin
write(’n=’);readln(n);
s:=0;
for i:=1 to n do begin
j:=1; p:=1;
while j<=i do begin
p:=p*j;
j:=j+1;
end;
s:=s+p;
end;
writeln('s=', s);
end.
Dumitru
April 15th, 2010
va rog frumos sa ma ajutati la aceasta problema….. imi trebuie urgent.

Se considera tabelul A[1...n,1...m] de numere intregi, unde n,m ≤20. Sa se scrie un program care schimba cu locul prima linie cu ultima linie.
dany
April 20th, 2010
de alcatuit un program ce afiseaza pe ecran lungimea cercului de raza R… ma ajuta si pe mine cineva la aceasta problema?
adita11
May 4th, 2010
am gasit un site care mi- a rezolvat tema super http://www.webmateinfo.com
zandu`
May 4th, 2010
pe aici se obisnuieste sa se rezolve tot programul sau decat o idee de pornire?
Niku
January 17th, 2011
Salut! as vrea sa ma ajute si pe mine cine in pascal…
As vrea sa calculez suma numerelor
1+1/2+1/3+1/4.,…n
va rog ajutatima…
a
February 5th, 2012
omule, da` cu j-ul ala ce faci?=))

Liber la discutii !

marian
March 18th, 2009

nu ii bun programu………:P:P invatza sa le faci k loomea:D

Public User
March 18th, 2009

Nasol daca nu-i bun.

Ah, si nu vreau sa invat sa le fac “kloomea” ca nu mai sunt la stadiul in care trebuie sa imi caut temele de la scoala pe net

Razvan
June 3rd, 2009

NU II BUN MHA NU STI NIK

Public User
June 3rd, 2009

@ Razvan – e pacat daca nu ii bun. Ai dreptate, nu stiu pascal, pentru ca am trecut de perioada in care imi fac temele pe net ( vezi si ultimul comentariu ).

Vad doar comentarii de cacat, ca nu e bun. Atunci vin-o cu solutia, in loc sa tocesti tastatura ca nu-i bun si ca nu stiu nimic. RETARD!

Felipe
September 22nd, 2009

NU e bun ptr k nu e pus begin dupa for ))

bianca
November 21st, 2009

program prob5;
var p, s,n,i,j:integer;
begin
write(’n=’);readln(n);
s:=0;
p:=1;
for i:=1 to n do begin
while j<=i do begin
p:=p*j;
j:=j+1;
end;
s:=s+p;
end;
writeln('s=', s);
end.

program prob5;
var p, s,n,i,j:integer;
begin
write(’n=’);readln(n);
s:=0;
for i:=1 to n do begin
j:=1; p:=1;
while j<=i do begin
p:=p*j;
j:=j+1;
end;
s:=s+p;
end;
writeln('s=', s);
end.

Dumitru
April 15th, 2010

va rog frumos sa ma ajutati la aceasta problema….. imi trebuie urgent.

Se considera tabelul A[1...n,1...m] de numere intregi, unde n,m ≤20. Sa se scrie un program care schimba cu locul prima linie cu ultima linie.

dany
April 20th, 2010

de alcatuit un program ce afiseaza pe ecran lungimea cercului de raza R… ma ajuta si pe mine cineva la aceasta problema?

adita11
May 4th, 2010

am gasit un site care mi- a rezolvat tema super http://www.webmateinfo.com

zandu`
May 4th, 2010

pe aici se obisnuieste sa se rezolve tot programul sau decat o idee de pornire?

Niku
January 17th, 2011

Salut! as vrea sa ma ajute si pe mine cine in pascal…
As vrea sa calculez suma numerelor
1+1/2+1/3+1/4.,…n
va rog ajutatima…

a
February 5th, 2012

omule, da` cu j-ul ala ce faci?=))