Системное программирование в UNIX средствами Free Pascal

       

. Дата и время


Упражнение 13.62. Составьте аналог команды date.

ses crt,dos;

var y,h,d,dw,ch,m,s,ms:word;

BEGIN

getdate(y,h,d,dw);

case dw of

  1:write('Пн');

  2:write('Вт');

  3:write('Ср');

  4:write('Чт');

  5:write('Пт');

  6:write('Сбт');

  7:write('Вс');

end;

write(' ');

case h of

  1:write('Янв');

  2:write('Фев');

  3:write('Мар');

  4:write('Апр');

  5:write('Май');

  6:write('Июн');

  7:write('Июл');

  8:write('Авг');

  9:write('Сен');

  10:write('Окт');

  11:write('Ноя');

  12:write('Дек');

end;

write(' ');

write(d,' ');

gettime(ch,m,s,ms);

write(ch,':',m,':',s,':',ms,' ',y);

readln;

END.

Упражнение 13.63. Составьте аналог команды cal.

uses crt,dos;

procedure cl(year,mes,pol_1:word);

var arr:array [0..7,1..7] of string[2];

    i,j,kdm,n:byte;

    v:boolean;

    kd,k:word;

    s:string[2];

begin

   v:=false;

    for i:=0 to 7 do      

       for j:=1 to 7 do 

        arr[i,j]:='  ';

   if ((year mod 4=0)and(year mod 100<>0))or((year mod 4=0)and(year mod 100=0)and(year mod 400=0))

                                       then v:=true

         else if (year mod 100=0)and(year mod 400<>0)then v:=false;

        

    case mes of

  1:begin writeln('Янв');

          kdm:=31;

       kd:=0;

    end;      

  2:begin writeln('Фев');

         kd:=31;

      if v then kdm:=29 else kdm:=28;

    end;               

  3:begin writeln('Мар');

          kdm:=31;

       if v then kd:=60 else kd:=59;

    end;     

  4:begin writeln('Апр');

          kdm:=30;

       if v then kd:=91 else kd:=90;

    end;     

  5:begin writeln('Май');

          kdm:=31;

       if v then kd:=121 else kd:=120;

    end;     

  6:begin writeln('Июн');

          kdm:=30;

       if v then kd:=152 else kd:=151;

    end;     

  7:begin writeln('Июл');

          kdm:=31;

       if v then kd:=182 else kd:=181;

    end;     

  8:begin writeln('Авг');

          kdm:=31;

       if v then kd:=213 else kd:=212;

    end;     



Содержание раздела







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий