Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Quesito 44

29 views
Skip to first unread message

Andrea.9

unread,
Jan 26, 2012, 8:01:55 PM1/26/12
to
Visto che (H)Eliano latita .....
Per approfondire:
https://sites.google.com/site/e90e50/documento-plinius/quizzone-di-excel
---------------------------------------------------------------------------
il quesito:
come noto esistono funzioni per convertire numeri decimali in binario
e romano ma queste hanno dei limiti:
=DECIMALE.BINARIO(A2;9) non converte numeri maggiori di 511
=ROMANO(A2;0) non converte numeri superiori a 3999
proviamo a sostituire e se possibile migliorare queste funzioni.
Quesito A:
per DECIMALE.BINARIO si desidera una formula che possa restituire
(senza appoggi o nomi) un numero binario di 16 bit e cioè in grado di
convertire 131171=2^17-1=1111111111111111
io sono riuscito con lunghezza 351 ma si puo' sicuramente di meglio
Quesito B:
per ROMANO si desidera una formula per replicare la funzione (in
questo caso sono concessi nomi e/o appoggi)
io sono riuscito con 3 nomi (24+23+19) e una formula (379) ma si puo'
sicuramente di meglio
nota bene:
per il calcolo delle lunghezze (per questa volta) i nomi utilizzati
saranno sommati una sola volta anche se usati nella formula piu' volte
ad esempio nel mio caso 24+23+19+379=445
punteggi:
3 punti prima risposa quesito A
3 punti risposta breve quesito A
3 punti prima risposa quesito B
3 punti risposta breve quesito B
prossimo quesito alla prima risposta valida di A o B

pronti, ai posti, via
ciao
andrea

Scossa

unread,
Jan 27, 2012, 8:14:48 AM1/27/12
to
On 27 Gen, 02:01, "Andrea.9" <a.novelli-...@dappolonia.it> wrote:
>
> pronti, ai posti, via

Ma una soluzione in VBA no eh?

Bye!
scossa

Scossa

unread,
Jan 27, 2012, 8:30:16 AM1/27/12
to
On 27 Gen, 02:01, "Andrea.9" <a.novelli-...@dappolonia.it> wrote:
> per DECIMALE.BINARIO si desidera una formula che possa restituire
> (senza appoggi o nomi) un numero binario di 16 bit e cioè in grado di
> convertire 131171=2^17-1=1111111111111111

Non mi quadrano i conti o meglio i bit:
forse intendi 131071

Andrea.9

unread,
Jan 27, 2012, 10:13:01 AM1/27/12
to
> > convertire 131171=2^17-1=1111111111111111
>
> Non mi quadrano i conti o meglio i bit:
> forse intendi 131071

si ho scritto male (per un 1 di troppo)
pardon
ciao
andrea

Scossa

unread,
Jan 27, 2012, 10:52:37 AM1/27/12
to
La prima (351):
=RESTO(B6;2) & RESTO(INT(B6/2);2)&RESTO(INT(B6/4);2)&RESTO(INT(B6/8);
2)&RESTO(INT(B6/18);2)&RESTO(INT(B6/32);2)&RESTO(INT(B6/64);
2)&RESTO(INT(B6/128);2)&RESTO(INT(B6/256);2)&RESTO(INT(B6/512);
2)&RESTO(INT(B6/1024);2)&RESTO(INT(B6/2048);2)&RESTO(INT(B6/4096);
2)&RESTO(INT(B6/8192);2)&RESTO(INT(B6/16384);2)&RESTO(INT(B6/32768);
2)&RESTO(INT(B6/65536);2)

Più breve (348):
=RESTO(B1;2) & RESTO(INT(B1/2);2)&RESTO(INT(B1/4);2)&RESTO(INT(B1/8);
2)&RESTO(INT(B1/18);2)&RESTO(INT(B1/32);2)&RESTO(INT(B1/64);
2)&RESTO(INT(B1/2^7);2)&RESTO(INT(B1/2^8);2)&RESTO(INT(B1/2^9);
2)&RESTO(INT(B1/2^10);2)&RESTO(INT(B1/2^11);2)&RESTO(INT(B1/2^12);
2)&RESTO(INT(B1/2^13);2)&RESTO(INT(B1/2^14);2)&RESTO(INT(B1/2^15);
2)&RESTO(INT(B1/2^16);2)

Ammammata

unread,
Jan 27, 2012, 11:27:23 AM1/27/12
to
Il giorno Fri 27 Jan 2012 04:52:37p, *Scossa* inviava su
microsoft.public.it.office.excel il messaggio news:0c0bece7-36fa-47bb-8474-
bc7aad...@j42g2000vbt.googlegroups.com. Vediamo cosa scrisse:

