Pomoc oko Visual Basica

Pomoc oko Visual Basica

offline
  • Aleksa
  • Pridružio: 20 Dec 2016
  • Poruke: 3
  • Gde živiš: Beograd

Zamolio bih Vas za pomoc oko pisanja programa tj zadatka u Visual Basicu.
Zadatak glasi:Napišite program koji će ispisati u Excel tabeli sve trocifrene brojeve {N1,N2, ...Ni, ... NX} koji su deljivi sa 11. Svaki broj Ni u tom skupu mora da ima zbir kvadrata svojih cifara = Ni/11. (jedan za drugim bez razmaka u redovima).
Potrebno mi je zbog faxa zarad dodatnih bodova. Very Happy
Hvala!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Milan
  • Pridružio: 17 Dec 2007
  • Poruke: 14231
  • Gde živiš: Niš

Kakva ti je pomoć potrebna? Gde si zapeo?



offline
  • Aleksa
  • Pridružio: 20 Dec 2016
  • Poruke: 3
  • Gde živiš: Beograd

Pa problem je u tome sto nikad nisam radio do sada Visual Basic,nije da nisam upoznat sa njim posto bih ipak trebalo da znam osnovu neku za pisanja programa,sto znaci da sam u praksi slab,a profesor ocekuje da mu dostavim resen zadatak do vikenda pa sam malo u problemu..
Pa bih zato zamoli Vas ,da ako znate i upoznati ste sa Basicom da mi ispisete program,kao malu ispomoc. Very Happy
A inace sam preuzeo teoriju sa sajta Tutorijali.org i odatle ucim. Smile
Bio bih vam zahvalan.

offline
  • Milan
  • Pridružio: 17 Dec 2007
  • Poruke: 14231
  • Gde živiš: Niš

To što ti tražiš se ne zove pomoć. Wink Elem, ako već ne znaš da uradiš zadatak, onda ni ne treba da ga radiš. Ti zadaci za dodatne poene su zato i osmišljeni, da ih urade oni koji malo bolje znaju ili oni koji se malo više trude.

Ako hoćeš da poslušaš, imam jedan savet - probaj da sam uradiš to, pa koliko se snađeš. Možda nećeš dobiti dodatne poene, ali ćeš zasigurno naučiti nešto korisno, a to ti mnogo više vredi od poena. Kad dođeš dotle, odnosno kad pokažeš da si se dovoljno potrudio i sam, i kad stvarno zapneš na nekom konkretnom problemu, onda ćemo da pomognemo. Smile

offline
  • C# and PHP Developer
  • Pridružio: 16 Feb 2011
  • Poruke: 1622
  • Gde živiš: Pancevo

Mene bas zivo zanima ko to daje zadatke nekome ko nema blage veze sa programiranjem ili tog nekog bolelo uvo da uci pa sad kad je povuci potegni daj MC forum Very Happy

To bi isto bilo kao kad bi profesor iz nuklerne fizike dao meni c# i php programeru zadatak sa temom " Navedite i objasnite sve oblike beta raspada i njihove Q vrijednosti" meni koji ja nemam plage veze sa time Very Happy

Čudni neki profesori Smile

offline
  • Aleksa
  • Pridružio: 20 Dec 2016
  • Poruke: 3
  • Gde živiš: Beograd

Da razumem sta hocete da kazete.Zato sam probao sam da uradim zadatak ali imam gresku stalno,i ako mozete da mi kazete sto mi ne radi program da ispravim tu gresku u kodu.
Option Explicit Sub main() Dim prviBroj As Integer Dim drugiBroj As Integer Dim treciiBroj As Integer j = 0 For i = 10 To 90 Step 1 i = i + 1 Next i ni = i * 11 prviBroj = ni Mod 10 drugiBroj = (ni Mod 100) \ 10 treciBroj = ni \ 100 If (prviBroj * prviBroj + drugiBroj * drugiBroj + treciBroj * treciiBroj <> i) Then ActiveSheet.Cells(j, 4) = ni End If End Sub
Ne znam kako da lepo izdefinisem niz pa sam probao nesto ovako,inace broj 10 treba da bude najmanji a 90 najveci s kojim se mnozi 11,zato sto 10*11 je 110 a to je najmanji trocifreni,a 90*11 je 990 a to je najveci trocifreni.

offline
  • Milan
  • Pridružio: 17 Dec 2007
  • Poruke: 14231
  • Gde živiš: Niš

Pa daj okači i tekst te greške koju dobijaš.

Inače, šta misliš o tome da izbegneš množenje? Ako već obrađuješ svaki 11. broj počev od 110 do 990, što jednostavno brojač petlje na početku ne inicijalizuješ na 110, a korak petlje postaviš da bude 11?

offline
  • C# and PHP Developer
  • Pridružio: 16 Feb 2011
  • Poruke: 1622
  • Gde živiš: Pancevo

Citat:
što jednostavno brojač petlje na početku ne inicijalizuješ na 110,

Uze mi rec iz usta Very Happy

Ko je trenutno na forumu
 

Ukupno su 557 korisnika na forumu :: 29 registrovanih, 5 sakrivenih i 523 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Sale, A.R.Chafee.Jr., aleksandarcipo 2, AleksSE, antonic.igor2050, cavatina, Dany6, Dicus, Faki-Valjevo, indja, ivance95, karabata, Kec 12, Kubovac, ladro, Maschinekalibar, mercedesamg, miroslav.maričić, misa1xx, Mlav, nenad812, NoOneEver Dreams, plavii, repac, rovac, ruger357, Skywhaler, srecko81, vobo