Pomoć - Zadaci za QBasic :S

[NikolaTECH]

Pozz svima, novi sam na forumu. Treba mi pomoć. 9. sam razred i uskoro će takmičenje, a ne znam nekoliko zadataka da uradim koji su mi veoma važni.. :/ Ako može, rješenje ILI OBJAŠNJENJE bi mi dobro došlo..

1. Unijeti string i ispisati dužinu najkraćeg stringa. (Ja volim kajmak = 2)
2. U jednoj gajbi se nalazi m kg jabuka i n kg krušaka.(m i n su prirodni brojevi). Napiši program koji za date vrijednosti m i n ispisuje najmanji mogući broj potrebnih gajbi u koje možemo prepakovati jabuke i kruške tako da u svakoj gajbi budu iste mase, a da jabuke i kruške budu spakovane odvojeno.
UlazI: 16,12 ; 3,6 ; 15,80
IzlazI: 7 ; 3 ; 19

3. Kada su jednog oca pitali koliko godina mu imaju djeca odgovorio je:
Imam dvoje djece ,ako se proizvodu brojeva koji predstavlja godine djece
doda zbir njihovih godina dobije se broj A.
Napisati program kojim se za dato a određuje broj godina djece,naći sva rješenja.
Ulaz: A = 17
Izlaz.
1 8
2 5

4. Svaku riječ unijetog stringa ispisati u novom redu: Volim Informatiku
Volim
Informatiku

[voodoo_]

1. Napravi brojačku promenljivu, inicijalizuj je na nulu. Zavrti "for" petlju u dužini celog stringa. U svakom koraku petlje proveri sledeći znak u stringu, ako nije razmak, povećaj vrednost brojača. Ako jeste razmak, zapamti brojač u drugoj promenljivoj ako je najmanji do sad, i resetuj ga.

Zaboravio sam Qbasic ali bi logika otprilike izgledala ovako:

dim cnt as integer    ' Brojač (counter)
dim min as integer    ' Najmanja zapamćena vrednost brojača
dim i as integer
dim s as string

cnt = 0
min = 0

read(s) ili kako već ide učitavanje stringa s tastature

for i = 1 to length(s)
    if s(i) <> " " then
        cnt = cnt + 1
    else
        if min = 0 or cnt < min then     ' Ako je ovo prvo pamćenje dužine, ili ako već imamo zapamćenu neku vrednost a ova nova je manja od nje
            min = cnt
        end if
        cnt = 0     ' Resetujemo brojač u svakom slučaju jer smo naišli na razmak
    end if
end for

' Proverimo poslednju vrednost cnt-a pošto se string verovatno ne završava razmakom
if cnt < min
    min = cnt
end if

print "Najmanja zapamcena duzina do razmaka je ", min

4. Slično ko prvi, petlja kroz string, ako znak nije razmak, ispiši znak. Ako je razmak, ispiši novi red koristeći CHR$(13)

[NikolaTECH]

voodoo_ kaže:

1. Napravi brojačku promenljivu, inicijalizuj je na nulu. Zavrti "for" petlju u dužini celog stringa. U svakom koraku petlje proveri sledeći znak u stringu, ako nije razmak, povećaj vrednost brojača. Ako jeste razmak, zapamti brojač u drugoj promenljivoj ako je najmanji do sad, i resetuj ga.

Zaboravio sam Qbasic ali bi logika otprilike izgledala ovako:

dim cnt as integer    ' Brojač (counter)
dim min as integer    ' Najmanja zapamćena vrednost brojača
dim i as integer
dim s as string

cnt = 0
min = 0

read(s) ili kako već ide učitavanje stringa s tastature

for i = 1 to length(s)
    if s(i) <> " " then
        cnt = cnt + 1
    else
        if min = 0 or cnt < min then     ' Ako je ovo prvo pamćenje dužine, ili ako već imamo zapamćenu neku vrednost a ova nova je manja od nje
            min = cnt
        end if
        cnt = 0     ' Resetujemo brojač u svakom slučaju jer smo naišli na razmak
    end if
end for

' Proverimo poslednju vrednost cnt-a pošto se string verovatno ne završava razmakom
if cnt < min
    min = cnt
end if

print "Najmanja zapamcena duzina do razmaka je ", min

4. Slično ko prvi, petlja kroz string, ako znak nije razmak, ispiši znak. Ako je razmak, ispiši novi red koristeći CHR$(13)

Hvala puno, riješio sam prvi zadatak ali na malo drugačiji način.

[seymourc64]

Drugi problem se u stvari svodi na trazenje najveceg zajednickog delioca. Kada nadjes NZD samo podelis A i B sa njim i saberes ih. Kod otprilike izgleda ovako:

nzd:
' Determine NZD returned in A for two numbers A and B
IF A=0 THEN
  A=B
  RETURN
END IF
WHILE A<>B
  IF A>B THEN
    A=A-B
  ELSE IF B>A THEN
    B=B-A
  END IF
WEND
RETURN

solve:
' Solve problem for two numbers A and B. Result is returned in RES
OA = A
OB = B
GOSUB nzd
RES = OA/A + OB/A
RETURN

Posle toga mozes isprobati:

   A=15
   B=80
   GOSUB solve
   PRINT RES
   ' Trebalo bi da ispise 19
   A=12
   B=16
   GOSUB solve
   PRINT RES
   ' Trebalo bi da ispise 7

Algoritam za odredjivanje nzd koji sam iskoristio se zove Euklidov algortitam

[NikolaTECH]

Još ne mogu da ga shvatim, ne radi za svaki test primjer.. Uglavnom ,uradiću ga uskoro. Uradio sam ovaj da ispiše najmanji/najveći string, da ispiše string u novom redu, i ovaj za godine.

-OSVOJIO SAM 1. mjesto na takmičenju!

[voodoo_]

Misliš, mi smo ti osvojili

[NikolaTECH]

voodoo_ kaže:

Misliš, mi smo ti osvojili

Ustvari zadaci nisu bili ovakvi, ni slični, nijedan od ovih.. Stavili su nam drugačije zadatke ali sam ipak prvi uradio i imao 100/100 poena, 1. mjesto. A inače, ove sam zadatke sve uradio. :P