>
> La prima (351):
> =RESTO(B6;2) & RESTO(INT(B6/2);2)&RESTO(INT(B6/4);2)&RESTO(INT(B6/8);
> 2)&RESTO(INT(B6/18);2)&RESTO(INT(B6/32);2)&RESTO(INT(B6/64);
------------------^^
> 2)&RESTO(INT(B6/128);2)&RESTO(INT(B6/256);2)&RESTO(INT(B6/512);
> 2)&RESTO(INT(B6/1024);2)&RESTO(INT(B6/2048);2)&RESTO(INT(B6/4096);
> 2)&RESTO(INT(B6/8192);2)&RESTO(INT(B6/16384);2)&RESTO(INT(B6/32768);
> 2)&RESTO(INT(B6/65536);2)
>
> Più breve (348):
> =RESTO(B1;2) & RESTO(INT(B1/2);2)&RESTO(INT(B1/4);2)&RESTO(INT(B1/8);
> 2)&RESTO(INT(B1/18);2)&RESTO(INT(B1/32);2)&RESTO(INT(B1/64);
------------------^^
> 2)&RESTO(INT(B1/2^7);2)&RESTO(INT(B1/2^8);2)&RESTO(INT(B1/2^9);
> 2)&RESTO(INT(B1/2^10);2)&RESTO(INT(B1/2^11);2)&RESTO(INT(B1/2^12);
> 2)&RESTO(INT(B1/2^13);2)&RESTO(INT(B1/2^14);2)&RESTO(INT(B1/2^15);
> 2)&RESTO(INT(B1/2^16);2)
>
>



--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>> http://www.bb2002.it :) <<<<<
........... [ al lavoro ] ...........

plinius

unread,
Jan 27, 2012, 11:56:37 AM1/27/12
to

"Andrea.9" <a.nove...@dappolonia.it> ha scritto nel messaggio
news:cf851fe2-6f20-4dbc...@j42g2000vbt.googlegroups.com...
Visto che (H)Eliano latita .....
Per approfondire:
https://sites.google.com/site/e90e50/documento-plinius/quizzone-di-excel
---------------------------------------------------------------------------
il quesito:
come noto esistono funzioni per convertire numeri decimali in binario
e romano ma queste hanno dei limiti:
=DECIMALE.BINARIO(A2;9) non converte numeri maggiori di 511
=ROMANO(A2;0) non converte numeri superiori a 3999
proviamo a sostituire e se possibile migliorare queste funzioni.
Quesito A:
per DECIMALE.BINARIO si desidera una formula che possa restituire
(senza appoggi o nomi) un numero binario di 16 bit e cioč in grado di
convertire 131171=2^17-1=1111111111111111
io sono riuscito con lunghezza 351 ma si puo' sicuramente di meglio
Quesito B:
per ROMANO si desidera una formula per replicare la funzione (in
questo caso sono concessi nomi e/o appoggi)
io sono riuscito con 3 nomi (24+23+19) e una formula (379) ma si puo'
sicuramente di meglio
nota bene:
per il calcolo delle lunghezze (per questa volta) i nomi utilizzati
saranno sommati una sola volta anche se usati nella formula piu' volte
ad esempio nel mio caso 24+23+19+379=445
punteggi:
3 punti prima risposa quesito A
3 punti risposta breve quesito A
3 punti prima risposa quesito B
3 punti risposta breve quesito B
prossimo quesito alla prima risposta valida di A o B

pronti, ai posti, via
ciao
andrea

********************************

In A1 il numero da convertire in binario

nomi:
a =17-RIF.RIGA(Foglio1!$1:$17)
z =RESTO(INT(Foglio1!A1/2^a);2)*(17-a)

In B1:
=DESTRA("00000000"&SOMMA(SE(VAL.ERRORE(CONFRONTA(RIF.RIGA($1:$8);z;));0;10^(8-RIF.RIGA($1:$8))));8)&DESTRA("00000000"&SOMMA(SE(VAL.ERRORE(CONFRONTA(RIF.RIGA($9:$17);z;));0;10^(17-RIF.RIGA($9:$17))));8)

[28 + 36 + 201 = 265]

Ciao,
Enrico


Scossa

unread,
Jan 27, 2012, 12:38:09 PM1/27/12
to
On 27 Gen, 17:56, "plinius" <punto.linea...@LEVARElibero.it> wrote:
> "Andrea.9" <a.novelli-...@dappolonia.it> ha scritto nel messaggionews:cf851fe2-6f20-4dbc...@j42g2000vbt.googlegroups.com...
> Visto che (H)Eliano latita .....
> Per approfondire:https://sites.google.com/site/e90e50/documento-plinius/quizzone-di-excel
> ---------------------------------------------------------------------------
> il quesito:
> come noto esistono funzioni per convertire numeri decimali in binario
> e romano ma queste hanno dei limiti:
> =DECIMALE.BINARIO(A2;9) non converte numeri maggiori di 511
> =ROMANO(A2;0) non converte numeri superiori a 3999
> proviamo a sostituire e se possibile migliorare queste funzioni.
> Quesito A:
> per DECIMALE.BINARIO si desidera una formula che possa restituire
> (senza appoggi o nomi) un numero binario di 16 bit e cioè in grado di
Plinius!! NON BARARE !! :-))))

> per DECIMALE.BINARIO si desidera una formula che possa restituire
> (senza appoggi o nomi)


Bye!
scossa

Scossa

unread,
Jan 27, 2012, 12:39:33 PM1/27/12
to
On 27 Gen, 17:27, Ammammata <ammamm...@tiscalinet.it> wrote:
> > Più breve (348):
> > =RESTO(B1;2) & RESTO(INT(B1/2);2)&RESTO(INT(B1/4);2)&RESTO(INT(B1/8);
> > 2)&RESTO(INT(B1/18);2)&RESTO(INT(B1/32);2)&RESTO(INT(B1/64);
>
> ------------------^^
>
> > 2)&RESTO(INT(B1/2^7);2)&RESTO(INT(B1/2^8);2)&RESTO(INT(B1/2^9);
> > 2)&RESTO(INT(B1/2^10);2)&RESTO(INT(B1/2^11);2)&RESTO(INT(B1/2^12);
> > 2)&RESTO(INT(B1/2^13);2)&RESTO(INT(B1/2^14);2)&RESTO(INT(B1/2^15);
> > 2)&RESTO(INT(B1/2^16);2)
>


