banjalukaforum.com

Dobrodošli na banjalukaforum.com
Danas je 28 Mar 2024, 17:00

Sva vremena su u UTC [ DST ]




Započni novu temu Odgovori na temu  [ 16 Posta ] 
Autoru Poruka
PostPoslato: 23 Jul 2014, 18:43 
OffLine
Majstorski kandidat
Majstorski kandidat

Pridružio se: 16 Feb 2008, 17:16
Postovi: 389
Moze li mi neko pomoci? Dakle trebam napraviti program koji ce od tri unesena broja prikazati onaj najmanji, nesto sam otkucao ali mi izbacuje gresku vezanu za if petlju 'ElseIf' must be preceded by a matching 'If' or 'ElseIf'. Kod je sleddeci:


Private Sub btnprikazi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprikazi.Click

Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(txtprvi.Text)
b = Int(txtdrugi.Text)
c = Int(txttreci.Text)

If (a < b) And (a < c) Then txtnajmanji.Text = +a.ToString

elseif (b<a) and (b<c) then txtnajmanji.text = + b.tostring
elseif (c<a) and (c<b) then txtnajmanji.text = + c.tostring
elseif (a=b)<c then txtnajmanji.text = + a.tostring
elseif (a=c)<b then txtnajmanji.text = + a.tostring
elseif (b=c)<a then txtnajmanji.text = + b.tostring
elseif (a=b=c) then txtnajmanji.text = + a.tostring
End if

End Sub
End Class


Vrh
 Profil  
 
PostPoslato: 23 Jul 2014, 19:04 
OffLine
Majstor
Majstor
Korisnikov avatar

Pridružio se: 08 Okt 2010, 20:23
Postovi: 895
To je niz, da probaš sa For Next petljom:

Kod:
    Private Sub MinMax(ByVal Niz)
        Min = Niz(1)
        Max = Niz(1)
        For i = 2 To Broj
            If Min > Niz(i) Then
                Min = Niz(i)
            ElseIf Max < Niz(i) Then
                Max = Niz(i)
            End If
        Next
    End Sub


itd...


Vrh
 Profil  
 
PostPoslato: 23 Jul 2014, 19:18 
OffLine
Stara kuka
Stara kuka
Korisnikov avatar

Pridružio se: 07 Jul 2009, 13:22
Postovi: 5018
Lokacija: Banja Luka
meni bi bio najlakse da dodam jos jednu varijablu

Dim NAJMANJI As Integer

if(a<b) Then NAJMANJI = a
else NAJMANJI = b
if(NAJMANJI < c) then txtnajmanji.text = + NAJMANJI.tostring
else txtnajmanji.text = + c.tostring

(nisam nikada radio u VB ali valjda je dobro) :)

_________________
Eins, zwei, eins, zwei build an empire, very Prussian!
Exhaust gasses go into the turbocharger and spin it, witchcraft happens, and you go faster.


Vrh
 Profil  
 
PostPoslato: 24 Jul 2014, 20:22 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 28 Feb 2006, 02:36
Postovi: 2982
Posto ti treba samo najmanji broj, dovoljna su ti samo dva poredjenja (boli te uvo da li su dva broja jednaka ;) )

minimalan broj poredjenja:
Kod:
deklaracija a,b,c,min;

min = a;

if (b<min) min = b;
if (c<min) min = c;

print min;


Ili bez dodatnog zauzeca memorije:
Kod:
if (a<b) and (a<c) print a;
else if (b<c) print b;
else print c;


Razmisli i skontaces da su ti ostala poredjenja visak, a i formirati niz za tri broja je overhead

_________________
Popokatepetl je napisao:
...мени очи углавном служе да не упаднем у шахт ходајући улицом...


Vrh
 Profil  
 
PostPoslato: 16 Nov 2015, 21:28 
OffLine
Majstorski kandidat
Majstorski kandidat
Korisnikov avatar

Pridružio se: 24 Sep 2015, 17:48
Postovi: 546
Na proizvoljnoj datoteci na računaru dat je fajl sa tekstom. Načiniti program koji računa koliko rječi se nalazi u tekstu sa: 1, 2, 3, 4... slova?

