Esercizio 16 Palindromi | Excel e gli applicativi Office

Esercizio 16 Palindromi

Hai un problema con Excel?

Nuova discussione

Esercizio 16: Palindromi
di Luca73 data: 26/08/2015 10:49:32
Ciao
Ci riprovo con un esercizietto riguardante le stringhe palindrome.
Innanzitutto la definizione di Palindromo: Stringa (parola, frase, numero o combinazione di caratteri) che letta da sinistra a destra è uguale a leggerla al viceversa (es.: osso, 12321, as15://:51sa) Faccio notare la differenza tra i palindromi con numero di caratteri pari (123321) e quelli con numero di caratteri dispari (1234321)
PROBLEMA:
Data una stringa (che ipotizziamo max 20 caratteri) in B1
1) Definire se essa è palindroma (VERO/FALSO in B2)
2) Scrivere in B3 la parola al rovescio (ovvero da destra a sinistra)
4) scrivere in B4 la stringa e il suo rovescio (che ho definito palindromo massimo).
3) Scivere in B5 la minima stringa palindroma avente come inizio la stringa data (attenzione che se la stringa fosse del tipo 123454 il suo minimo palindromo è 123454321)

Nel File allegato vi sono altri esempi esplicativi.

Vale tutto: formule, Mega formule, celle di appoggio, VBA.....

Per Gli utenti esperti (reali e fittizi come me ) ri chiede gentilmente di aspettare il "VIA" da parte del moderatore.

A disposizione per qualsiasi ulteriore informazione e/o chiarimento

Ciao a tutti
Luca

Nuovo aggiornamento della discussione
di Vecchio Frac data: 26/08/2015 13:59:25
Scusa, ma nel tuo file di esempio le celle H4 e H5 non si possono leggere senza sorridere ^_^
di totygno71 data: 26/08/2015 14:07:48
LucacuL è bellissimo ^_^

di scossa data: 26/08/2015 14:54:03
cit.: "attenzione che se la stringa fosse del tipo 123454 il suo minimo palindromo è 123454321"

Ciao,

mi sembra che nel file il palindromo massimo e minimo di Luca e a12321 siano invertiti o sbaglio?

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
(George Bernard Shaw)

di scossa data: 28/08/2015 10:08:03
Allego la mia soluzione con UDF
Esercizio_16_scossa_udf.xlsm

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
(George Bernard Shaw)

di scossa data: 28/08/2015 10:15:49
@Luca73: ma tu hai anche una soluzione *solo formule*?

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw)

di scossa data: 28/08/2015 10:57:56
cit.: "Vedo se si può svolgere con le formule. Ma la vedo dura..."

Lato solo formule la parte più difficile, o perlomeno non "dinamicizzabile", è - almeno per me - il reverse della stringa.
Infatti l'ho risolta con una formula che - per scelta - funziona per stringhe fino a 10 caratteri, ma nulla vieta di allungarla a piacere (fino ai limiti di lunghezza di una formula in una cella).

Tutto perché in MS non hanno mai pensato di modificare la funzione CONCATENA() per farle accettare anche un intervallo anziché singole celle/stringhe.

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw)

di scossa data: 28/08/2015 13:36:41
cit. Raffaele: "Posso vedere >>> una formula che - per scelta - funziona per stringhe fino a 10 caratteri"
vedi sotto.

Comunque allego il file della soluzione solo formule, senza celle di appoggio né uso di nomi
Esercizio_16_scossa_formule.xlsx

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw)

=SE(B2;B1;SE(LUNGHEZZA(B1)<1;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1);1))&SE(LUNGHEZZA(B1)<2;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1)-1;1))&SE(LUNGHEZZA(B1)<3;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1)-2;1))&SE(LUNGHEZZA(B1)<4;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1)-3;1))&SE(LUNGHEZZA(B1)<5;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1)-4;1))&SE(LUNGHEZZA(B1)<6;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1)-5;1))&SE(LUNGHEZZA(B1)<7;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1)-6;1))&SE(LUNGHEZZA(B1)<8;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1)-7;1))&SE(LUNGHEZZA(B1)<9;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1)-8;1))&SE(LUNGHEZZA(B1)<10;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1)-9;1))&SE(LUNGHEZZA(B1)<11;"";STRINGA.ESTRAI(B1;LUNGHEZZA(B1)-10;1)))

di scossa data: 28/08/2015 21:45:40
cit.isy: "Mi son permesso di modificare il file di scossa e chiedo scusa per questo."

E di che?
Se fossi geloso delle "mie" formule non le condividerei e non avrei allegato il file

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
(George Bernard Shaw)

di scossa data: 28/08/2015 22:03:49
cit.: "Ho sostituito la formula in B2 e chiedo se questa formula è corretta anche con testi di pochi caratteri."

Premesso che la mia in B2 l'ho inserita come matriciale ma è sufficiente confermarla col semplice invio, la tua formula mi pare funzionare correttamente, anche se non la trovo "vantaggiosa" rispetto alla mia.

Riguardo alla formula per il reverse, la mia ha tutti quei SE che in effetti non sono necessari.
La tua invee mi pare sintatticamente sbagliata (ci sono degli spazi tra una funzione e l'altra ...)

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
(George Bernard Shaw)

di isy data: 28/08/2015 23:02:08
Ciao scossa
Cit: La tua invece mi pare sintatticamente sbagliata (ci sono degli spazi tra una funzione e l'altra ...)

Non sono spazi ma sono: Indenting Formulas
In pratica utilizzo Alt+Invio per spezzare la formula su più righe

Vedi: h t t p://www.technicana.com/more-information/poll/204.html

di scossa data: 28/08/2015 23:36:25
cit.: "Non sono spazi ma sono: Indenting Formulas"

Resta il fatto che nella tua formula, giusto partendo dall'inizio, tra queste funzioni:
=LUNGHEZZA(B1) DESTRA(B1;1) DESTRA(B1;1) .........
c'è uno spazio (ASCII 32) e se provo ad editarla ottengo (giustamente) un messaggio di errore.

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
(George Bernard Shaw)

di isy data: 29/08/2015 00:00:26
Ciao

VERO

Ho provato a modificare per prova la formula inserendo & in sostituzione degli spazi iniziali
Per prova ho tagliato la formula vedi:

Ora se inserisco il valore 123456
Mi riporta erroneamente: 6661621632164321654321

Solo una breve prova

=LUNGHEZZA(F4)&DESTRA(F4;1)&DESTRA(F4;1)&STRINGA.ESTRAI(F4;1;1)&DESTRA(F4;1)&STRINGA.ESTRAI(F4;2;1)&SINISTRA(F4;1)&DESTRA(F4;1)&
STRINGA.ESTRAI(F4;3;1)&STRINGA.ESTRAI(F4;2;1)&SINISTRA(F4;1)&DESTRA(F4;1)&STRINGA.ESTRAI(F4;4;1)&STRINGA.ESTRAI(F4;3;1)&STRINGA.ESTRAI(F4;2;1)
&SINISTRA(F4;1)&DESTRA(F4;1)&STRINGA.ESTRAI(F4;5;1)&STRINGA.ESTRAI(F4;4;1)&STRINGA.ESTRAI(F4;3;1)&STRINGA.ESTRAI(F4;2;1)&SINISTRA(F4;1)

di Raffaele_53 data: 29/08/2015 03:24:52
@ISY
>>>chiedo se questa formula è corretta anche con testi di pochi caratteri.
Funziona, però la mia è più corta. Post >>>data: 28/08/2015 15:10:46
Anche in B2=E(TESTO(B1;"standard")=B3)

La Formula di scossa in B5 è fantastica, purtroppo non riesco a capirla.

Per mia soddisfazione personale, vorrei provare...DESTRA(B1;1)=SINISTRA(B3;1)
Qualsiasi valore si mette ex in B1=13531. Destra(B1) e Sinistra(B3) saranno uguali. Se inserite la formula del (28/08/2015 15:10:46) e premete il tasto inserisci funzione. Noterete che la Matrice 2,3,4 = FALSO. Ora cambiando MATR.SOMMA.PRODOTTO e usando (non saprei quale) ottenere una stringa tipo... Vero,Falso,Falso,Falso,Vero,Vero,Vero ecc ecc e magari con un Max trovare in quale posizione sia l'ultimo Falso?

EDIT Troppo lunga con SOMMA, mà non conoscendo esattamente l'ultimo Falso è insicura. Grazie lo stesso

Sub crea_formula()
Dim x, str1, str2, n
For x = 100 To 1 Step -1
str2 = str2 & "STRINGA.ESTRAI(B1;" & x & ";1)&"
Next x
str2 = Left(str2, Len(str2) - 1)
Cells(3, 2) = str2
MsgBox "aggiungere il segno UGUALE in B3"
End Sub

di scossa data: 29/08/2015 10:08:45
cit.: "La Formula di scossa in B5 è fantastica, purtroppo non riesco a capirla."

Cerco di spiegarla con questa immagine:

In pratica la formula confronta la stringa la stringa "dritta" con la stringa "rovescia" prendendo sempre meno caratteri rispettivamente a destra ed a sinistra:

{"23454"."3454"."454"."54"."4".""}
{"45432"."4543"."454"."45"."4".""}

dopo di che cerca la posizione del primo VERO

{FALSO.FALSO.VERO.FALSO.VERO.VERO}

che corrisponde alla posizione in cui le due stringhe "combaciano". Quindi alla stringa "dritta" aggiunge i caratteri di quella "rovescia" esclusi quelli che combaciano

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.(George Bernard Shaw)

di scossa data: 31/08/2015 14:02:51
cit.: "12345467891234567 excel trasforma in 12345467891234500 (scritto poi come 1.23455E16)"

mi sembra un falso problema, nel senso che basta formattare la cella B1 come "testo" anziché come "generale" ed il problema non si pone.

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
(George Bernard Shaw)

di scossa data: 03/09/2015 14:40:14
cit.: "Nominerei per il prossimo esercizio totygno71"

bene! Bravo Totygno!

Ora vedi di proporre un esercizio per tenerci occupati nel weekend

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
(George Bernard Shaw)

di totygno71 data: 03/09/2015 14:45:25
Grazie Luca
anche se a dire il vero speravo proprio di "non essere nominato" ^__^

cit"Ora vedi di proporre un esercizio per tenerci occupati nel weekend
Se non hai nulla di meglio da fare nel we vengo a prenderti e mi dai una mano a tinteggiare casa

di scossa data: 03/09/2015 14:50:19
cit.: "Se non hai nulla di meglio da fare nel we vengo a prenderti e mi dai una mano a tinteggiare casa"

Seeeee .. devo tassellare al muro di cemento del garage 4 cremagliere su cui fissare delle mensole, devo saldare una struttura in tubolare quadro da 2 mm, devo tagliare l'erba in giardino ..... penso che passerò io a prendere te!

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee.
(George Bernard Shaw)

Vuoi Approfondire?