Trebam pomoc za jedan zadatak

Trebam pomoc za jedan zadatak 22.12.2005. u 20:30 · pre 253 meseca #1

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!

Re: Trebam pomoc za jedan zadatak 23.12.2005. u 11:06 · pre 253 meseca #2

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

Re: Trebam pomoc za jedan zadatak 23.12.2005. u 11:29 · pre 253 meseca #3

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.

Re: Trebam pomoc za jedan zadatak 23.12.2005. u 14:41 · pre 253 meseca #4

Za 10+ napraviti program koji tacno radi i za recimo 1234 godine pre nove ere

Mozda ova funkcija radi dobro i za te slucjave?

Potpis

Play Store

Re: Trebam pomoc za jedan zadatak 23.12.2005. u 16:37 · pre 253 meseca #5

Trebala bi da radi

Re: Trebam pomoc za jedan zadatak 25.12.2005. u 13:07 · pre 253 meseca #6

E hvala vam na ovome.

Forum kao aplikacija na telefonu

Srodne teme