Non ho capito il tuo post,
se no per evidenziare che ho incollato du e formule che fanno
riferimento a celle diverse ma entrambe funzionanti.

Bye!

Andrea.9

unread,
Jan 27, 2012, 12:41:46 PM1/27/12
to
> La prima (351):
> =RESTO(B6;2) & RESTO(INT(B6/2);2)&RESTO(INT(B6/4);2)&RESTO(INT(B6/8);
> 2)&RESTO(INT(B6/18);2)&RESTO(INT(B6/32);2)&RESTO(INT(B6/64);
> 2)&RESTO(INT(B6/128);2)&RESTO(INT(B6/256);2)&RESTO(INT(B6/512);
> 2)&RESTO(INT(B6/1024);2)&RESTO(INT(B6/2048);2)&RESTO(INT(B6/4096);
> 2)&RESTO(INT(B6/8192);2)&RESTO(INT(B6/16384);2)&RESTO(INT(B6/32768);
> 2)&RESTO(INT(B6/65536);2)
>
> Più breve (348):
> =RESTO(B1;2) & RESTO(INT(B1/2);2)&RESTO(INT(B1/4);2)&RESTO(INT(B1/8);
> 2)&RESTO(INT(B1/18);2)&RESTO(INT(B1/32);2)&RESTO(INT(B1/64);
> 2)&RESTO(INT(B1/2^7);2)&RESTO(INT(B1/2^8);2)&RESTO(INT(B1/2^9);
> 2)&RESTO(INT(B1/2^10);2)&RESTO(INT(B1/2^11);2)&RESTO(INT(B1/2^12);
> 2)&RESTO(INT(B1/2^13);2)&RESTO(INT(B1/2^14);2)&RESTO(INT(B1/2^15);
> 2)&RESTO(INT(B1/2^16);2)

sarebbero giuste ma sono speculari per cui non possono essere
considerate valide.
mi dispiace
andrea

Scossa

unread,
Jan 27, 2012, 12:46:44 PM1/27/12
to
Non ho capito: cosa significa sono speculari?
e cosa significa non possono essere considerate valide: al momento
sono l'unica risposta che hai avuto, quindi come priima risposta mi
sembra che valga; poi per la più breve, visto che vale togliere un $ o
una coppia di () perchè non dovrebbe valere sostiruire 65536 con
2^16??

Bye!
scossa

Andrea.9

unread,
Jan 27, 2012, 12:57:09 PM1/27/12
to
volevo dire che, ad esempio, il numero decimale 500 lo converti in
00101111100000000 anziche' in 0000000111110100.
cioè i due numeri binari sono speculari (rovesciati destra sinistra -
sinistra destra)
inoltre il tuo binario e' di 17 cifre e dovrebbe essere di 16 cifre.
ti prego non mi fulminare :-)))
ciao
andrea

Andrea.9

unread,
Jan 27, 2012, 1:00:43 PM1/27/12
to
> > [28 + 36 + 201 = 265]
>
> Plinius!! NON BARARE !! :-))))
>
> > per DECIMALE.BINARIO si desidera una formula che possa restituire
> > (senza appoggi o nomi)
>
> Bye!
> scossa

scossa ha ragione!!!
enrico: no buone
(inoltre mi da un errore con 256 non so se per colpa mia o se lo fa
anche a te)
ciao
andrea

Scossa

unread,
Jan 27, 2012, 1:21:13 PM1/27/12
to
scusa ma tu hai scritto 2^17:
>in grado di convertire 131171=2^17-1=1111111111111111

Quindi basta invetire i vari concatenamenti e si raddrizza, inoltre se
tolgo un bit diventa ancora più corta :-)

Vabbeh! fa lo stesso, per qusta volta non ti fulmino :-)

Andrea.9

unread,
Jan 27, 2012, 1:26:30 PM1/27/12
to
> Vabbeh! fa lo stesso, per qusta volta non ti fulmino :-)

ah, meno male ora sono un po' piu' sollevato. ^__^
aggiustala che sei in tempo :-)
ciao
andrea

Andrea.9

unread,
Jan 27, 2012, 1:04:53 PM1/27/12
to
> Non ho capito il tuo post,

nemmeno io .....
ciao
andrea

Scossa

unread,
Jan 27, 2012, 1:49:38 PM1/27/12
to
324 caratterri:

=RESTO(INT(B1/2^15);2)&RESTO(INT(B1/2^14);2)&RESTO(INT(B1/2^13);
2)&RESTO(INT(B1/2^12);2)&RESTO(INT(B1/2^11);2)&RESTO(INT(B1/2^10);
2)&RESTO(INT(B1/2^9);2)&RESTO(INT(B1/2^8);2)&RESTO(INT(B1/2^7);
2)&RESTO(INT(B1/64);2)&RESTO(INT(B1/32);2)&RESTO(INT(B1/18);
2)&RESTO(INT(B1/8);2)&RESTO(INT(B1/4);2)&RESTO(INT(B1/2);
2)&RESTO(B1;2)

Bye!
scossa

plinius

unread,
Jan 27, 2012, 4:11:09 PM1/27/12
to

