PDA

View Full Version : Cosa calcola il programma informatico sotto riportato?

giustinoni
25-04-2007, 08:01
http://www.liceotrescore.it/GGWeb/programma.gif

Grazie per le risposte;)
okay
25-04-2007, 08:34
http://www.liceotrescore.it/GGWeb/programma.gif

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
25-04-2007, 08:42
Ehm...tutti i dati che ho son quelli :(
sottovento
25-04-2007, 08:50
Sembrerebbe il calcolo del Rata Die number.

http://www.vsg.cape.com/~pbaum/date/back.htm#Rata
giustinoni
25-04-2007, 08:52
Siamo sicuri?:D
okay
25-04-2007, 08:53
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
25-04-2007, 22:32
aCalcolo data della pasqua calendario gregoriano

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