Možete saznati na koji dan u sedmici pada određeni datum u prošlosti, sadašnjosti ili budućnosti pomoću takozvanog trajnog kalendara. Takav uređaj možete napraviti kod kuće.
Instrukcije
Korak 1
Napravite sedam kalendarskih karata za jedan mjesec, u prvoj u kojoj mjesec počinje u ponedjeljak, u drugoj u utorak, u trećoj od srijede i tako sve do kalendara u kojoj mjesec počinje u nedjelju. Karticama dodijelite brojeve od 1 do 7, a prvom broju kalendar u kojem mjesec počinje u ponedjeljak. Napravite ove kartice od teškog kartona i laminirajte ih, jer je kalendar dizajniran da se dugo godina čuva i koristi.
Korak 2
Uključite u set vječnog kalendara i karticu slijedeće formule: h = d + ((13m-1) / 5) + r + (y / 4) + (v / 4) -2v, gdje: - h je srednji rezultat koji će biti daljnja transformacija; - d - datum; - m - mjesec, izabran na pomalo neobičan način: mart - prvi mjesec, februar - dvanaesti; - d - posljednje dvije znamenke broja godine (ako je mjesec je januar ili februar, zatim prethodna godina); - u - broj vijeka od kojeg je jedinica oduzeta (za januar ili februar oduzmite 2 umjesto 1). Ova je karta također izrađena od debelog kartona i laminata. Spajajte sve karte zajedno tako da se ne izgube. Napravite prikladnu futrolu za vječni kalendar, ako želite, pohranite u nju kalkulator odgovarajuće veličine.
Korak 3
Nakon izračunavanja prema naznačenoj formuli, rezultat h podijelite sa sedam s ostatkom.
Korak 4
Uzmi modul iz ostatka dijeljenja.
Korak 5
Uzmite karticu s brojem jednakim rezultatu posljednjeg izračunavanja, a zatim pomoću nje odredite dan u sedmici.
Korak 6
Po želji napišite program za izvođenje izračuna za obje formule na bilo kojem programskom jeziku koji poznajete. U ovom slučaju, međutim, dijeljenje s ostatkom može biti teško, jer za to ne postoji gotova funkcija u većini programskih jezika. Najprikladnije je koristiti jezik Pascal u kojem je dostupna odgovarajuća funkcija. Da biste pronašli cjelobrojni dio rezultata dijeljenja s ostatkom, upotrijebite redak sljedećeg oblika: c: = div b. Da biste pronašli ostatak dijeljenja, upotrijebite liniju drugog oblika: c: = a mod b.
