sucet za sebou nasledujucich cisel

petos · Napísal **petos**: 07.06.2008 17:23

caute,
potreboval by som pomoc ohladom tohto prikladu, mal by som napisat program na toto:
vypocitajte sucet za sebou nasledujucich cisel napr. ked zadam cislo 5 dat aby mi dalo vysledok 15

zacal som programovat v pascale

toto nepotrebujem do skoly, ucim sa to sam doma takze mi to prosim nezamykajte kvoli tomu pravidlu, nedavno som sa zacal ucit programovanie, a som este zaciatocnik :oops:

, takze dbajte ohlad nato .

thx

Ďuri · Napísal **Ďuri**: 07.06.2008 19:32

Citácia:

vypocitajte sucet za sebou nasledujucich cisel napr. ked zadam cislo 5 dat aby mi dalo vysledok 15

nechapem. program napisat bude lahke, ale ako to ma presne fungovat? Ze ked zadam cislo N, spocita mi 1+2+3+...+N ?? Ak mam pravdu, kod mas >>tu<<.
Vidim, ucis sa, ak bude treba, tak aj podrobnejsie vysvetlim

juho · Napísal **juho**: 07.06.2008 23:46

petos píše:

zacal som programovat v pascale

aha a co si zacal? hahachachrrrrrrrrrrrrrr
no predpokladam ze mas

Kód:

begin
end.

ty zaciatocnik jeden zaciatocnicky....

Kód:

var a:byte;
function suc(a:byte):word;
begin
if(a=1)then suc:=a
 else suc:=suc(a-1)+a;
end;
begin
write('zadaj cislo: ');readln(a);
writeln(suc(a):10);
readln;
end.

##
var a:byte;suc:word;
begin
write('zadaj cislo: ');readln(a);
for a:=a downto 1 do inc(suc,a);
writeln(suc:10);
readln;
end.

takze dve riesenia vyber si ktore chces a hlavne to ktore funguje a je spravne

MTK · Napísal **MTK**: 07.06.2008 23:49

povedal by som ze ma na mysli ten prvy kod

juho · Napísal **juho**: 07.06.2008 23:52

MTK píše:

povedal by som ze ma na mysli ten prvy kod

kto?

petos · Napísal autor témy **petos**: 08.06.2008 8:55

to duri: napisal som to v pascale ale nejak to nefunguje napr. napisem 6 a vysledok mi da 7.

chcem program ktory napr. ak zadam cislo 6 tak mi vypocita 1+2+3+4+5+6=21

to juho:ten tvoj prvy kod som nepochopil(este som zaciatocnik), a druhy ako tak som pochopil ale neviem co znamena funkcia inc.

juho · Napísal **juho**: 08.06.2008 10:12

mas pascal normalny? akoze myslim ze ci ma help tak napis inc() a daj ctrl+F1.
ak nie tak to je incrementation po anglicky preklad je to inkrementacia alebo pripocitanie, zvacsenie.

Kód:

inc(co,kolko);

prvy parameter je premenna a druhy je hodnota o kolko ma zvacsit tu premennu a oba musia byt celociselne(nie desatinne).
default

Kód:

inc(co);

druhy parameter je nastaveny na 1 dalo by sa to zapisat aj ako

Kód:

co:=co+1;

a su to funkcie tie si staci niekde vyhladat. a ten prvy priklad je rekurzivne.

Kód:

mojeskola.cz

Ďuri · Napísal **Ďuri**: 08.06.2008 17:31

petos píše:

to duri: napisal som to v pascale ale nejak to nefunguje napr. napisem 6 a vysledok mi da 7.

chcem program ktory napr. ak zadam cislo 6 tak mi vypocita 1+2+3+4+5+6=21

Hej, to som napisal a funguje mi to.

petos · Napísal autor témy **petos**: 08.06.2008 18:19

tak ja neviem ja som to cele odpisal z tadial a zadal som cislo 6 a dalo mi vysledok 7

neutronmind · Napísal **neutronmind**: 08.06.2008 19:28

hmm cudne, v pohode ide aj od Duriho aj od to prve od juha, v tom druhom len zabudol inicalizovat premennu suc na hodnotu 0, lebo sa za nu dosadila 1 a vzdy to vychadzalo o jedno viac...
takze skus to skomiplovat este raz, urcite to ide...

petos · Napísal autor témy **petos**: 08.06.2008 19:44

ok ide mi to uz aj mne, zle som odpisal :oops:

sucet za sebou nasledujucich cisel

Podobné témy