Matjazev.NET

Pozdravljeni, Imam naslednjo nalogo, ki je nikakor ne morem rešiti zato bi vas prosila če mi napišete kodo! In sicer naloga je sledeča: Sestavite funkcijo, ki poišče vse skrite podnize v nizu. Skriti nizi so tisti nizi, ki jih dobimo tako, da iz niza jemljemo vsako drugo ali vsako tretjo, četrto ......

Hvala za tako hiter odgovor!

Sem že provala in dela!

Tega nisem vedela kako to zapišeš v ta klic funkcije!!

Še enkrat najlepša hvala!
-------------------------------------------------------------------------
missy

Pozdravljeni, Mislim, da se nismo razumeli! Jaz bi rada podala tabelo kot argument in jo napolnila potem pri klicu te funkcije, ker tako zahteva naloga! Če napišem tako kot ste mi vi podali in kot sem tudi jaz že v moji fukciji zapisala potem je ta tabela, ki je podana znotraj te funkcije nekako fik...

Pozdravljeni, jaz sem to nalogo mal drugače rešila, in me dejansko zanima samo kako podam argument kot tabelo in kako potem to kličem!! Koda pa je sledeča: Function najdaljse() As String Dim zap As String t = Array("1", "2", "5", "3", "2", "6", "8", "12", "14", "7") Max = 0 st = 0 temp = 0 zap = "" ...

Pozdravljeni, Imam sledečo nalogo: Napišite funkcijo, ki kot argument sprejme tabelo 10 števil in poišče najdaljše naraščajoče podzaporedje. Napišite funkcijo tako, da kot rezultat vrne dolžino najdaljšega naraščajočega podzaporedja. pr 1 2 5 3 2 6 8 12 4 7 ----- rešitev je 2 6 8 12 Zanima me, kako ...

Pozdravljeni,

pogledala sem si kodo in mi je razumljiva, razen tega stevka:

NajdiDeljitelj stevilo/stevec


nisem še zasledila takega zapisa in ne vem kako naj ga razumem!


Lp, M.

Hvala.

Pozdravljeni, mi lahko pogledate kje v kodi imam napako, ker mi ne pravilno izpisuje, tko da je možno, da mi tudi nepravilno izračunava, čeprav se mi zdi, da pri nižjh številih dela ok!? Sub prastevilo() j = 107800 num = 0 i = 2 izpis = "" While i <= Sqr(j) If (j Mod i = 0) Then j = j / i num = num ...

Prosila bi vas če mi napišete rešitev, pa ne zato ker bi bila lena, ampak zato, ker mi ne gre!

Lp, missy.

Hvala.

Razumem kako naj zgleda algoritem, vendar tega ne znam zapisati!!

Mislim, da sem ostala na prazni točki! Ne znam naprej!

Hm,

mislim, da ne bo šlo!
Ne vem kako naj uporabim funkcijo instr!

Lp, missy.

Pozdravljeni, nekaj sem poskušala spacati skupaj, pa nimam velikega uspeha! Spodaj sem vam zapisala kodo, ki mi ne dela seveda, ker ne vem če sem sploh na pravi poti! Prosila bi vas če mi lahko malo pomagate! Sub preveri() niz1 = "aeiou" niz2 = "bcdfghjklmnprsštvzž" beseda = InputBox("Vnesi besedo z...

Pozdravljeni,

Prosila bi vas za pomoč pr nasledni nalogi!

Napiši funkcijo razcepi, ki razcepi dano število na praštevila in rezultat vrne kot niz.

Primer: 107800 mora vrniti 2^3 * 5^2 * 7^2 * 11

Lp, Missy.

Pozdravljeni, ponovno se vam oglašam in posim za pomoč pri naslednjem makroju! Napiši funkcijo, ki za dano besedo ugotovi, ali je sestavljena iz izmejujočih se soglasnikov in samoglasnikov. Beseda se sme začeti s soglasnikom ali soglasnikom. primer: beseda -ok funkcija- ni ok Hvala, Missy.

Pozdravljeni, spodaj sem prilepila kodo, vendar ne morem pogruntati zakaj mi ne dela! Tko, da bi prosila, če mi pogledate kje imam napako! Function moderno(ByVal beseda As String) As String tabela = Array("nic", "ena", "dva", "tri", "štiri", "pet", "šest", "sedem", "osem", "devet") tabela1 = Array("...

Pozdravljeni, najprej hvala za ime funkcije, ki sem jo rabila! Tko poskušala sem rešiti, vendar imam še vedno en problem, ker ne vem kako naj zapišem število k končnemu razultatu! Kar sem poskusila mi ni delovalo! Moja koda je sledeča: Sub zamenjajbrezstevil() Dim nasel As Variant Dim besedilo As St...