PC-HELP.CZ

Ahoj,
Náhodou se mi pod rku dostaly 2 ulohy z VB 2010 a potřebovyl bych navést na správnou cestu.

Zadani1:
Sestavte program, který vygeneruje posloupnost náhodných čísel od jedné do dvaceti. Počet čísel zadejte jako vstupní hodnotu do textboxu. Vygenerovaná čísla zapište do labelu. Založte si další textbox, do kterého zadejte číslo, které chcete v posloupnosti najít. Po zadaní a potvrzení (tlačítkem) se do dalšího labelu zapíše kolikrát se hledané číslo v posloupnosti vyskytuje. (Př.: Posloupnost:12, 7, 3, 9, 7, 2, 7, 10, 4 Hledané číslo: 7, výstup: 3 krát Zadáme-li Hledané číslo: 5, Výstup: 0 krát)
Zadani2:
Sestavte program, který vygeneruje posloupnost náhodných čísel od jedné do padesáti. Počet čísel zadejte jako vstupní hodnotu do textboxu. Vygenerovaná čísla zapište do labelu. V posloupnosti vygenerovaných čísel najděte takovou pětici čísel, která má největší součet a zapište ji do druhého labelu.

V obou zadáních je stejný začátek(vygenerování řady čísel) a to dokážu, ale konce u obu zadání si s koncem nevím rady. Jsem si témeř jistý že se oba konce budou řešit cykly, ale opravdu nevím jak....pomůže mi prosíím někdo?

Předem děkuji :-)

Neumím sice VB2010, ale první případ bych řešil takto:
'vstup => zadaný počet počet čísel
'gen() => pole generovaných čísel
num = Inputbox(hledané číslo)
n = 0
For i = 0 To vstup - 1
If gen(i) = num Then n=n+1
Next
MsgBox "Hledané číslo nalezeno celkem " & n & " krát."
Snad tě to navede.

ou...tak to mi trošku nic neříká

tak to asi opravdu neznáš visual basic
co už máš a co ti nefunguje?
tady asi nikdo nebude řešit nějaký domácí úlohy typu napiš a dík

jahoda111 píše:Ahoj,
Náhodou se mi pod rku dostaly 2 ulohy z VB 2010

Spis : Nahodou nam kdosi zadal 2 ulohy z VB 2010

Ta první úloha je triviální, skoro bych řekl směšně jednoduchá. Máš vygenerovanou posloupnost, uloženou v nějakém poli, a tu prostě cyklem projdeš od prvního do posledního prvku a spočítáš kolikrát se shodneš s hledaným číslem:

IF cislo=pole(i) THEN pocitadlo=pocitadlo+1

Nevím jak přesně by to vypadalo ve VB, tohle by fungovalo ve starém QB.

Druhá je trochu těžší, tam musíš postupně sesčítat pětice sousedních čísel, a porovnat s nalezeným maximem. To si na začátku nastavíš jednoduše tak, že sečteš prvních pět a ukazatel nastavíš na páté číslo. Potom jedeš v cyklu od pátého nebo šestého prvku zase až do konce a součty pětic porovnáváš s tím maximem, když je součet větší, tak ho opíšeš do maxima a ukazatel nastavíš na aktuální číslo. A po skončení toho cyklu máš ukazatel na poslední číslo největší pětice. Akorát bacha že takových tam může být víc a ty najdeš jen jednu!