script piramide

[gamberorosso]

ciao a tutti forse qualcuno c'e la già fatto........ mi servirebbe uno script che facesse questo tipo di piramide ( su spaziometria oppure l8+ )
questo e quello che fa la piramide normale


1 8 4 5
--9 3 9
----3 3
------6
invece mi serve cosi: giusta
1 8 4 5
--9 8 3
----8 7
------6
calcoli da fare........
1+8=9 il primo calcolo poi in verticale 9+8=8 8+4=3 primo calcolo poi verticale 9+8=8 8+8=7 primo calcolo 8+7=6 fine
------------------------------------------------------------------------
ringrazio chi mi da una mano grazie

 

[LuigiB]

ciao io la mao te la darei ma non ho capito il calcolo perche 9+8 fa 8 ?
se mi fai un esempio con i 5 numeri di un'estrazione e nello stesso mi scrivi per filo e per segno tutti i passaggi
ti aiuto perche infondo lo script dovrebbe essere breve

 

[gamberorosso]

grazie luigiB
Non prendo l'estrazione ma devo metterli a mano i numeri mi servirebbe con una InputBox ecco un esempio:
Devo piramidare 4 numeri con il fuori 9 (ma mi serve piramidarne più di 10)
1-8-4-5
la prima somma la da il numero 8+1 che e orizzontale e sarebbe 8+1= 9
la seconda somma la da il numero 8+9 adesso devo iniziare in verticale 8+9 che fuori 9 viene 8
la terza somma la da il numero 8+4 sempre per verticale 8+4 =12-9= 3
la quarta somma adesso deve essere orizzontale 9+8=8
la quinta si ricomincia verticale 8+8=16-9=7
e l'ultima in orizzontale 8+7=6
questa e la piramide:
1-8-4-5
9 somma di 8+1 orizzontale
1-8-4-5
9-8 otto e la somma di 8+9 col fuori 9= 8 ( otto e della prima riga e non della seconda) verticale
1-8-4-5
9-8-3 il tre e la somma del 8+4 fuori 9 = 3 sempre in verticale
1-8-4-5
9-8-3
8- questo otto e il risultato della somma in orizzontale 9+8 fuori 9=8
1-8-4-5
9-8-3
8-7 questo sette e il risultato della somma in verticale del 8+8=16-9=7
1-8-4-5
9-8-3
8-7
6 il sei e la somma in orizzontale 8+7=15-9=6
questa e più lunga ma la stessa:
1845983876
-983887197
--87198677
---6455418
----151612
-----62391
------8144
-------915
--------12
---------3

spero di essere stato chiaro per adesso un grazie

 

[LuigiB]

ciao , purtroppo non capisco ancora ... ho capito il discorso del fuori9 ma c'è una cosa che mi sfugge
nell'esempio scrivi

la seconda somma la da il numero 8+9 in verticale che fuori 9 viene 8

dove finisce questo famoso 8 ?
io affianco al 9 vedo un 3 non 8

1 8 4 5
--9 3 9
----3 3
------6

 

[gamberorosso]

ciao liugib e ancora grazie per il tempo che perdi....la piramide che hai messo tu e normale cioè piramide orizzontale.
questa e la piramide che serve a me:
Per la prima somma devo per forza prendere i primi due numeri 8+1=9 ma le altre somme fino alla fine della riga devono essere in verticale.......i numeri che vengono sono 8-3 seconda riga, finita la riga si ricomincia con prendere i primi due numeri della seconda riga 9+8=17-9=8 ma poi si riprende i numeri in verticale fino alla fine della riga cioè 8+8=16-9=7 terza riga 87 l'ultima somma sara 8+7=16-9=6

1845
-983-----------<seconda riga 8-3
--87
---6
l'otto finisce al posto del tre perchè 9+8verticale=17-9=8 poi 8+4=12-9=3 poi si inizia a fare la piramide normale la prima somma 9+8=17-9=8 e poi la seconda somma si inizia in verticale 8+8=16-9=7 e sarebbe 87 nella piramide essendo gli ultimi numeri si sommano 8+7=15-9=6
spero di essere stato chiaro ciao e grazie

 

[LuigiB]

eheh mica mi vorrai far diventare matto io avevo messo la piramide che havevi messo tu .. l'ho copiata .... vabbe ora mi lego il tuo ultimo post

 

[LuigiB]

ciao ecco lo script per la piramide in verticale
vedi se ho capito bene

Option Explicit
Sub Main
	Dim sNumeri
	Dim nQ,k,kk
	sNumeri = InputBox("Inserire i numeri separati da punto",,"1.8.4.5")
	ReDim aN(0)
	Call SplitByChar(sNumeri,".",aN)
	If VerificaNumeri(aN) Then
		nQ = UBound(aN)
		ReDim aPmd(nQ,nQ)
		For k = 0 To nQ
			For kk = 0 To nQ
				aPmd(k,kk) = 0
			Next
		Next
		For k = 0 To nQ
			aPmd(0,k) = Int(aN(k))
		Next
		Call ScriviPiramide(aPmd,nQ)
	Else
		MsgBox "Numeri inseriti in modo errato",vbExclamation
	End If
End Sub
Function VerificaNumeri(aN)
	Dim b,k
	If UBound(aN) >= 1 Then
		b = True
		For k = 0 To UBound(aN)
			If aN(k) <> "" Then
				If Int(aN(k)) < 0 Or Int(aN(k)) > 9 Then
					b = False
					Exit For
				End If
			Else
				b = False
				Exit For
			End If
		Next
	End If
	VerificaNumeri = b
End Function
Sub ScriviPiramide(aPmd,nQ)
	Dim nCol,nColDin,nColTmp,nRigaDin
	Dim sRiga
	Dim k,kk
	nColDin = 0
	nColTmp = 0
	nRigaDin = 1
	Do While nRigaDin <= nQ
		For nCol = nColDin To nQ - 1
			nColTmp = nColTmp + 1
			If nCol = nColDin Then
				aPmd(nRigaDin,nColTmp) = FuoriX(aPmd(nRigaDin - 1,nCol) + aPmd(nRigaDin - 1,nCol + 1),9)
			Else
				aPmd(nRigaDin,nColTmp) = FuoriX(aPmd(nRigaDin - 1,nCol) + aPmd(nRigaDin,nCol),9)
			End If
		Next
		nRigaDin = nRigaDin + 1
		nColDin = nColDin + 1
		nColTmp = nColDin
	Loop
	For k = 0 To nQ
		sRiga = ""
		For kk = 0 To nQ
			If aPmd(k,kk) > 0 Then
				sRiga = sRiga & aPmd(k,kk)
			Else
				sRiga = sRiga & " "
			End If
		Next
		Call Scrivi(sRiga)
	Next
End Sub

 

[gamberorosso]

No ci mancherebbe


primo post.....
questo e quello che fa la piramide normale


1 8 4 5
--9 3 9
----3 3
------6



invece mi serve cosi: giusta per come serve a me
1 8 4 5
--9 8 3
----8 7
------6

 

[gamberorosso]

Grazie e perfetto non so come ringraziarti

 

[Joe91]

Ebbbravo Luigi.

BuonaGiornata

 

[LuigiB]

grazie Joe , ciao