aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Task/Calendar---for-REAL-programmers/PascalABC.NET/calendar---for-real-programmers.pas Normal file
View file

@ -0,0 +1,27 @@
USES CRT;
BEGIN
SETWINDOWSIZE(132, 25);
VAR MNTH:=|'JANUARY', 'FEBRUARY', 'MARCH', 'APRIL', 'MAY', 'JUNE', 'JULY', 'AUGUST', 'SEPTEMBER', 'OCTOBER', 'NOVEMBER', 'DECEMBER'|;
GOTOXY(57, 1);
PRINT('[SNOOPY]');
GOTOXY(65, 2);
PRINT('1969');
VAR DW:=2;
FOREACH VAR M IN MNTH INDEX I DO BEGIN
VAR (X, Y):=(I MOD 6 * 22, 3 + I DIV 6 * 9);
GOTOXY(X+1, Y+1);
PRINT('MO TU WE TH FR SA SU');
GOTOXY(X + 11 - M.Length DIV 2, Y);
PRINT(M);
VAR DAYS:=(I IN |3,5,8,10| ? 30 : I=1 ? 28 : 31);
Y+=2;
X+=1;
FOR VAR D:=1 TO DAYS DO BEGIN
GOTOXY(X + DW*3, Y);
WRITE(D:2);
DW:=(DW+1) MOD 7;
IF DW=0 THEN Y+=1;
end;
end;
GOTOXY(1,21);
END.