Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Trebam pomoc za jedan zadatak

[es] :: Pascal / Delphi / Kylix :: Trebam pomoc za jedan zadatak

[ Pregleda: 3073 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

em!r
HDD

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

Sajt: www.nema-jos.com


Profil

icon Trebam pomoc za jedan zadatak22.12.2005. u 19:30 - pre 196 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

icon Re: Trebam pomoc za jedan zadatak23.12.2005. u 10:06 - pre 196 meseci
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
 
Odgovor na temu

Passwd

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



Profil

icon Re: Trebam pomoc za jedan zadatak23.12.2005. u 10:29 - pre 196 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

icon Re: Trebam pomoc za jedan zadatak23.12.2005. u 13:41 - pre 196 meseci
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]
 
Odgovor na temu

Passwd

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



Profil

icon Re: Trebam pomoc za jedan zadatak23.12.2005. u 15:37 - pre 196 meseci
Trebala bi da radi
 
Odgovor na temu

em!r
HDD

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

Sajt: www.nema-jos.com


Profil

icon Re: Trebam pomoc za jedan zadatak25.12.2005. u 12:07 - pre 195 meseci
E hvala vam na ovome.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Trebam pomoc za jedan zadatak

[ Pregleda: 3073 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.