Na proizvoljnoj datoteci na računaru dat je niz cjelih brojeva. Načiniti program koji računa sumu brojeva na parnim pozicijama?

Načiniti program koji za dati cjeli broj M i dužinu D određuje podbrojeve broja M dužine D (tipa TextBox1 123456, i treba da ispiše u TextBox2, 12, 23, 34, 45, 56 (ne 12, 34, 56))?

Načiniti univerzalni konvertor za pretvaranje brojeva iz proizvoljnog pozicionog sistema u dekadni?

Da li neko zna uraditi bilo koji zadatak?

_________________
*FIFA Club of the 20th Century*


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 09:58 
OffLine
Stara kuka
Stara kuka
Korisnikov avatar

Pridružio se: 07 Jul 2009, 13:22
Postovi: 5018
Lokacija: Banja Luka
Prvi zad.
- Napravis reader u koji proslijedis lokaciju tekt fajla da bi dobio string koji sadrzi tekst fajla.
- Splitujes taj string po delimiteru ' ' (blank space).
- Stringove koje dobijes splitovanje smjestis u string arr.
- Zavrtis petlju kroz sve stringove u string arr, u kojoj uklanjas sve specijalne znake sa pocetka i kraja stringova.
- Onda opet zavrtis petlju kroz string arr gdje provjeravas duzine stringova.
- Kad naidjes na duzinu stringa, deklarises INT brojac za tu duzinu i setujes ga na 1. Ako opet naidjes ponovo na tu duzinu, inkrementiras brojac za tu duzinu.
- Ispises brojace.

_________________
Eins, zwei, eins, zwei build an empire, very Prussian!
Exhaust gasses go into the turbocharger and spin it, witchcraft happens, and you go faster.


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 11:04 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 28 Feb 2006, 02:36
Postovi: 2982
Da li si ti pokusao uraditi bilo koji zadatak?

_________________
Popokatepetl je napisao:
...мени очи углавном служе да не упаднем у шахт ходајући улицом...


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 11:30 
OffLine
Stara kuka
Stara kuka
Korisnikov avatar

Pridružio se: 07 Jul 2009, 13:22
Postovi: 5018
Lokacija: Banja Luka
Ja?

_________________
Eins, zwei, eins, zwei build an empire, very Prussian!
Exhaust gasses go into the turbocharger and spin it, witchcraft happens, and you go faster.


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 12:08 
OffLine
Samo jedan iznad mene
Samo jedan iznad mene
Korisnikov avatar

Pridružio se: 10 Jun 2011, 21:22
Postovi: 16725
Lokacija: У близини Обрен Вакуфа
viewtopic.php?f=18&t=63708&start=80#p2399872

_________________
Зарада на интернету (Јесте, ја сам админ) :) Najbolji Forex brokeri
Čiča iz Rogače je napisao:
Kad pobjedimo Doboj ćemo nazvati Obren Vakuf,usprkos tebi i Vulićki
Vladimir RUS je napisao:
Na RTRS-u kazu 8000, a na Nezavisnim hiljade. :D
Dok je bilo uzivo, na RTRS-u i ATV-u nista. Zato ide live kada se otvara hidroelektrana od 42 miliona KM koja uz to zaposljava tj. bice uposleno 40-ak radnika. Milion KM po radnom mjestu.


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 12:11 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 28 Feb 2006, 02:36
Postovi: 2982
Besparica je napisao:
Ja?

Ma jok. Pitanje upuceno srednjoskolcu koji trazi nekog da mu uradi zadacu...

_________________
Popokatepetl je napisao:
...мени очи углавном служе да не упаднем у шахт ходајући улицом...


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 12:34 
OffLine
Bič božji
Bič božji
Korisnikov avatar

Pridružio se: 20 Jul 2009, 10:16
Postovi: 12660
Lokacija: Treći kamen od Sunca
jebote, sto nas u gimnaziji prije 10 godina nisu ucili na ovom nivou, sad bih bio zahvalniji. ovo su vec osnove regexa, a to nema pojma ni blizu da smo mi ucili, vrhunac je bio visedimenzionalni niz i cao.


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 13:10 
OffLine
Bič božji
Bič božji
Korisnikov avatar

Pridružio se: 05 Jun 2002, 08:33
Postovi: 10481
Lokacija: Banja Luka
izgledaju kao zadaci koje prof. Avramovic postavlja
onaj prvi sam ja imao kad sam polagao VB

_________________
Batmobil ti inace ima 5.7 litarski chevroletov V8 motor, koji ti ima ubrzanje do 100 za 5 sekundi. Ako uzmes u obzir da batmobil tezi preko dvije tone,to ti je zbilja fenomenalno. Al` dobro,dosta o mom autu, pricajmo malo o meni!


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 14:41 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 28 Feb 2006, 02:36
Postovi: 2982
giometar je napisao:
jebote, sto nas u gimnaziji prije 10 godina nisu ucili na ovom nivou, sad bih bio zahvalniji. ovo su vec osnove regexa, a to nema pojma ni blizu da smo mi ucili, vrhunac je bio visedimenzionalni niz i cao.

Ne vidim ja ovdje regex...?
1. nadji white space i broj karaktere do sledeceg. ponovi brojanje od sledeceg do narednog. ne zaboravi obraditi \t, \r, \n
2. ako je broj kongruentan sa nulom po modulu 2 (djeljiv sa dva, paran) onda ga saberi, inace preskoci na sledeci
3. ne kontam... prvi put cujem za rijec "podbroj"...
4. http://www.slideshare.net/Haripoter/dek ... vni-sistem

_________________
Popokatepetl je napisao:
...мени очи углавном служе да не упаднем у шахт ходајући улицом...


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 14:54 
OffLine
Bič božji
Bič božji
Korisnikov avatar

Pridružio se: 20 Jul 2009, 10:16
Postovi: 12660
Lokacija: Treći kamen od Sunca
u prvom napravis 4 paterna, za 1,2,3 ili 4 slova ogranicena vajtspejsom i sa svakim prodjes kroz string, povecavas brojace...


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 14:58 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 28 Feb 2006, 02:36
Postovi: 2982
Vidim ja kako se to moze rijesiti regex-om ali ne vidim potrebu za istim. U ovakvim slucajevima ga skoro uvijek izbjegavam zato sto je regex uvijek "skuplji" od direktnog pristupa (navika iz JSa). A pretpostavljam da je u pitanju srednjoskolac pa sumnjam da mu je neko spomenuo regularne izraze...

(postao sam k'o TNS, svakom loncu poklopac :lol: )

_________________
Popokatepetl je napisao:
...мени очи углавном служе да не упаднем у шахт ходајући улицом...


Vrh
 Profil  
 
PostPoslato: 17 Nov 2015, 15:45 
OffLine
Bič božji
Bič božji
Korisnikov avatar

Pridružio se: 20 Jul 2009, 10:16
Postovi: 12660
Lokacija: Treći kamen od Sunca
giometar je napisao:
u prvom napravis 4 paterna, za 1,2,3 ili 4 slova ogranicena vajtspejsom i sa svakim prodjes kroz string, povecavas brojace...

ili jeftinije, sa jednim paternom u jednom prolazu

Pattern pattern = Pattern.compile("[a-zA-Z]+");
Matcher matcher = pattern.matcher(text);

while(matcher.find()) {
if(matcher.group().length()==1)jednoSlovo++;
//i tako dalje do 4
}


Vrh
 Profil  
 
Prikaži postove u poslednjih:  Poređaj po  
Započni novu temu Odgovori na temu  [ 16 Posta ] 

Sva vremena su u UTC [ DST ]


Ko je OnLine

Korisnici koji su trenutno na forumu: Nema registrovanih korisnika i 3 gostiju


Ne možete postavljati nove teme u ovom forumu
Ne možete odgovarati na teme u ovom forumu
Ne možete monjati vaše postove u ovom forumu
Ne možete brisati vaše postove u ovom forumu
Ne možete slati prikačene fajlove u ovom forumu

Pronađi:
Idi na:  
Powered by phpBB® Forum Software © phpBB Group
Hosting BitLab
Prevod - www.CyberCom.rs