Форум программистов [Powered by Invision Power Board]

Код

program n13;
Const manth:array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31); {Создаем потояный массив из 12 эл и 
                                                                                 присваеваем каждому эл значения}
var f:text; {Объявляем переменную -связку с файлом}
    d,m,y:integer;

function is_v(year:integer):boolean; {Функция проверяет является ли год високосным или нет если да то возвращаем true иначе false}
var t:boolean;
Begin
    if (year mod 4=0) and
       ((year mod 100<>0) or
       (year mod 400 =0)) then
        t:=true
    else
        t:=false;
End;

procedure make_file(var f:text);  {Процидура создает файл(source.txt) и заполняет его значениями}
var yyyy,c,
    m,year,
    d:integer;
Begin
  year:=2006;     {начинаем с этого года}

    ReWrite(f);   {Разрешение на запись в файд f}

    for yyyy:=year to year+5 do            {В 3-х вложенных циклах формеруем дату}
    for m:=1 to 12 do begin
        c:=0;                              {обнуляем С}
        if is_v(yyyy) and (m=2) then c:=1; {Если год високосный и месяц февраль то количество дней будет 29
                                                                       (manth[m]+c = 28+1) иначе 28 (28+0)}
        for d:=1 to manth[m]+c do begin
            write(f,d,m,yyyy);             {записываем сформир дату}
            writeln(f);                    {переход на новую строку}
        end;
    end;
End;

procedure poisk(var f:text;dd,mm,yy:integer); {функция читает файл(source.txt) и если дата в файле меньше даты 
                                               указанной пользователем то записывыет ей  в файл (res.txt) если 
                                               при том год является високосным то  выводит дату на экран}
var nf:text;
    d,m,yyyy:integer;
Begin
    ReSet(f);             {Разрешение на чтение файла source.txt }
    Assign(nf,'res.txt'); {связываем  файл с указателем на него}
    ReWrite(nf);          {разрешение записывать в файл res.txt }

    while not Eof(f) do begin      {Пока файл не кончится считывам из файла source.txt данные и сверяем их с условием}
        read(f,d,m,yyyy);
        if (d<dd) and
           (m<=mm) and
           (yyyy<=yy) then begin

            if is_v(yyyy) then writeln(d,'/',m,'/',yyyy); {если год високосный то выводим на экран дату}
            write(nf,d,m,yyyy);                           {записываем  данные в новый файл если они уд условию}
            writeln(nf);
        end;
    end;
    Close(nf); {закрываем файл}
End;

BEGIN
    ASSIGN(f,'source.txt'); {связываем  файл с указателем на него}

    make_file(f);           {Передаем указатель  в функцию создающюю файл}
    writeln('d m yyyy');
    read(d,m,y);
    poisk(f,d,m,y);         {Передаем указвнную дату в функцию ищющюю дыты меньшие данной}

    CLOSE(f);               {закрываем файл}
    readln;
END.