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
sad