[ em!r @ 22.12.2005. 19:30 ] @
Treba mi pomoc oko pascala.
Naime idem u informaticku skolu i ucimo rad u pascalu.
Nastavnik informatike to jest razrednik dao nam je jedan veoma tezak zadatak koji jos niko iz razreda i drugih razreda ne znam, pa je rekao ko uradi zadatak da ime 5 zakljucno i ako hocemo da potrazimo pomoc i da potrazimo preko interneta. Pa eto ko je voljan i ko zna ovaj zadatak neka mi pomogne. Mozda ste se vec susretali sa ovim zadatkom.

Zadatak glasi:
Napisati program za ucitavanje godine i da ispise koliko ima petaka 13.

Znaci kada upisemo neki godinu da nam program odmah izbaci koliko ta godina ima petaka 13. u toj godini.

Hvala!
[ Passwd @ 23.12.2005. 10:06 ] @
Citat:
em!r:...jedan veoma tezak zadatak...


Ova ti je dobra

Code:

program Za5;
uses crt;

function DayOfWeek(Day, Month, Year: Integer) : Integer;
var
century, yr, dw: Integer;
begin
if Month < 3 then
begin
Inc(Month, 10);
Dec(Year);
end
else
Dec(Month, 2);
century := Year div 100;
yr := year mod 100;
dw := (((26 * month - 2) div 10) + day + yr + (yr div 4) +
(century div 4) - (2 * century)) mod 7;
if dw < 0 then DayOfWeek := dw + 7
else DayOfWeek := dw;
end;

var dan,mjesec,godina,suma:integer;

begin
clrscr;

writeln('Upisite godinu: ');
readln(godina);
suma:=0;

for mjesec:=1 to 12 do
  for dan:=1 to 31 do
    begin
    if (DayOfWeek(dan,mjesec,godina)=5) and (dan=13) then inc(suma);
    end;


writeln('U zadanoj godini PETAKA 13 ima:', suma);

readln;
end.



p0z
[ Passwd @ 23.12.2005. 10:29 ] @
Evo, ovo ti je za +5 na kraju jer ispisuje i koji su to datumi u godini

Code:

program Za5;
uses crt;


function DayOfWeek(Day, Month, Year: Integer) : Integer;
var
century, yr, dw: Integer;
begin
if Month < 3 then
begin
Inc(Month, 10);
Dec(Year);
end
else
Dec(Month, 2);
century := Year div 100;
yr := year mod 100;
dw := (((26 * month - 2) div 10) + day + yr + (yr div 4) +
(century div 4) - (2 * century)) mod 7;
if dw < 0 then DayOfWeek := dw + 7
else DayOfWeek := dw;
end;

var dan,mjesec,godina,suma,x:integer;
    s1,s2,s3:string;
    datum:array [1..100] of string;

begin
clrscr;

writeln('Upisite godinu: ');
readln(godina);
suma:=0;

for mjesec:=1 to 12 do
  for dan:=1 to 31 do
    begin
    if (DayOfWeek(dan,mjesec,godina)=5) and (dan=13) then
           begin
           inc(suma);
           str(dan,s1);
           str(mjesec,s2);
           str(godina,s3);
           datum[suma]:=s1+'.'+s2+'.'+s3+'.';
           end;
    end;


writeln('U zadanoj godini PETAKA 13 ima:', suma);
writeln('Datumi:');
 for x:=1 to suma do
    begin
    writeln(datum[x]);
    end;

readln;
end.
[ Srki_82 @ 23.12.2005. 13:41 ] @
Za 10+ napraviti program koji tacno radi i za recimo 1234 godine pre nove ere

Mozda ova funkcija radi dobro i za te slucjave?

[Ovu poruku je menjao Srki_82 dana 23.12.2005. u 14:42 GMT+1]
[ Passwd @ 23.12.2005. 15:37 ] @
Trebala bi da radi
[ em!r @ 25.12.2005. 12:07 ] @
E hvala vam na ovome.