Novità

script piramide

gamberorosso

Senior Member
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
 
Ultima modifica:
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
 
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
 
Ultima modifica:
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
 
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
 
Ultima modifica:
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
 
ciao ecco lo script per la piramide in verticale
vedi se ho capito bene
Codice:
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
 
Ultima modifica di un moderatore:
No ci mancherebbe :p


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
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24

Ultimi Messaggi

Indietro
Alto