Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: Kalendarz

W dół

Od 1 do 3 z 3

  1.  
  1.  
    Witam! Mam do napisania program w pascalu, który wczytuje datę (dd,mm,rrrr) i wypisuje jaki to był dzień tygodnia. Ściągnąłem kod z wikipedii "wieczny kalendarz" ale nie umiem go za bardzo wykorzystać. Proszę o pomoc i z góry dziękuję.
    • CommentAuthorsteficzek
    • CommentTime21 Dec 2007 zmieniony
     

    function DzienTygodnia(Dzien,Miesiac,Rok : Integer) : string;
    const Dni : array [0..6] of string = ('Niedziela','Poniedzialek','Wtorek','Sroda','Czwartek','Piatek','Sobota');
    var Tydzien,Wynik : Integer;
    begin
    if Miesiac>2 then Miesiac:=Miesiac-2
    else begin
    Miesiac:=Miesiac+10;
    Rok:=Rok-1
    end;
    Tydzien:=Rok div 100;
    Rok:=Rok mod 100;
    Wynik:= (Dzien+(13*Miesiac-1) div 5+Rok+Rok div 4+Tydzien div 4+5*Tydzien) mod 7;
    DzienTygodnia:= Dni[Wynik]
    end;

    Begin
    Writeln(DzienTygodnia(22,12,2007))
    End.

    Wygrzebałem z jednego ze swoich starych programów taką funkcję, myślę że będzie działać, gdyby były przekłamania daj znać, bo nie miałem kiedy jej dokładnie wytestować

    Pozdrawiam Stefan Pruszkiewicz
  3.  
    Super wszystko śmiga tak jak powinno!!! Wielkie dzięki bo 1 case mam już z głowy :) pozdrawiam!! RF

Od 1 do 3 z 3

  1.