i
i
“Razpet-pustovanje” — 2010/5/31 — 14:20 — page 1 — #1 i
i
i
i
i
i
List za mlade matematike, fizike, astronome in računalnikarje
ISSN 0351-6652
Letnik 15 (1987/1988)
Številka 2
Strani 74–76
Marko Razpet:
KDAJ BOMO (SMO) PUSTOVALI
Ključne besede: računalništvo, razvedrilo.
Elektronska verzija: http://www.presek.si/15/874-Razpet.pdf
c© 1987 Društvo matematikov, fizikov in astronomov Slovenije
c© 2010 DMFA – založništvo
Vse pravice pridržane. Razmnoževanje ali reproduciranje celote ali
posameznih delov brez poprejšnjega dovoljenja založnika ni dovo-
ljeno.
KDAJ BOMO (SMO) PUSTOVALI
Gotovo veste , da je pust vsako leto na torek, natančen datum pa preberemo
šele v koledarju. Če bi zbral i koledarja zadnjih nekaj let, bi lahko sestavili
naslednjo preglednico:
leto pust
1980 19 . februarja
1981 3 . marca
1982 23 . februarja
1983 15. februa rja
1984 6 . marca
1985 19 . februarja
1986 11 . feb ruarja
Na prvi pogled so navedeni datumi razporejeni brez pravega reda. Toda to ne
drži. Treba se je spomniti, da je praznovanje pusta ljudski običaj, ki ima namen
odganjati zimo in zle demone. Tukaj ne bomo ugotavljali, kako in zakaj, toda
dejstvo je, da je pustni torek vedno 47 dni pred velikonočno nedeljo, ki je
prva nedelja po prvi spomladanski polni luni. V knjigi Lehrbuch der Astrono-
mie (avtor ja sta Elis in Bengst Strčmqren, leto izdaje 1933, Berlin) najdemo
Gaussov algoritem za izračun datuma te znamenite nedelje za dano leto.
Ome njen i Gaussov algo ritem spoznajmo kar v programu , ki je napisan v
H isoftovem pascalu (glej Presek 1985/86, št. 4). Po uspešnem startu je treba
vnest i prvo letnico in število let, za katera bi radi izračunali datum pusta po
gregor ijanskem koledarju , k i se v naših krajih uporablja že od konca šestnajste-
ga stoletja naprej. Po desetih izpis ih se izvajanje programa ustav i in je treba
pritisniti neko tipko , da lahko nadaljujemo.
10 PROGRAM PUST;
20 VAR S, TT, T, STL , K, P, Q, M, N, A, B, C, D, E, G1, GG, PR, PUST:
INTEGER;
30 CH: CHAR;
40 BEGIN
50 PAGE;
60 { TT prva letnica , za katero b i rad i datum pus ta )
70 {, po gregorijanskem koledarju, TT > 1582 }
80 REPEAT
74
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
460
'.FEB RUARJA');
END
ELSE
BEGIN
PUST := PUST - 59 - PR;
75