ma l'oro, quanto pesa?

Il forum di Base5, dove è possibile postare problemi, quiz, indovinelli, rompicapo, enigmi e quant'altro riguardi la matematica ricreativa e oltre.

Moderatori: Gianfranco, Bruno

panurgo
Livello 9
Livello 9
Messaggi: 1521
Iscritto il: sab nov 19, 2005 3:45 pm
Località: Padova

Messaggio da panurgo »

0-§ ha scritto:Oggi a scuola durante un'ora "semibuca" ho trovato,con molti tentativi,la frazione 242/303,solo per ricordarmi che l'aveva già trovata Pasquale.
Anche Pasquale l'ha trovata quando qualcun'altro l'aveva già fatto! L'importante è arrivarci in un modo o nell'altro (e quindi meritarsi un :D gelato! :D).

Sarebbe interessante (e, forse, istruttivo) confrontare i rispettivi modi...
il panurgo

Principio di Relatività: $\mathbb{m} \not \to \mathbb{M} \, \Longleftrightarrow \, \mathbb{M} \not \to \mathbb{m}$
"Se la montagna non va a Maometto, Maometto NON va alla montagna"

Pasquale
Livello 12
Livello 12
Messaggi: 2853
Iscritto il: mer mag 25, 2005 2:14 am

Messaggio da Pasquale »

A dire il vero, quando ho l'occasione di dare il Decimal Basic in pasto al mio p.c., non me la lascio sfuggire, perché mi diverte troppo:

FOR x=1 TO 9
FOR y=0 TO 9
FOR w= 1 TO 9
FOR z=0 TO 9
LET num=101*x+10*y
LET div=101*w+10*z
LET a=num/div
LET b=INT(FP(a)*10^8 )
IF a0 THEN
LET num$=STR$(num)
LET div$=STR$(div)
LET b$=STR$(b)
IF left$(b$,4)=right$(b$,4) THEN
FOR m=2 TO 4
FOR n=1 TO m-1
IF mid$(b$,m,1)=mid$(b$,n,1) THEN GOTO 10
NEXT N
NEXT M
FOR m=1 TO 4
FOR n=1 TO 3
IF mid$(b$,m,1)=mid$(num$,n,1) OR mid$(b$,m,1)=mid$(div$,n,1) THEN GOTO 10
NEXT N
NEXT M
PRINT num$;"/";div$;" = 0,";b$;"....."
10
END IF
END IF
NEXT Z
NEXT W
NEXT Y
NEXT X
END

Rispondi