Zvolené číslo predstavuje poradie dňa v roku

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: Zadania Pascal

Autor: Pheo
web: pascalsource.ic.cz

Program: Yeardays.pas

Zvolené číslo predstavuje poradie dňa v roku. Program určí dátum.
{ YEARDAYS.PAS                                   Copyright (c) Pheo }
{ Zvolené číslo predstavuje poradie dňa v roku. Program určí dátum. }
{                                                                   }
{ Datum:19.04.2005                             http://www.trsek.com }
 
program yeardays;
var sucet,pr,i,rs,ms,ds,dnisucroku,pocet:longint;
 
function monthdays(m:longint):longint;
var p:integer;
begin
  case m of
    1,3,5,7,8,10,12:p:=31;
    2:p:=28;
    4,6,9,11:p:=30
  end;
  monthdays:=p;
end;
 
begin
   ms:=1;
   writeln('Zvolené cislo predstavuje poradie dna v roku. Program urci datum.');
   writeln;
   write('Pocet dni od zaciatku roku: ');
   readln (pocet);
   write('         Zadaj sucasny rok: ');
   readln (rs);
   pr:=0;
   if  (rs mod 4=0) then pr:=pr+1;
   while pocet>=29 do
   begin
     pocet:=pocet-monthdays(ms)-pr;
     ms:=ms+1;
   end;
   ds:=pocet;
   writeln('Dnesny datum : ',ds+1,'. ',ms,'. ',rs);
   readln;
end.