Soucet rady – Pascal – Fórum – Programujte.com

Zdravim, potreboval bych napsat program, kde zadam cislo (treba 6) a ono mi to spocita 1+2+3+4+5+6, proste, ze zadam posledni cislo a ono to spocita soucet vsech cisel od 1 do toho zadanyho. Nevim, jak definovat tu nekonecnou radu, nebo co to je.

Diky za jakoukoli pomoc.

read(n);
nejlepsi je pak vzorecek s:=n*(1+n)/2;
writeln('vysledek:',s);

Parada, na tohle to funguje.

Co kdyz ale budu chtit soucet rady 1/1^2 + 1/2^2 + 1/3^2/......+1/n^2.

Jak se da udelat tohle?

Brani ti neco to projet cyklem?

Asi nebrani, ale nevim jak na to.

Poradite mi nekdo jak na to prosim?

var
suma:integer;
read(n);
for i:=1 to n do suma:=suma+f(i);
writeln(suma);

Tak jsem to moc nepochopil. Hlavne nevim co znamena to f(i). Jak to souvisi s tim, jak predtim je napsano i:=1?

aha naprostý laik
for i:=1 to 10 do -- 10x provede neco za "do"
f(i) - function f(i:integer):real; begin f:=i; {nebo} f:=1/sqr(i); end;

(pak dat suma:real)

Kromě cyklu to jde i takhle:

Function CiselnaRada(i:integer):integer;

begin

if i=1 then CiselnaRada:=1 else CiselnaRada:=i+CiselnaRada(i-1);

end;

Ja opravdu ocenuji vasi pomoc. Ale bohuzel na to takhle nemuzu prijit.

Dokazete to nekdo napsat tak, aby to fungovalo v tomto programu, napsat tam spravne definici ty funkce.

program sdf;

uses crt ;

var x,i,n:integer;



function y(x,i,n:integer):real;

begin





end;





begin

clrscr;

writeln('zadej cislo');

readln(n);



writeln('vysledek :',y(x,n,i):10:3);

readln;

end.

readln;

end.

To je fuska, jeden si obcas pripadne jak pri provrtavani nekonecnych nekolikakilometrovych dolu...

program sdf; 

uses crt ; 

var n:integer;

function y(n:integer):real; 

var suma:real; i:integer;

begin 

 suma:=0;

 for i:=1 to n do suma:=suma+1/sqr(i); {nebo puvodni suma:=suma+i;}

 y:=suma;

end; 



begin 

clrscr; 

writeln('zadej cislo'); 

readln(n); 

writeln('vysledek :',y(n):10:3); 

readln; 

end.

Parada, fakt moc dekuju.