"Andrea.9" <a.nove...@dappolonia.it> ha scritto nel messaggio
news:4bae1044-37aa-4b10...@n6g2000vbz.googlegroups.com...
S�, in effetti mi era sfguggito che non si dovevano usare nomi e, in pi�, mi
sono anche incasinato pensando (senza riflettere abbastanza) che il numero
binario dovesse avere 16 cifre... piuttosto che 17.

Insomma tutto da rifare!

=DESTRA(RIPETI("0";15)&SOMMA(RESTO(INT(A1/2^(18-RIF.RIGA(2:16)));2)*10^(16-RIF.RIGA(2:16)));15)&RESTO(INT(A1/2);2)&RESTO(A1;2)

Questa � da 126 e mi pare che vada bene.

Ricavo i primi 15 caratteri usando la somma (fino a 15 cifre excel non le
approssima) e le ultime 2 le aggiungo singolarmente.

Ciao,
E.


Scossa

unread,
Jan 27, 2012, 4:20:09 PM1/27/12
to
On 27 Gen, 22:11, "plinius" <punto.linea...@LEVARElibero.it> wrote:
>
> =DESTRA(RIPETI("0";15)&SOMMA(RESTO(INT(A1/2^(18-RIF.RIGA(2:16)));2)*10^(16-RIF.RIGA(2:16)));15)&RESTO(INT(A1/2);2)&RESTO(A1;2)
>

Boh?!
A1......B1
131071 10000000000000011

???


plinius

unread,
Jan 27, 2012, 4:32:32 PM1/27/12
to

"Scossa" <scos...@gmail.com> ha scritto nel messaggio
news:4e167028-e5be-4125...@o13g2000vbf.googlegroups.com...
In A1 131071
In B1 la formula restituisce 11111111111111111

Cos'è che non va? Non ti dà il risultato corretto?


Scossa

unread,
Jan 27, 2012, 4:41:59 PM1/27/12
to
On 27 Gen, 22:32, "plinius" <punto.linea...@LEVARElibero.it> wrote:
> "Scossa" <scossa...@gmail.com> ha scritto nel messaggionews:4e167028-e5be-4125...@o13g2000vbf.googlegroups.com...
>
> > On 27 Gen, 22:11, "plinius" <punto.linea...@LEVARElibero.it> wrote:
>
> >> =DESTRA(RIPETI("0";15)&SOMMA(RESTO(INT(A1/2^(18-RIF.RIGA(2:16)));2)*10^(16-RIF.RIGA(2:16)));15)&RESTO(INT(A1/2);2)&RESTO(A1;2)
>
> > Boh?!
> > A1......B1
> > 131071 10000000000000011
>
> > ???
>
> In A1 131071
> In B1 la formula restituisce 11111111111111111
>
> Cos'è che non va? Non ti dà il risultato corretto?

No mi da 10000000000000011
Aspetta..... è matriciale!!!! mica l'avevi detto

Però se la incolli su altre colonne sballa:
in F4 131071 111111111111,1111
in I2 131071 1111111111111,111

Bye!
scossa

plinius

unread,
Jan 27, 2012, 4:46:29 PM1/27/12
to

"Scossa" <scos...@gmail.com> ha scritto nel messaggio
news:c3ba0e12-623a-4432...@s18g2000vby.googlegroups.com...
******************************

Basta pagare qualche dollaro... :-))
=DESTRA(RIPETI("0";15)&SOMMA(RESTO(INT(A1/2^(18-RIF.RIGA($2:$16)));2)*10^(16-RIF.RIGA($2:$16)));15)&RESTO(INT(A1/2);2)&RESTO(A1;2)

Così l'incolli dove vuoi!

Ciao,
E.


Scossa

unread,
Jan 27, 2012, 4:55:22 PM1/27/12
to
On 27 Gen, 22:46, "plinius" <punto.linea...@LEVARElibero.it> wrote:
> Basta pagare qualche dollaro... :-))
> =DESTRA(RIPETI("0";15)&SOMMA(RESTO(INT(A1/2^(18-RIF.RIGA($2:$16)));2)*10^(16-RIF.RIGA($2:$16)));15)&RESTO(INT(A1/2);2)&RESTO(A1;2)
>
> Così l'incolli dove vuoi!

Perfetta!

Chapeau!!


Bye!
scossa

Andrea.9

unread,
Jan 27, 2012, 5:42:22 PM1/27/12
to
> 324 caratterri:
>
> =RESTO(INT(B1/2^15);2)&RESTO(INT(B1/2^14);2)&RESTO(INT(B1/2^13);
> 2)&RESTO(INT(B1/2^12);2)&RESTO(INT(B1/2^11);2)&RESTO(INT(B1/2^10);
> 2)&RESTO(INT(B1/2^9);2)&RESTO(INT(B1/2^8);2)&RESTO(INT(B1/2^7);
> 2)&RESTO(INT(B1/64);2)&RESTO(INT(B1/32);2)&RESTO(INT(B1/18);
> 2)&RESTO(INT(B1/8);2)&RESTO(INT(B1/4);2)&RESTO(INT(B1/2);
> 2)&RESTO(B1;2)
>
> Bye!
> scossa

ok ci siamo
a parte una svista (un 18 che doveva essere un 16)
per cui 3 punti a te e l'onore-onere del prossimo quesito.
ciao :-)
andrea

r

