Zadatak iz pascala !!! Mozel pomoc da mi neko odradi zadatak ???

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.

Mozel mala pomoc? Da mi neko odradi zadatak od
Begin pa na dalje ...

Molim Vas, pomozite :)

Potpis

sad

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.

Potpis

"There is a theory which states that if ever anybody discovers exactly what the
Universe is for and why it is here, it will instantly disappear and be replaced by
something even more bizarre and inexplicable. There is another theory which states
that this has already happened."
-- Douglas Adams

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 !!!

Potpis

sad

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

Potpis

sad

> 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...

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

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


HVALA ZA OVO SADA

Potpis

sad

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 !!!

Potpis

sad