Find the last Sunday of each month: Difference between revisions

Content added Content deleted
m (→‎{{header|Phix}}: added syntax colouring the hard way)
Line 272: Line 272:
% EXERCISE THE ROUTINE %
% EXERCISE THE ROUTINE %
INTEGER M, SUNDAY;
INTEGER M, Y, SUNDAY;
SUNDAY := 0;
SUNDAY := 0;
WRITE("LAST SUNDAY OF EACH MONTH IN 2021");
WRITE("DISPLAY LAST SUNDAYS FOR WHAT YEAR?");
READ(Y);
FOR M:=1 STEP 1 UNTIL 12 DO
FOR M:=1 STEP 1 UNTIL 12 DO
WRITE(MONTHNAME(M), LASTKDAY(SUNDAY,M,2021));
WRITE(MONTHNAME(M), LASTKDAY(SUNDAY,M,Y));


END
END
Line 282: Line 283:
{{out}}
{{out}}
<pre>
<pre>
DISPLAY LAST SUNDAYS FOR WHAT YEAR?
LAST SUNDAY OF EACH MONTH IN 2021
-> 2021
JAN 31
JAN 31
FEB 28
FEB 28