Új hozzászólás Aktív témák

• #18190 Mutt senior tag Tompkins #18176

  Új Válasz 2013-05-30 20:17:20 #18190

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz Tompkins #18176 üzenetére

  Szia,

  A tükörszámos feladványra az én megoldásomat innen tudod letölteni.

  Nem UDF-el, hanem a SZORZATÖSSZEG függvénnyel állítom elő a tükörképet és utána már csak
  simán összeadás és összehasonlítások vannak benne.

  A tükörkép képlete ami összetett egyedül (A2-ben van az eredeti szám):
  =SZORZATÖSSZEG(KÖZÉP(A2;1+HOSSZ(A2)-SOR(A$1:INDIREKT("A"&HOSSZ(A2)));1)*10^(HOSSZ(A2)-SOR(A$1:INDIREKT("A"&HOSSZ(A2)))))

  Ez a képlet 2 részből áll:
  - az első része a számot egy karakter hosszúságra bontja és megfordítja, tehát pl. a 1766-ból a {6;6;7;1}
  tömböt adja vissza. A fordítás egyszerűen úgy műkődik hogy hátulról kezdem el olvasni a karaktereket.
  - a második része (10^HOSSZ...) pedig a helyiértéknek megfelelő szorzószámot állítja elő, vagyis {10^3;10^2;10^1;10^0}.

  A többit a szorzatösszeg magától teszi vagyis a számokat összeszorozza (6*1000+6*100+7*10+1*1).

  A tükörszám ismeretében már lehet számolni az összegét az eredetinek és tükrének (C-oszlop), majd a kapott számot tükrözni (D-oszlop). A két számot összehasonlítva pedig lehet eldönteni, hogy kell-e további tükrözéseket végrehajtani (E-oszlopban 1-et íratok ha kell, 0-t ha már nem). Az E-oszlopban lévő ciklusok száma megadja, hogy hányszor tükröztünk. Max. 300 tükrözést hajt végre a fájlom, de ha többet akarsz akkor másold le a képleteket.

  

  üdv.

• #18187 Delila_1 veterán Tompkins #18176

  Új Válasz 2013-05-30 08:39:49 #18187

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Tompkins #18176 üzenetére

  Megnéztem lépésenként. Mikor a 97-es értéknél az összeg 14003, ennek a hosszát 4-nek értékeli a tükrözésnél, ezért a tükörképét 41-nek hozza ki. A

  For b = Len(osszeg) To 1 Step -1

  sort (Do-Loop cikluson belül) megváltoztattam,

  For b = Len(osszeg & "") To 1 Step -1

  lett, így hozza a 6 db-os értéket. 395-nél és 584-nél 7 az érték.

  Az

  If Len(szam1) = 0 Then Tukroz = 0: GoTo Vege

  sorban is a stringgé alakított forma hosszától indítom a ciklust:

  If Len(szam1 & "") = 0 Then Tukroz = 0: GoTo Vege

• #18175 Delila_1 veterán Tompkins #18164

  Új Válasz 2013-05-29 18:25:39 #18175

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Tompkins #18164 üzenetére

  Közben sok számmal kipróbáltam. Vannak olyanok, ahol vagy egyáltalán nincs megoldás, vagy túl nagy az eredmény. A dimenzionálásnál az Integer-ek helyére Long-ot írtam, és megadtam egy határt (1000), ami után ne számoljon tovább, hanem írjon ki egy szöveget. Ezt a jelölt sorban módosíthatod a türelmednek megfelelően.

  Function Tukroz(szam As Long)
  Dim ford, b As Long, darab As Long, osszeg As Long, szam1 As Long
  szam1 = szam
  If Len(szam1) = 0 Then Tukroz = 0: GoTo Vege
  For b = Len(szam1) To 1 Step -1
  ford = ford & Mid(szam, b, 1)
  Next
  If szam = ford * 1 Then
  Tukroz = 0: GoTo Vege
  Else
  Do
  osszeg = szam1 + ford
  ford = ""
  darab = darab + 1
  If darab > 1000 Then 'Itt módosíthatsz
  Tukroz = "Nincs megoldás, vagy 1000-nél nagyobb": GoTo Vege
  Else
  For b = Len(osszeg) To 1 Step -1
  ford = ford & Mid(osszeg, b, 1)
  Next
  szam1 = osszeg
  If szam1 = ford * 1 Then
  Tukroz = darab: GoTo Vege
  End If
  End If
  Loop While szam1 <> ford * 1
  End If
  Tukroz = darab
  
  Vege:
  End Function

• #18174 Delila_1 veterán Tompkins #18164

  Új Válasz 2013-05-29 17:39:22 #18174

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Tompkins #18164 üzenetére

  Írtam egy funkciót rá, de csak az általad megadott számokkal ellenőriztem. Azokkal OK.

  Function Tukroz(szam As Integer)
  Dim ford, b As Integer, darab As Integer, osszeg As Long, szam1 As Long
  szam1 = szam
  If Len(szam1) = 0 Then Tukroz = 0: GoTo Vege
  For b = Len(szam1) To 1 Step -1
  ford = ford & Mid(szam, b, 1)
  Next
  If szam = ford * 1 Then
  Tukroz = 0: GoTo Vege
  Else
  Do
  osszeg = szam1 + ford
  ford = ""
  darab = darab + 1
  For b = Len(osszeg) To 1 Step -1
  ford = ford & Mid(osszeg, b, 1)
  Next
  szam1 = osszeg
  If szam1 = ford * 1 Then
  Tukroz = darab: GoTo Vege
  End If
  Loop While szam1 <> ford * 1
  End If
  Tukroz = darab
  
  Vege:
  End Function

• #18161 Delila_1 veterán Tompkins #18160

  Új Válasz 2013-05-28 16:17:38 #18161

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Tompkins #18160 üzenetére

  Bemutathatnád egy példával, hogy milyen adattal mit is akarsz elérni!

Új hozzászólás Aktív témák