[es] - Programiranje u VB6

Sajben
Sajben Darko
Padina

Član broj: 196164
Poruke: 41
79.101.19.*

+1 Profil

^{22.03.2009. u 22:56 - pre 183 meseci}

Jel moze neko da resi ovaj zadatak...

Broj je "dobar" ako mu je svaka cifra veca od zbira cifara, koje se
nalaze desno od nje. Na primer, dobri brojevi su 7, 531 i 8421, a
brojevi 33, 287 i 321 nisu "dobri".
Napisati program kojim se unose prirodni brojevi dok se ne unese 0, a
ispisuje se najveci "dobar" broj. Ako takav broj medu unetim brojevima
ne postoji, dati odgovarajucu poruku.

Primer:
- Ulaz: 430, 842, 972, 521, 0
- Izlaz: Najveci dobar broj je 842

Sajben

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
93.86.114.*

+1 Profil

Re: Programiranje u VB6

^{22.03.2009. u 23:09 - pre 183 meseci}

Može...

Odgovor na temu

Sajben
Sajben Darko
Padina

Član broj: 196164
Poruke: 41
79.101.19.*

+1 Profil

Re: Programiranje u VB6

^{22.03.2009. u 23:13 - pre 183 meseci}

Bravo!
Napisi programski kod kako si uradio zadatak!!!

Sajben

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Programiranje u VB6

^{23.03.2009. u 02:02 - pre 183 meseci}

A možeš li prvo napisati dokle si ti stigao sa zadatkom ? Gde je zapelo ?

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Odgovor na temu

Sajben
Sajben Darko
Padina

Član broj: 196164
Poruke: 41
79.101.18.*

+1 Profil

Re: Programiranje u VB6

^{23.03.2009. u 14:06 - pre 183 meseci}

Na pocetku :) :) :)

Sajben

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.76.*

+1 Profil

Re: Programiranje u VB6

^{23.03.2009. u 16:26 - pre 183 meseci}

Ukoliko ne počneš sam, tu ćeš i ostati.

Niko ne posećuje forum da drugima radi zadatke, već da pomogne kad negde "zaglave" i tako proširi i svoje znanje.

Odgovor na temu

Sajben
Sajben Darko
Padina

Član broj: 196164
Poruke: 41
79.101.19.*

+1 Profil

Re: Programiranje u VB6

^{24.03.2009. u 23:42 - pre 183 meseci}

Znam nesto otprilike

Code:
a=text1.text               'broj
br = 0
y = len (a)
x = mid(a,1,1)
for i = 2 to a
    z = mid(a,i,1)
    br=br+z
if x>be then
'broj je dobar
else
'broj nije dobra
end if
next i

mozda nesto ovako...

_{Dodati code tagovi}

_{[Ovu poruku je menjao Marko_L dana 25.03.2009. u 02:53 GMT+1]}

Sajben

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Programiranje u VB6

^{25.03.2009. u 02:06 - pre 183 meseci}

Eto vidiš, nije bilo toliko teško. Ovo nije loše, ali je problem što pokriva samo prvu cifru, a koliko sam shvatio, trebalo bi sve da proveri. Takođe, ne bi bilo loše od ovoga napraviti funkciju koja će da vraća boolean vrednost (True ako je dobar, a False ako nije). Ovako nešto

Code:
Private Function DobarBroj(lNumber As Long) As Boolean
Dim i As Long
Dim j As Long
Dim lZbir As Long

Dim strBroj As String
strBroj = CStr(lNumber)

If Len(strBroj) = 1 Then
    DobarBroj = True
    Exit Function
End If

For i = 1 To Len(strBroj)
    lZbir = 0
    For j = i + 1 To Len(strBroj)
        lZbir = lZbir + Val(Mid(strBroj, j, 1))
    Next j
    If Val(Mid(strBroj, i, 1)) <= lZbir Then
        DobarBroj = False
        Exit Function
    End If
Next i

DobarBroj = True
End Function

Pozivaš je naravno sa

Code:
MsgBox DobarBroj(n)

gde je n broj koji želiš da proveriš.

Odgovor na temu