unread,
Jan 27, 2012, 5:38:34 PM1/27/12
to
On 27 Gen, 22:46, "plinius" <punto.linea...@LEVARElibero.it> wrote:
> "Scossa" <scossa...@gmail.com> ha scritto nel messaggionews:c3ba0e12-623a-4432...@s18g2000vby.googlegroups.com...
eh eh appunto che fai la somma ... :-)
=TESTO(SOMMA(RESTO(INT(A1/2^RIF.RIGA($2:$16));
2)*10^(RIF.RIGA($2:$16)-2));RIPETI(0;15))&RESTO(INT(A1/2);
2)&RESTO(A1;2)

r

Andrea.9

unread,
Jan 27, 2012, 6:01:34 PM1/27/12
to
> =DESTRA(RIPETI("0";15)&SOMMA(RESTO(INT(A1/2^(18-RIF.RIGA($2:$16)));2)*10^(1 6-RIF.RIGA($2:$16)));15)&RESTO(INT(A1/2);2)&RESTO(A1;2)
>
> Così l'incolli dove vuoi!
>
> Ciao,
> E.

ottimo enrico.
3 punti per la breve per adesso sono tuoi.
inoltre mi sono reso contro di aver commesso un errore nel quesito
dicendo:
"un numero binario di 16 bit e cioè in grado di convertire
131071=2^17-1=1111111111111111"
dichiarando 16 bit avrei dovuto scrivere:
"un numero binario di 16 bit e cioè in grado di convertire
65535=2^16-1=1111111111111111"
quindi la tua potrebbe essere ulteriormente accorciata.
ciao :-)
andrea

Andrea.9

unread,
Jan 27, 2012, 6:13:32 PM1/27/12
to
> eh eh appunto che fai la somma ... :-)
> =TESTO(SOMMA(RESTO(INT(A1/2^RIF.RIGA($2:$16));
> 2)*10^(RIF.RIGA($2:$16)-2));RIPETI(0;15))&RESTO(INT(A1/2);
> 2)&RESTO(A1;2)
>
> r

roberto soffia i 3 punti a enrico (lunghezza 117)
vale comunque lo stesso concetto dei 16 bit e non 17
andrea

r

unread,
Jan 27, 2012, 6:25:31 PM1/27/12
to
beh ormai teniamoci i 17 ... sarai mica superstizioso :-)
r

Andrea.9

unread,
Jan 27, 2012, 6:27:17 PM1/27/12
to
> > roberto soffia i 3 punti a enrico (lunghezza 117)
> > vale comunque lo stesso concetto dei 16 bit e non 17
> > andrea
>
> beh ormai teniamoci i 17 ... sarai mica superstizioso :-)
> r

17 bit .....
lunghezza 117.....
...... terremoti
mah

Andrea.9

unread,
Jan 27, 2012, 6:37:14 PM1/27/12
to
comunque per la cronaca (e fuori concorso) dovrebbe essere:
=TESTO(SOMMA(RESTO(INT(A2/2^RIF.RIGA($1:$15));
2)*10^(RIF.RIGA($1:$15)-1));RIPETI(0;15))&RESTO(A2;2)
lunghezza 99
andrea

Andrea.9

unread,
Jan 27, 2012, 6:22:32 PM1/27/12
to
> Quesito B:
> per ROMANO si desidera una formula per replicare la funzione (in
> questo caso sono concessi nomi e/o appoggi)
> io sono riuscito con 3 nomi (24+23+19) e una formula (379) ma si puo'
> sicuramente di meglio
> nota bene:
> per il calcolo delle lunghezze (per questa volta) i nomi utilizzati
> saranno sommati una sola volta anche se usati nella formula piu' volte
> ad esempio nel mio caso 24+23+19+379=445

ammazzato DECIMALE.BINARIO, chi si cimenta con ROMANO ???

Scossa

unread,
Jan 28, 2012, 3:59:58 AM1/28/12
to
Con calma però .. manca amcora la soluzione da decimale a romano.


Bye!
scossa

plinius

unread,
Jan 28, 2012, 5:48:58 AM1/28/12
to

"r" <robb...@gmail.com> ha scritto nel messaggio
news:ee6093a7-29f1-43f8...@k6g2000vbz.googlegroups.com...
**************************

Ecco, ti pareva! :-))


plinius

unread,
Jan 28, 2012, 7:19:03 AM1/28/12
to

"Andrea.9" <a.nove...@dappolonia.it> ha scritto nel messaggio
news:3ade0c34-fe45-4a92...@z31g2000vbt.googlegroups.com...
*******************

Tre nomi:
_c={"";"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";"CM"}
_d={"";"X";"XX";"XXX";"XL";"L";"LX";"LXX";"LXXX";"XC"}
_u={"";"I";"II";"III";"IV";"V";"VI";"VII";"VIII";"IX"}

La formula:
=RIPETI("M";STRINGA.ESTRAI(TESTO(A1;"0000");1;1))&INDICE(_c;STRINGA.ESTRAI(TESTO(A1;"0000");2;1)+1)&INDICE(_d;STRINGA.ESTRAI(TESTO(A1;"0000");3;1)+1)&INDICE(_u;STRINGA.ESTRAI(TESTO(A1;"0000");4;1)+1)

[52+52+52+199=355]

Mi autoesonero dal risparmiare una lettera su ciascuno dei nomi :-))

Ciao,
E.


Andrea.9

