[Muxa]

Как сделать календарь на текущий год с помощью for?

[lmikle]

А поподробнее задачу описать?

[Muxa]

Нужно вывести на дисплей календарь на текущий год, без использования массивов, с помощью for.

[Asinkrit]

Держи)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

{$APPTYPE CONSOLE}   uses   Windows, SysUtils, DateUtils;   const   CMonths:array [1..12] of String = ('January','February','March','April','May','June','July',                                      'August','September','Octomber','November','December');   var   SYear:Word;   SMonth:Byte;   function FillStr(const aStr:String; const aLength:byte):String; var   b:byte; begin   Result:='';   if aLength-Length(aStr) > 0 then     for b:=1 to aLength-Length(aStr) do Result:=Result+' ';   Result:=Result+aStr; end;   procedure WriteMonth(const aYear:Word; const aMonth:Byte); var   SDay:Byte;   col, b:byte; begin   Writeln('     ',CMonths[aMonth]);   col:=DayOfWeek(EncodeDate(aYear,aMonth,1))-2;   if (col > 1) and (col < 255) then     for b:=1 to col do       Write('   ');   if col = 255 then col:=1;   for SDay:=1 to DaysInMonth(EncodeDate(SYear,SMonth,1)) do     begin     Inc(Col);     if Col >= 8 then       begin       Col:=1;       Writeln;       end;     write(FillStr(Inttostr(SDay),3));     end; end;   begin   SYear:=YearOf(Now());   Writeln('Year: ',SYear);   for SMonth:=1 to 12 do     begin     WriteMonth(SYear, SMonth);     Writeln;Writeln;     end;   Readln; end.