Miten tehdään visual basicillä sellainen ohjelma joka laskee kuinka monesti jokin tietty numero on esiintynyt vuosien aikana. Esimerkiksi otetaan numero 1 ja kuinka monesti tämä numero on esiintynyt vuosien aikana 2-39 numeron kanssa ja vertaily haetaan tekstitiedostosta ensin ja sen jälkeen tulos tulostetaan esim. lotto nimiseen tekstitiedostoon. Helppejä!
Visual basic
Jeppe
5541
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 5
Vanhimmat
Ei taida olla kyllin pystyvä ohjelmoijaa olemassa tähän hommaan. ei minusta ainakaan tähän ole.
Ei siihen tarvita kuin kaksi taulukkoa:
1) taulu(10000,7) johon tulee kullakin kierroksella tulleet 7 numeroa.
2) summa(37,37) johon tulee kunkin numeron kanssa esiintyneiden numeroiden summa
Sitten vaan silmukoita (n.5 kappaletta) joissa käydään läpi jokainen numero 1-37 [n]. Tutkitaan onko se rivillä. Jos on, lisätään jokainen muu samalla rivillä oleva numero [m] taulukkoon summa(n,m)
En nyt jaksa alkaa vääntää koodia.
No auta ees alkuun
Siinä on koko koodi - testattu ja toimivaksi havaittu (ainakin muutaman rivin datalla):
Dim t(10000, 7) As Integer, s(37, 37) As Integer
Open "data.txt" For Input As #1
i = 0
Do While Not EOF(1)
i = i 1
For j = 1 To 7
Input #1, t(i, j)
Next j
Loop
Close #1
n = i
For i = 1 To 37
For row = 1 To n
For j = 1 To 7
If (t(row, j) = i) Then
For k = 1 To 7
If (k j) Then s(i, t(row, k)) = s(i, t(row, k)) 1
Next k
End If
Next j
Next row
Next i
Tarviiko tuohon mitään lisätä, että se etsii jotkut halutut numerot tekstistä??