- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- Argos: Adjátok vissza a netet! - szeretnék elaludni!
- Autódiagnosztika: a gyakorlatban
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- laskr99: Processzor és videokártya szilícium mag fotók újratöltve!
- droidic: Időutazás floppyval: A 486-os visszavág PCem-men
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
Hirdetés
Új hozzászólás Aktív témák
-
tomi0829
csendes tag
válasz
tomi0829 #1752 üzenetére
Igen ebben igazad van.
Viszont ez a pár sor csak egy része egy nagyobb programnak, ami a végén sorba rendezi a talált sorszámokat illetve később szelektál. Az a gond, hogy a sorba rendezésnél megakadtam, pedig nagyon egyszerű lenne.
A lényeg, hogy van 2 tömb amiben vannak tárolt adatok.
masolander(I)
346
1096
5600
6826
8301
10205
11611
12035
13523
14663
15640Második tömb:
ker_hatar(l_j)
400
1150
9654Ezeket kellene rendeznie, úgy hogy a kapott érték ez legyen:
Eredmény
400
1150
6826
8301
9654
11611
12035
13523
14663
15640
16617I = 0
j = 0For I = 0 To talalat
If masolander(I + 1) < ker_hatar(j) Then
vegleges_hatar(I) = ker_hatar(j)
Cells(16 + I, 4) = I & ". " & vegleges_hatar(I) & " |" & ker_hatar(j) & " 1< " & masolander(I + 1)
j = j + 1Else
vegleges_hatar(I) = masolander(I + 1)
Cells(16 + I, 4) = I & ". " & vegleges_hatar(I) & " |" & ker_hatar(j) & " 2> " & masolander(I + 1)End If
Next
Nem tudom, hogy ebben mit rontottam el...
Új hozzászólás Aktív témák
- Battlefield 6
- exHWSW - Értünk mindenhez IS
- World of Tanks - MMO
- Nintendo Switch 2
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Suzuki topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Kecskemét és környéke adok-veszek-beszélgetek
- Sony Xperia 1 VII - Látod-e, esteledik
- CADA, Polymobil, és más építőkockák
- További aktív témák...
- HIBÁTLAN iPhone 14 256GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3092, 98% Akkumulátor
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- Új és újszerű 17.3" Gamer, irodai, üzleti készülékek nagyon kedvező alkalmi áron Garanciával!
- Xiaomi Redmi Note 13 Pro 256GB Kártyafüggetlen 1 év Garanciával
- Bomba ár! Fujitsu LifeBook U758 - i5-8GEN I 8GB I 256GB SSD I HDMI I 15,6" FHD I W11 I Garancia!
Állásajánlatok
Cég: FOTC
Város: Budapest