Pravilo ovog foruma je da ti niko neće odraditi kompletan zadatak već će ti samo pomoći da ga sam završiš. Dakle, probaj sam da napišeš ono što znaš pa postavi ovde, a onda će te neko ispraviti ili ti pomoći da sam završiš to što si započeo. Ideja je da se potrudiš bar malo, pa tražiš pomoć ako zapne.

Ja sam bio bolestan pa sam dosao u skolu. Pa tako da su oni ovo radili dok sam bio na "bolovanju" Tako da nezz uraditi zadatak. Profesor mi je rekao da moram uraditi ovaj zadatak za zadacu i da ce me ocjeniti. Ukoliko mozete da uradite zadatak molim Vas pomozite !!!

Da li znaš zatadak koji ste radili pre ovog? Kako unosiš datum (kojom komandom)? Koji tip promenljive ćeš koristiti? Da li ste radili nizove (array)? Pomozi nam da ti pomognemo. Ceo zadatak ćeš teško dobiti.

Radili smo slicne zadatke poput ovog:


Napisati funkciju koja će za zadati datum ispisati koliko je dana proslo od nove godine.

Program xy;
Uses WinCrt;

Type datum = Recordd
dan : 1...31;
mjesec : 1..12;
God : integer ;
end.
Var d : datum;
i, br (rezlicito od nula) : integer ;

Begin
brd:razlicito od 0
Write (' unesite dan !) ;
Readln ( d.dan) ;
Write ('Unesite mjesec !) ;
Readln (d.mj) ;
Write ('Unesite godinu !) ;
Readln (d.god) ;
For i:= to (d.mj-1) do



Tako ide zadatak nema kraja

> Napisati funkciju koja će zadati datum u obliku DAN,MJESEC,GODINA ispisati tako da broj mjeseci pretvori u IME Mjeseca .
> NPR->12.03.2011 da pretvori u 12.Mart.2011.

Ne znam da li možeš koristiti nizove konstanti npr:

const
Meseci: array[1..12] of string = ('Januar', 'Februar', 'dopuni ostalo');

i to kasnije upotrebiš (pošto izdvojiš mesec kao broj), otprilike ovako
NazivMeseca := Meseci[MesecBroj];
Ako to ne možeš koristiti onda probaj sa case MesecBroj of ... a ako ni to moraćeš preko if...

uredu ja cu sada pokusat urediti taj zadatak na komp ako nebude moglo javljam se opet


HVALA ZA OVO SADA

Pokusao sam i sa Case of i sve ali uvijek nece da mi uradi zadatak izbacuje greske neke. Ukoliko neko moze da pomogne neka pomogne platiti cu mu samo da mi uradi ovu zadacu !!!

> Pokusao sam i sa Case of i sve ali uvijek nece da mi uradi zadatak izbacuje greske neke. Ukoliko neko moze da pomogne neka pomogne platiti cu mu samo da mi uradi ovu zadacu !!!

Negde grešiš, pokaži kod i koje greške dobijaš.