30/01/2015, 18:14
30/01/2015, 23:31
31/01/2015, 07:05
31/01/2015, 12:10
31/01/2015, 12:24
al_berto ha scritto:Rettangoli isoperimetrici.
Trovare un rettangolo isoperimetrico ad un altro, e la cui area sia un multiplo dell'area di questo.
Grazie.
aldo
31/01/2015, 14:30
Option Explicit
Sub Macro1()
Dim B1, H1, P1, B2, H2, P2, A1, A2
H1 = 1
Ritorna:
B1 = 1
B2 = 1
For B1 = B1 To 100
P1 = 2 * (B1 + H1)
A1 = B1 * H1
H2 = 1
Ritorna2:
For B2 = B2 To 100
P2 = 2 * (B2 + H2)
A2 = B2 * H2
If P2 = P1 Then
If (A1 Mod A2 = 0 Or A2 Mod A1 = 0) And A1 <> A2 Then
MsgBox ("Ho trovato una possibile combinazione!" & vbCrLf & "B1 = " & B1 & vbCrLf & "B2 = " & B2 & vbCrLf & "H1 = " & H1 & vbCrLf & "H2 = " & H2 & vbCrLf & "P1 = " & P1 & vbCrLf & "P2 = " & P2 & vbCrLf & "A1 = " & A1 & vbCrLf & "A2 = " & A2)
End If
End If
Next B2
H2 = H2 + 1
If H2 <= 100 Then GoTo Ritorna2:
B2 = 1
Next B1
H1 = H1 + 1
If H1 <= 100 Then GoTo Ritorna
End Sub
31/01/2015, 17:08
31/01/2015, 17:36
al_berto ha scritto:metodo hai usato? Se il rapporto fosse $n$?
@nino
OK va tutto bene, ma un lato deve essere per forza 1?
aldo
31/01/2015, 17:51
al_berto ha scritto:Un alunno scrive...
31/01/2015, 18:28
nino_ ha scritto:Per la formula generale, non l'ho trovata, magari ci penso più tardi
Skuola.net News è una testata giornalistica iscritta al Registro degli Operatori della Comunicazione.
Registrazione: n° 20792 del 23/12/2010.
©2000—
Skuola Network s.r.l. Tutti i diritti riservati. — P.I. 10404470014.
Powered by phpBB © phpBB Group - Privacy policy - Cookie privacy
phpBB Mobile / SEO by Artodia.