Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Ciao ,non riesco a capire il passaggio x la terza ambata,grazie
Come mai porta la somma a sx 194?,grazie
si potrebbe sviluppare il tutto in forma originale?Grazie
Cerca di vedere tu se trovi altre soluzioni dal libro che hai tu e ne possiamo discutere.Ciao Hetman,ho chiesto questo perché anch'io ho un vecchio libro con la figura pentagona e all'epoca provai ma mi blocca al 2 numero ,il terzo non riuscì a svolgere le operazioni,avendo visto che avevi proposto tu la figura mi sono nuovamente incuriosito e nel controllare ho notato che le operazioni non erano conformi al libro, grazie
Scrivi "La Figura Pentagona di Hetman",1
Scrivi "========================================= by Enplein"
Scrivi
Sub main()
Dim ru(1),rtt(2), n(5),nu(3),amb(1)
Dim poste(2), posta(1)
t=0
ini = EstrazioneFin - 10
fin = EstrazioneFin
cl = 24 'estrazioni di gioco
poste(2)=1 : posta(1)=1
For es = ini To fin
AvanzamentoElab ini, fin, es
For rt= 1 To 11
If rt=11 Then rt=12
For p=1 To 5
n(p)= Estratto(es,rt,p)
Next
a=n(5) : b=n(4) : c=n(2) : d=n(3) : e=n(1)
'calcolo delle incognite
'1a (A+B+C)
nu(1)=Fuori90 (a+b+c) 'X
'2a (A+B+C+D)
nu(2)=Fuori90 (nu(1)+d) 'Y
'3a (C+D+Y)
nu(3)=Fuori90 (c+d+nu(2)) 'Z
ru(1)=rt : rtt(1)=rt : rtt(2)=11
t=t+1
Scrivi String(72,"*"),1
Scrivi "["+Format2(es)&"] "&DataEstrazione(es)&" Ruota di "&_
NomeRuota(rt)&" estratti: "&Stringaestratti(es,rt)
Scrivi "Elementi del Trapezio Isoscele: A= "&format2(a)&" B= "&_
Format2(b)&" C= "&format2(c)&" D= "&format2(d)&" E= "&format2(e)
Scrivi"----------------------------------------------------------------Giocata n°"&t,1
ImpostaGiocata 1, nu, ru, posta, cl
ImpostaGiocata 2, nu, rtt, poste, cl
Gioca es
Next
Next
ScriviResoconto
End Sub
Scusa Hetman so che hai fatto studi in merito per cui ti chiedo appena potrai di trattare la tavola del cappuccino per capire un uso eventuale Grazie