unread,
Jan 28, 2012, 11:47:37 AM1/28/12
to
> Tre nomi:
> _c={"";"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";"CM"}
> _d={"";"X";"XX";"XXX";"XL";"L";"LX";"LXX";"LXXX";"XC"}
> _u={"";"I";"II";"III";"IV";"V";"VI";"VII";"VIII";"IX"}
>
> La formula:
> =RIPETI("M";STRINGA.ESTRAI(TESTO(A1;"0000");1;1))&INDICE(_c;STRINGA.ESTRAI( TESTO(A1;"0000");2;1)+1)&INDICE(_d;STRINGA.ESTRAI(TESTO(A1;"0000");3;1)+1)& INDICE(_u;STRINGA.ESTRAI(TESTO(A1;"0000");4;1)+1)
>
> [52+52+52+199=355]
>
> Mi autoesonero dal risparmiare una lettera su ciascuno dei nomi :-))
>
> Ciao,
> E.

perfetto enrico :-)
tre punti a te e aspettiamo roberto per i tagli
ps: sarebbe 52+52+52+200(non199)-3(per i nomi accorciati)=353

Andrea.9

unread,
Jan 28, 2012, 11:52:02 AM1/28/12
to
> perfetto enrico :-)
> tre punti a te e aspettiamo roberto per i tagli
> ps: sarebbe 52+52+52+200(non199)-3(per i nomi accorciati)=353

per la cronaca questa e' la mia.
numero in A2
tre nomi:
n =INT(DESTRA($A$2;3)/100)
d =INT(DESTRA($A$2;2)/10)
u =--(DESTRA($A$2;1))
formula:
=SE(A2>=1000;RIPETI("M";INT(A2/1000));"")&SE(n=9;"CM";SE(E(n>=5;n<9);"D"&RIPETI("C";INT(n-5));SE(n=4;"CD";SE(E(n>=1;n<4);RIPETI("C";n);""))))&SE(d=9;"XC";SE(E(d>=5;d<9);"L"&RIPETI("X";INT(d-5));SE(d=4;"XL";SE(E(d>=1;d<4);RIPETI("X";d);""))))&SE(u=9;"IX";SE(E(u>=5;u<9);"V"&RIPETI("I";u-5);SE(u=4;"IV";SE(u<4;RIPETI("I";u);""))))
[24+23+19+328=394]

Andrea.9

unread,
Jan 28, 2012, 12:03:42 PM1/28/12
to
> per la cronaca questa e' la mia.
> numero in A2
> tre nomi:
> n       =INT(DESTRA($A$2;3)/100)
> d       =INT(DESTRA($A$2;2)/10)
> u       =--(DESTRA($A$2;1))
> formula:
> =SE(A2>=1000;RIPETI("M";INT(A2/1000));"")&SE(n=9;"CM";SE(E(n>=5;n<9);"D"&RI PETI("C";INT(n-5));SE(n=4;"CD";SE(E(n>=1;n<4);RIPETI("C";n);""))))&SE(d=9;" XC";SE(E(d>=5;d<9);"L"&RIPETI("X";INT(d-5));SE(d=4;"XL";SE(E(d>=1;d<4);RIPE TI("X";d);""))))&SE(u=9;"IX";SE(E(u>=5;u<9);"V"&RIPETI("I";u-5);SE(u=4;"IV" ;SE(u<4;RIPETI("I";u);""))))
> [24+23+19+328=394]

che poi tagliando qua e la:

=SE(A2>=1000;RIPETI("M";A2/1000);)&SE(n=9;"CM";SE(E(n>=5;n<9);"D"&RIPETI("C";n-5);SE(n=4;"CD";SE(E(n>=1;n<4);RIPETI("C";n);))))&SE(d=9;"XC";SE(E(d>=5;d<9);"L"&RIPETI("X";d-5);SE(d=4;"XL";SE(E(d>=1;d<4);RIPETI("X";d);""))))&SE(u=9;"IX";SE(E(u>=5;u<9);"V"&RIPETI("I";u-5);SE(u=4;"IV";SE(u<4;RIPETI("I";u);))))
[24+23+19+307=373]

Andrea.9

unread,
Jan 28, 2012, 12:36:58 PM1/28/12
to
enrico
> [52+52+52+200(non199)-3(per i nomi accorciati)=353]
andrea
> [24+23+19+307=373]
si puo' fare di meglio
prendendo il meglio della mia e di quella di enrico sono a 283 :-))))
aspettiamo roberto..... ^__^
ciao
andrea

Andrea.9

unread,
Jan 28, 2012, 12:51:47 PM1/28/12
to
bugia: sono a 298

plinius

unread,
Jan 28, 2012, 1:51:27 PM1/28/12
to

"Andrea.9" <a.nove...@dappolonia.it> ha scritto nel messaggio
news:4dbbec3c-281b-4e77...@dp8g2000vbb.googlegroups.com...
Lasciando i 3 nomi, la formula può diventare questa:

=RIPETI("M";A3/1000)&INDICE(_c;RESTO(A3;1000)/100+1)&INDICE(_d;RESTO(A3;100)/10+1)&INDICE(_u;RESTO(A3;10)+1)

52+52+52+108(-3)= 261

Ciao,
E.


Andrea.9

unread,
Jan 28, 2012, 6:22:52 PM1/28/12
to
> Lasciando i 3 nomi, la formula può diventare questa:
>
> =RIPETI("M";A3/1000)&INDICE(_c;RESTO(A3;1000)/100+1)&INDICE(_d;RESTO(A3;100 )/10+1)&INDICE(_u;RESTO(A3;10)+1)
>
> 52+52+52+108(-3)= 261
>
> Ciao,
> E.

