odredjivanje sutrasnjeg dana? u paskalu

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pozdrav
Da li je i kako moguce, da za uneti datum mesec i godinu odredi to za sutrasnji dan...
Potrebno je koristiti naredbu CASE , ali problem mi je u tome sto treba da se pazi na prestupnu godinu, treba paziti koliko dana ima mesec koji je unet, da li ce krenuti od 1 dana u sledecm mesecu, ili ce jednostavno samo promeniti dan za +1...
Kako se ovo moze izvesti? Ako je moguce da mi napisete taj deo koda...
Hvala

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Samo dodati 1 na rezultat (ako ti je TDateTime promenjiva).
Ako ti treba bez casova/min/sec samo uradi FRAC()

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

problem je sto to mi nismo jos radili, jedino sto smo iz pascal-a radili jesu if i case naredbe
a treba mi za datum mesec i godinu da odredi sutrasnji dan... tj. mesec i god ukoliko se menja...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

staviti u case da se gleda uneti mesec redom jan, mart maj itd tj 1,3,5,7, 8,10 i 12 ima 31 dan i da onda prelazi na sledeci mesec, u slucajevima, 4,6,9 i 11 staviti da mesec ima 30 dana i u slucaju 2 tj februara postaviti pitanje za korisnika da li je godina prestupna ili jednostavno ako je vec uneta godina, godinu podeliti sa 4 i ako je dobijena celobrojna vrednost onda je to prestupna godina
to je ideja, a pisanje koda prepustamo tebi, vezbaj se

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

hvala ti na pomoci, ali ne mogu da napisem kod.
Nema veze, ionako ce sledeci cas profesor da ga uradi pa cu videti.
Ideja mi je jasna, ali kad pokusam da uradim algoritamsku semu za if naredbu, ja se izgubim, a case naredbu smo tek poceli da koristimo i to ono prostijeg tipa, tako da ne mogu da povezem sve ovo odjednom, jel smo radili samo jedan cas case, tako da nismo radili nista komplikovano, a ovo bas i nije jednostavno....
Nije ni bitno
Hvala u svakom slucaju

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ovo je tipican zadatak za case naredbe koji je najprostije tezine, od ovog nema lakse za case, osim naravno mozda za uneti broj ispisi dan u nedelji.

Meni je najlakse bilo da algoritme ucim tako sto tekstualno napisem resenje zadatka i onda svaku recenicu da predstavim graficki, tako sam najlakse naucila logiku razmisljanja.

Sta ti je problem kod if-a?!
Stavi da ako je godina deljiva sa cetiri tj celobrojna vrednost se dobija onda ide da februar ima 28 dana inace ima 29. Nema bre prostijeg od ovog.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@NikolaWebmaster
Jeste, malo je komplikovano. Nasla sam staru svesku, evo ti kod za sutrasnji datum:

program ds(input, output); var   dan: 1..31;   mesec: 1..12;   godina: 1900..2000;   brojdanaumesecu: 28..31; begin   read(dan, mesec, godina);   case mesec of     1,3,5,7,8,10,12: brojdanaumesecu := 31;     4,6,9,11; brojdanaumesecu := 30;     2: if godina mod 4 = 0 then           brojdanaumesecu := 29         else brojdanaumesecu:=28;   end;   if dan = brojdanaumesecu then   begin     dan := 1;     if mesec = 12 then     begin       mesec := 1;       godina := godina + 1;     end     else       mesec := mesec + 1;   end   else     dan := dan + 1;     write(dan,mesec,godina); end.

Ne znam da li radi, proveri ti. Odavno to ne radim u Pascal.


Da bi razumeo sta MOD znaci:
DIV - celobrojno deljenje
MOD - izdvajanje ostatka pri celebrojnom deljenju.

izgleda ovako:
a DIV b : npr. 15 DIV 2 = 7; 2 DIV 4 = 0; -5 DIV 2 = -2
a MOD b = a - (a DIV b) * b : npr. 15 MOD 2 = 1, 2 MOD 4 = 2


p.s. da li ides u srednju skolu?


Edit by Srki_82: koristi code tag za pisanje koda

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

pozdrav Kaca
Hvala ti mnogo, analiziracu kod koji si mi dala.
Da idem u srednju skolu, tacnije u gimnaziju, tek smo poceli da radimo paskal, znao sam za ovo div i mod, ali hvala u svakom slucaju.
P.S. Do sada sam se bavio samo izradom internet sajtova, sad i ovo ucim....

Hvala puno.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Molim i drugi put.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Prekucao sam, i radi, bilo je par grescica, tipa izostavljeno (;) i sl... al snasao sam se

hvala jos jednom