Program zistí najbližšie vyšší rok začínajúci tým istým dňom v týždni

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Pheo
web: pascalsource.ic.cz

Program: Kalendar2.pas
File exe: Kalendar2.exe

Zostavte program, ktorý bude pre zadaný rok zisťovať, ktorý najbližšie vyšší rok bude začínať tým istým dňom v týždni.
{ KALENDAR2.PAS                                 Copyright (c) (R)kl }
{ Zostavte program, ktorý bude pre zadaný rok zisova, ktorý       }
{ najbližšie vyšší rok bude začína tým istým dňom v týždni.        }
{                                                                   }
{ Datum:16.03.2005                             http://www.trsek.com }
 
program kalendar2;
uses crt;
var year,y1,i,n,s:integer;
 
function prestupny(rok:integer):integer;
begin
     if (rok mod 100<>0) and (rok mod 4=0) or (rok mod 400=0)
                          then Prestupny:=2
                          else prestupny:=1;
end;
 
begin
     Write('Na kolky rok mas kalendar ? ');readln(year);
     Write('Kolko opakovani ? ');readln(n);
     s:=0; y1:=year;
     for i:=1 to n do
     begin
          repeat
                y1:=y1+1; s:=s+prestupny(y1);
          until (s mod 7=0) and (prestupny(year)=prestupny(y1));
          writeln(i,'. rok = ',y1)
     end;
     readln;
end.