eh,eh, sono arrivato a 52+52+52+103(-3)= 256
ciao
andrea

plinius

unread,
Jan 28, 2012, 7:17:18 PM1/28/12
to

"Andrea.9" <a.nove...@dappolonia.it> ha scritto nel messaggio
news:a17d6660-56b0-463c...@o13g2000vbf.googlegroups.com...
****************

255, eliminando i nomi:

=RIPETI("M";A1/1000)&INDICE({"";"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";"CM"};RESTO(A1;1000)/100+1)&INDICE({"";"X";"XX";"XXX";"XL";"L";"LX";"LXX";"LXXX";"XC"};RESTO(A1;100)/10+1)&INDICE({"";"I";"II";"III";"IV";"V";"VI";"VII";"VIII";"IX"};RESTO(A1;10)+1)

Ora, con la tua modifica, la lunghezza dovrebbe scendere a 250 :-))


Andrea.9

unread,
Jan 29, 2012, 2:27:36 AM1/29/12
to
> 255, eliminando i nomi:
>
> =RIPETI("M";A1/1000)&INDICE({"";"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";" CM"};RESTO(A1;1000)/100+1)&INDICE({"";"X";"XX";"XXX";"XL";"L";"LX";"LXX";"L XXX";"XC"};RESTO(A1;100)/10+1)&INDICE({"";"I";"II";"III";"IV";"V";"VI";"VII ";"VIII";"IX"};RESTO(A1;10)+1)
>
> Ora, con la tua modifica, la lunghezza dovrebbe scendere a 250 :-))

sono passati due giorni !!!
eccola [lunghezza 250]
=RIPETI("M";A2/1000)&INDICE({"";"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";"CM"};DESTRA(A2;3)/
100+1)&INDICE({"";"X";"XX";"XXX";"XL";"L";"LX";"LXX";"LXXX";"XC"};DESTRA(A2;2)/
10+1)&INDICE({"";"I";"II";"III";"IV";"V";"VI";"VII";"VIII";"IX"};DESTRA(A2)+1)
ora arriverà roberto e ne sparerà una lunga 150 o giu' di li XD
ciao
ansdrea

plinius

unread,
Jan 29, 2012, 5:49:25 AM1/29/12
to

"Andrea.9" <a.nove...@dappolonia.it> ha scritto nel messaggio
news:eb4b6422-94fa-469d...@o12g2000vbd.googlegroups.com...
**********************

Ah... e abbiamo imparato anche che DESTRA assume 1 se si omette il secondo
parametro! :-)

Una ulteriore riduzione mi sembra improbabile, ma ho imparato a non mettere
mai limiti all'inventiva di r :-))

Ciao,
E.


r

unread,
Jan 29, 2012, 5:12:09 PM1/29/12
to
On 29 Gen, 11:49, "plinius" <punto.linea...@LEVARElibero.it> wrote:
> "Andrea.9" <a.novelli-...@dappolonia.it> ha scritto nel messaggionews:eb4b6422-94fa-469d...@o12g2000vbd.googlegroups.com...
:-)
eccomi:
=RIPETI("M";A2/1000)&SCEGLI(DESTRA(A2;3)/
100+1;"";"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";"CM")&SCEGLI(DESTRA(A2;2)/
10+1;"";"X";"XX";"XXX";"XL";"L";"LX";"LXX";"LXXX";"XC")&SCEGLI(DESTRA(A2)+1;"";"I";"II";"III";"IV";"V";"VI";"VII";"VIII";"IX")

244
r

r

unread,
Jan 29, 2012, 5:18:39 PM1/29/12
to
On 29 Gen, 11:49, "plinius" <punto.linea...@LEVARElibero.it> wrote:
> "Andrea.9" <a.novelli-...@dappolonia.it> ha scritto nel messaggionews:eb4b6422-94fa-469d...@o12g2000vbd.googlegroups.com...
anzi ...
=RIPETI("M";A2/1000)&SCEGLI(DESTRA(A2;3)/
100+1;;"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";"CM")&SCEGLI(DESTRA(A2;2)/
10+1;;"X";"XX";"XXX";"XL";"L";"LX";"LXX";"LXXX";"XC")&SCEGLI(DESTRA(A2)+1;;"I";"II";"III";"IV";"V";"VI";"VII";"VIII";"IX")

238
:-)
r

plinius

unread,
Jan 29, 2012, 5:37:24 PM1/29/12
to

"r" <robb...@gmail.com> ha scritto nel messaggio
news:e6d79649-8046-4933...@hb4g2000vbb.googlegroups.com...
*******************

Eccolo! Lo sapevo io eh eh :-))


r

unread,
Jan 29, 2012, 5:24:24 PM1/29/12
to
ma che poi non si poteva semplicemente fare così:
=RIPETI("M";A2/1000)&ROMANO(DESTRA(A2;3))

ciao
r

Andrea.9

unread,
Jan 29, 2012, 6:08:29 PM1/29/12
to
> anzi ...
> =RIPETI("M";A2/1000)&SCEGLI(DESTRA(A2;3)/
> 100+1;;"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";"CM")&SCEGLI(DESTRA(A2;2)/
> 10+1;;"X";"XX";"XXX";"XL";"L";"LX";"LXX";"LXXX";"XC")&SCEGLI(DESTRA(A2)+1;; "I";"II";"III";"IV";"V";"VI";"VII";"VIII";"IX")
>
> 238
> :-)
> r

