Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zadatak iz Paskala, ukažite mi na grešku...

[es] :: Pascal / Delphi / Kylix :: Zadatak iz Paskala, ukažite mi na grešku...

[ Pregleda: 1726 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

zyclon.maya

Član broj: 319706
Poruke: 7
*.dynamic.isp.telekom.rs.



+1 Profil

icon Zadatak iz Paskala, ukažite mi na grešku...16.12.2013. u 18:46 - pre 125 meseci
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.
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Zadatak iz Paskala, ukažite mi na grešku...16.12.2013. u 21:53 - pre 125 meseci
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.
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Zadatak iz Paskala, ukažite mi na grešku...16.12.2013. u 22:06 - pre 125 meseci
Code (delphi):
 writeln(Unesite 4 broja');


apostrof
F
 
Odgovor na temu

zyclon.maya

Član broj: 319706
Poruke: 7
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Zadatak iz Paskala, ukažite mi na grešku...16.12.2013. u 22:22 - pre 125 meseci
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..
 
Odgovor na temu

zyclon.maya

Član broj: 319706
Poruke: 7
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Zadatak iz Paskala, ukažite mi na grešku...16.12.2013. u 22:50 - pre 125 meseci
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.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Zadatak iz Paskala, ukažite mi na grešku...

[ Pregleda: 1726 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.