DODICI

Siamo al DODIcesimo cielo

Se p è il perimetro di un triangolo rettangolo con lati di lunghezza interi, {a, b, c}, ci sono esattamente tre soluzioni per p = 120.

{20,48,52}, {24,45,51}, {30,40,50}

Per quale valore di p <= 1000, è massimo il numero di soluzioni?

p.s.

una soluzione originale = 3 crediti

originale sul serio

Questa voce è stata pubblicata in Algoritmi, Aritmetica, Informatica, Matematica, Programmazione e contrassegnata con , , , , , , , , , , , , , , . Contrassegna il permalink.

3 risposte a DODICI

  1. Filippo Bisconcin ha detto:

    Function calcola_soluzioni(ByVal num)
    -Dim tot As Double = 0
    -Dim numero As Double = 0
    -For a = 1 To num / 2
    –For b = 1 To num / 2
    —numero = Math.Sqrt(a ^ 2 + b ^ 2)
    —If (Int(num – numero) = (num – numero)) And ((a + b + numero) = num) Then tot += 1
    —End If
    –Next
    -Next
    -Return tot / 2
    End Function

    *********Main*********
    -Dim max = 0, pos = 0
    -For a = 1 To 1000
    –If calcola_soluzioni(a) > max Then
    —max = calcola_soluzioni(a)
    —pos = a
    –End If
    -Next
    *********Main*********

  2. Filippo Bisconcin ha detto:

    con un solo esempio si fa fatica a collaudarlo…

    perimetro = 840
    soluzioni = 8

    ???????

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...