eccolo!!!!
tre punti incontestabili
ciao
andrea

eliano

unread,
Jan 29, 2012, 6:03:42 PM1/29/12
to
On 29 Gen, 23:37, "plinius" <punto.linea...@LEVARElibero.it> wrote:
> "r" <robb....@gmail.com> ha scritto nel messaggionews:e6d79649-8046-4933...@hb4g2000vbb.googlegroups.com...
> On 29 Gen, 11:49, "plinius" <punto.linea...@LEVARElibero.it> wrote:
>
>
>
>
>
> > "Andrea.9" <a.novelli-...@dappolonia.it> ha scritto nel
> > messaggionews:eb4b6422-94fa-469d...@o12g2000vbd.googlegroups.com...
>
> > > 255, eliminando i nomi:
>
> > > =RIPETI("M";A1/1000)&INDICE({"";"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";"
> > > CM"};RESTO(A1;1000)/100+1)&INDICE({"";"X";"XX";"XXX";"XL";"L";"LX";"LXX";"L
> > > XXX";"XC"};RESTO(A1;100)/10+1)&INDICE({"";"I";"II";"III";"IV";"V";"VI";"VII
> > > ";"VIII";"IX"};RESTO(A1;10)+1)
>
> > > Ora, con la tua modifica, la lunghezza dovrebbe scendere a 250 :-))
>
> > sono passati due giorni !!!
> > eccola [lunghezza 250]
> > =RIPETI("M";A2/1000)&INDICE({"";"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";"­CM"};DESTRA(A2;3)/
> > 100+1)&INDICE({"";"X";"XX";"XXX";"XL";"L";"LX";"LXX";"LXXX";"XC"};DESTRA(A2­;2)/
> > 10+1)&INDICE({"";"I";"II";"III";"IV";"V";"VI";"VII";"VIII";"IX"};DESTRA(A2)­+1)
> > ora arriverà roberto e ne sparerà una lunga 150 o giu' di li XD
> > ciao
> > ansdrea
>
> > **********************
>
> > Ah... e abbiamo imparato anche che DESTRA assume 1 se si omette il secondo
> > parametro! :-)
>
> > Una ulteriore riduzione mi sembra improbabile, ma ho imparato a non
> > mettere
> > mai limiti all'inventiva di r :-))
>
> > Ciao,
> > E.
>
> anzi ...
> =RIPETI("M";A2/1000)&SCEGLI(DESTRA(A2;3)/
> 100+1;;"C";"CC";"CCC";"CD";"D";"DC";"DCC";"DCCC";"CM")&SCEGLI(DESTRA(A2;2)/
> 10+1;;"X";"XX";"XXX";"XL";"L";"LX";"LXX";"LXXX";"XC")&SCEGLI(DESTRA(A2)+1;;­"I";"II";"III";"IV";"V";"VI";"VII";"VIII";"IX")
>
> 238
> :-)
> r
>
> *******************
>
> Eccolo! Lo sapevo io eh eh :-))- Nascondi testo citato
>
> - Mostra testo citato -

Non se ne salva nemmeno uno.:-)).

plinius

unread,
Jan 29, 2012, 6:41:04 PM1/29/12
to

"r" <robb...@gmail.com> ha scritto nel messaggio
news:204d7da4-6b47-4654...@l1g2000vbc.googlegroups.com...
****************************

Eh? :-))))
Per sostituire ROMANO usiamo ROMANO?
Azz!

Allora =ROMANO(A2) :-))


Andrea.9

unread,
Jan 29, 2012, 6:11:44 PM1/29/12
to
riassumendo (salvo errori)

3 punti prima risposa quesito A ---> scossa
3 punti risposta breve quesito A ---> roberto
3 punti prima risposa quesito B ---> enrico
3 punti risposta breve quesito B ---> roberto
prossimo quesito ---> scossa

attendo con impazienza :-)
ciao
andrea

r

unread,
Jan 30, 2012, 4:20:29 AM1/30/12
to
On 30 Gen, 00:41, "plinius" <punto.linea...@LEVARElibero.it> wrote:
> "r" <robb....@gmail.com> ha scritto nel messaggionews:204d7da4-6b47-4654...@l1g2000vbc.googlegroups.com...
avevo letto male :-)
Andrea:
"=ROMANO(A2;0) non converte numeri superiori a 3999
proviamo a sostituire e se possibile migliorare queste funzioni."

pensavo solo al miglioramento.
Saluti
r

Ammammata

unread,
Jan 30, 2012, 4:15:43 PM1/30/12
to
il giorno Fri, 27 Jan 2012 10:04:53 -0800, tale Andrea.9 scrisse:

>> Non ho capito il tuo post,
>
> nemmeno io .....
> ciao
> andrea

18 o 16?



--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\

Andrea.9

unread,
Jan 30, 2012, 4:46:22 PM1/30/12
to
> 18 o 16?

ah ecco!!! :-)
ciao
andrea

Andrea.9

unread,
Feb 10, 2012, 12:25:32 PM2/10/12
to
dai elettrico ...... ;-)

Scossa

unread,
Feb 11, 2012, 7:11:19 AM2/11/12
to
On 10 Feb, 18:25, "Andrea.9" <a.novelli-...@dappolonia.it> wrote:
> dai elettrico ...... ;-)

Oggi pomeriggio (un quiz veloce).

Bye!
scossa
0 new messages