[ 93 Stefan @ 21.05.2010. 20:27 ] @
Ćao svima, dobili smo neke zadatke od profesorke i evo ga jedan:
Citat:
Napisati f-ju i program kojim se štampaju svi trocifreni brojevi koji su jednaki sumi faktorijela svojih cifara!

Code:
program xyz;
var i:integer;
function fakt(x:integer):integer;
var i,p:integer;
begin
p:=1;
if x=0 then fakt:=1
         else
         begin
         for i:=x downto 1 do
              p:=p*i;
         fakt:=p
         end
end;
begin
for i:=100 to 999 do
if fakt(i mod 10)+fakt(i div 10 mod 10)+fakt(i div 100)=i then writeln (i);
readln
end.

Normalno ga kompajlira i kad ga pokrenem izbaci mi grešku i exitcode = 201.
Gde sam pogrešio? I da li bi ta greška mogla da se primeti kad radimo pismeni, onako u svesci? Ipak ih ona neće pokretati, pa da joj izbaci ovu grešku...
[ savkic @ 21.05.2010. 23:55 ] @
> Normalno ga kompajlira i kad ga pokrenem izbaci mi grešku i exitcode = 201.
> Gde sam pogrešio? I da li bi ta greška mogla da se primeti kad radimo pismeni, onako u svesci? Ipak ih ona neće pokretati, pa da joj izbaci ovu grešku...

Kod radi u Delphiju, 201 je verovanto range check error ali to proveri u kompajleru koji koristiš. Moguće je da integer tamo ima svega dva bajta i da vrednost faktorijela prelazi max moguću vrednost, pokušaj da koristiš neki drugi tip podatka ili proveri postoji li neko setovanje za integer tip.
[ 93 Stefan @ 22.05.2010. 11:45 ] @
Još nismo radili Delphi, pa ništa od toga... Radio sam u onom Free Pascal v2.4.0. Moguće da njemu nešto fali, ipak je besplatan i pitanje koliko su mu se posvetili... Potražio sam malo po internetu i jeste taj range check error... Koji drugi tip podataka? Ja jedino znam još za real, boolean, char i nijedan od njih ne može da se iskoristi. Ne verujem da bi nešto značilo da sam stavio za fakt i i da su im vrednosti 1..999.
[ savkic @ 22.05.2010. 12:25 ] @
> još nismo radili Delphi, pa ništa od toga... Radio sam u onom Free Pascal v2.4.0.

Free pascal compiler?

> Moguće da njemu nešto fali, ipak je besplatan i pitanje koliko su mu se posvetili... Koji drugi tip podataka?

Ako je FPC, to je ozbiljan kompajler koji ima podršku za 4bajtni integer, ti ili targetuješ neki 16bitni sistem ili imaš neki switch za 2bajtni integer, pogledaj:
http://wiki.freepascal.org/Integer.

> Ne verujem da bi nešto značilo da sam stavio za fakt i i da su im vrednosti 1..999.

Faktorijel od broja 9 je 362880 tako da mora tip sa 4 bajta.
[ miniplazma @ 26.05.2010. 19:52 ] @
Code:
program xyz;
var i:integer;
function fakt(x:integer):longint;
var i:integer;
     p:longint;
begin
p:=1;
if x=0 then fakt:=1
         else
         begin
         for i:=x downto 1 do
              p:=p*i;
         fakt:=p
         end
end;
begin
for i:=100 to 999 do
if fakt(i mod 10)+fakt(i div 10 mod 10)+fakt(i div 100)=i then writeln (i);
readln
end.


Umjesto integera funkcija će vraćati longint(zbog faktorijela broja 9)

[ 93 Stefan @ 26.05.2010. 23:10 ] @
Hvala! Svašta, nije nam uopšte spomenula do sada taj tip podataka longint, a zadala nam ovaj zadatak...