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.
Fórum › Pascal
Soucet rady
Brani ti neco to projet cyklem?
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.
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 3 hosté
Podobná vlákna
Soucet rady se dvema parametry — založil honzik
Číselné řady — založil Láďa
Nevim si rady — založil tom
Vytvoření řady v C# — založil stanleysteel
Moderátoři diskuze