Qbasic

[Darky]

Imam opstinsko takmicenje iz informatike 26.2 i dobio sam knjigu sa zadacima za qbasic.Ima jedan zadatak koji nikako ne mogu rijesiti i glasi "Napisati program koji ucitava n brojeva i ucitane brojeve ispisati obrnutim redoslijedom".
Ja sam uspio napisati program koji ispisuje brojeve kako smo ih unijeli :

CLS
DO
INPUT "N=",n
LOOP WHILE n<1
DIM broj(n)
FOR i = 1 to n
INPUT broj(i)
NEXT i
FOR i = 1 to n
PRINT broj(i)
NEXT i

Kako uraditi obrnuto?

[voodoo_]

FOR i = n TO 1 STEP -1
PRINT broj(i)
NEXT i

[Darky]

FOR i = n TO 1 STEP -1
PRINT broj(i)
NEXT i

:facepalm:facepalm:facepalm:facepalm:facepalm :boodala::boodala::boodala::boodala::boodala:

Ja sam to isto probavao ali sam zaboravio step -1 :D

[Darky]

Evo mene ponovo sa pitanjem
ovako : Imamo 3 kocke i sad trebamo dobiti sve mogucnosti da pri jednom bacanju dobijemo usneseni broj.Ja sam to uradio sa 3 for next petlje medjutim to ispise bas sve kombinacije i one u kojima se brojevi bonavljaju samo drukcijim redoslijedom.Kako to rijesti?

[chaami]

for i=1 to 6
for j=i to 6
for k=j to 6
....ispis
next k
next j
next i

[Darky]

pa to sam i ja napisao

[chaami]

pa to sam i ja napisao
izvini ali onda te stvarno nisam razumeo. Mislio sam da ti trebaju sve kombinacije bez ponavljanja.

[Darky]

treba da se ne ponavljaju iste kombinacije brojeva sa zamijenjenim mjestima npr.

da je bez tog za pet bi bilo ovako :

1 1 3
1 2 2
1 3 1
2 1 2
2 2 1
3 1 1

a sa tim :
1 1 3
1 2 2

[chaami]

OK ono sto sam ti napisao ti upravo to i radi. Tvoje je da u ispisu proveris da li je zbir sve tri kocke jednak trazenom broju. Mozda da ipak probas :)

[Darky]

OK ono sto sam ti napisao ti upravo to i radi. Tvoje je da u ispisu proveris da li je zbir sve tri kocke jednak trazenom broju. Mozda da ipak probas :)

Ovo treba da dobijem

1 1 3
1 2 2

Evo koda da ne bi bilo zabune :)

CLS
INPUT "Unesite broj";x
FOR i = 1 TO 6
FOR j = 1 TO 6
FOR k = 1 TO 6
IF i + j + k = s THEN PRINT i;j;k
NEXT k
NEXT j
NEXT i
PRINT
END

[chaami]

A jesi li siguran da si DOBRO pogledao ono sto sam ti napisao. Samo tamo gde je ispis dodaj nesto kao if (i+j+k)=x print .... Izvini ako sintaksa nije dobra,ja koristim C.

[Darky]

A jesi li siguran da si DOBRO pogledao ono sto sam ti napisao. Samo tamo gde je ispis dodaj nesto kao if (i+j+k)=x print .... Izvini ako sintaksa nije dobra,ja koristim C.

Evo koda da ne bi bilo zabune :)

CLS
INPUT "Unesite broj";x
FOR i = 1 TO 6
FOR j = 1 TO 6
FOR k = 1 TO 6
IF i + j + k = s THEN PRINT i;j;k
NEXT k
NEXT j
NEXT i
PRINT
END





:confused:

[chaami]

For j = i to 6
for k = j to 6