Cosa calcola il programma informatico sotto riportato?

[giustinoni]

Grazie per le risposte

[okay]

Originariamente inviato da giustinoni

Grazie per le risposte

questo è basic

il prg richiede un numero e il massimo che si può immettere è 8184 se è maggiore di questo dà errore di overfloow.
Immettendo il massimo che è 8184 a vale 429460862 il massimo ammissibile per operare.

m vale sempre 4 quindi non credo che le operazioi che fà questo code siano a casaccio.

f varia tra 60 e 75 mentre a è un numero long.

sinceramente non sò cosa faccia... e a cosa possano corrispondere i risultati.

Se posti altri dati forse possiamo risalire a cosa possano corrispondere tali dati.

[giustinoni]

Ehm...tutti i dati che ho son quelli

[sottovento]

Sembrerebbe il calcolo del Rata Die number.

http://www.vsg.cape.com/~pbaum/date/back.htm#Rata

[giustinoni]

Siamo sicuri?

[okay]

Originariamente inviato da giustinoni

Ehm...tutti i dati che ho son quelli

allora ho controllato meglio, certo che..., a me pare anzi dico con certezza che è l'algoritmo per calcolare il giorno della pasqua.

queste righe le aggiungo io:
10 'by okay
20 'Calcolo data della pasqua calendario gregoriano
30 M$(3) = "Marzo": M$(4) = "Aprile"
40 FOR J% = 1 TO 10: KEY J%, "": NEXT J%: KEY OFF
60 COLOR 15,1: CLS: LOCATE 2,10: PRINT "CALCOLO DELLA DATA DELLA PASQUA NEL CALENDARIO GREGORIANO"
70 LOCATE 12, 30: INPUT "Anno "; A%


e alla fine aggiungerei queste:
190 LOCATE 20, 8: PRINT "Premi 'Esc' per uscire dal programma o un tasto per cambiare anno"
200 Z$ = INKEY$: IF Z$ = "" THEN 200 ELSE ZZ$ = MID$(Z$, 2, 1): S% = ASC(Z$)
210 IF S% = 27 THEN SYSTEM ELSE 60


ciao e stammi bene...

[giustinoni]

Originariamente inviato da okay

aCalcolo data della pasqua calendario gregoriano

Bastava questo, sei stato fin troppo gentile!!!
Grazie ad entrambi!!