[es] - Trebam pomoc za jedan zadatak

em!r
HDD

Član broj: 71506
Poruke: 14
*.dlp170.bih.net.ba.

Sajt: www.nema-jos.com

Profil

^{22.12.2005. u 19:30 - pre 222 meseci}

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!

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Trebam pomoc za jedan zadatak

^{23.12.2005. u 10:06 - pre 222 meseci}

Citat:

em!r:...jedan veoma tezak zadatak...

Ova ti je dobra

p0z

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Trebam pomoc za jedan zadatak

^{23.12.2005. u 10:29 - pre 222 meseci}

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.

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil