[ zyclon.maya @ 16.12.2013. 18:46 ] @
Code:
program maksimumi;
var a,b,c,d,max4:integer;
function max(a,b:integer):integer;
var
 x:integer;
begin
 if (a>b) then
  x:=a
 else
  x:=b;

 max:=x;

end;
begin
 writeln(Unesite 4 broja');
 readln(a,b,c,d);
 max4:=max(max(a,b),max(c,d));
 writeln('Maksimum od 4 uneta broja je ',max4(a mod 10,b mod 10,c mod 10,d mod 10));
 readln;
end.


17 / 44 untitl~1.pas
Fatal: Syntax error, ) expected but ( found

Ovo mi prikazuje prilikom štampanja na kraju programa, problem je zagrada ispred ''max4''. Trudim se da sve zadatke odradim sam i do sada nisam imao problema, ali sada zaista ne vidim gde grešim, pa ako bi neko mogao da mi ukaže na grešku. Hvala unapred!

Edit: Zaboravih da napomenem da mi se u zadatku trazi štampanje najveće među poslednjim ciframa brojeva a,b,c,d.
[ reiser @ 16.12.2013. 21:53 ] @
Code:
writeln('Maksimum od 4 uneta broja je ',max4(a mod 10,b mod 10,c mod 10,d mod 10));


max4 ti je integer varijabla, a ne funkcija.
[ captPicard @ 16.12.2013. 22:06 ] @
Code (delphi):
 writeln(Unesite 4 broja');


apostrof
[ zyclon.maya @ 16.12.2013. 22:22 ] @
Citat:
captPicard: 
Code (delphi):
 writeln(Unesite 4 broja');


apostrof


Ma to je propust dok sam prekucavao ovde, napisao sam ja u prvom postu gde izbacuje grešku...

Citat:
reiser:
Code:
writeln('Maksimum od 4 uneta broja je ',max4(a mod 10,b mod 10,c mod 10,d mod 10));


max4 ti je integer varijabla, a ne funkcija.


Ja napisah posle "max4:=max(max(a,b),max(c,d));".. Mislio sam da ovako nešto može..

Je l' mi možete pomoći kako da rešim ovo, jedino da to ne bude dodavanjem neke nove funkcije, već mora biti odrađeno uz pomoć ove gore, već postojeće..
[ zyclon.maya @ 16.12.2013. 22:50 ] @
Hvala vam, ispravio sam kod.. Iako mi je reiser odmah rekao da mi je max4 varijabla, a ne funkcija, ja nisam registrovao.. nego nastavio i dalje da teram po svome.. :)
Hvala vam još jednom.. A evo i kod, čisto ako neki početnik kao i ja, bude zapeo kod nekog sličnog zadatka..
Code:
program maksimumi;
var
   a,b,c,d:integer;
function max(a,b:integer):integer;
var
   x:integer;
begin
     if (a>b) then x:=a
        else x:=b;
     max:=x;
end;
function max4(a,b,c,d:integer):integer;
begin
     max4:=max(max(a,b),max(c,d));
end;
begin
     writeln('Unesite 4 prirodna broja');
     readln(a,b,c,d);
     writeln('Maksimum zadnje cifre od 4 uneta broja je ',max4(a mod 10,b mod 10,c mod 10,d mod 10));
     readln;
end.