|
|||
Скачать Вечный календарь на год
06.08.1997 Program kalendar; uses crt; const kd:array[1..7] of string=('пн','вт','ср','чт','пт','сб','вс'); month:array[1..12] of string=('январь','февраль','март','апрель','май', 'июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь'); days:array [1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31); var year:word; i,j,d,t:byte; Begin clrscr;writeln('введите год'); read(year);clrscr; d:=(2+(year-1901)+(year-1901) div 4); d:=d mod 7; if d=0 then d:=7; for i:=1 to 3 do begin for j:=1 to 7 do begin gotoxy(1,i+j+(i-1)*7); write(kd[j]) end; for j:=1 to 4 do begin gotoxy(wherex+8,wherey-7); write(month[j+4*(i-1)]); gotoxy(wherex-6-length(month[j+4*(i-1)]),wherey+d); if year mod 4=0 then days[2]:=29; for t:=1 to days[j+(i-1)*4] do begin {----------} if ((wherey-1) mod 8=7) then TextColor(LightRed); write(t); TextColor(LightGray); {----------} if d+1=8 then begin if (t>=1) and (t<9) then gotoxy(wherex+2,wherey-6) else gotoxy(wherex+1,wherey-6); d:=1;end else begin d:=d+1; if (t>=1) and (t<9) then gotoxy(wherex-1,i+(i-1)*7+d) else gotoxy(wherex-2,i+(i-1)*7+d); end; end; gotoxy(wherex+3,i+i*7); end end ; readln; End. | |||
© 2009–2024 Russian Pascal Developer Network.
Техническая площадка: ISBIZ Хостинг |