Exitcode 201 u jednostavnom programu

Exitcode 201 u jednostavnom programu 21.05.2010. u 21:27 · pre 200 meseci #1

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

Potpis

Izvinjavam se svima koje sam razgnevio svojim pisanjima. Trudiću se da se popravim.

Re: Exitcode 201 u jednostavnom programu 22.05.2010. u 00:55 · pre 200 meseci #2

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

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

Re: Exitcode 201 u jednostavnom programu 22.05.2010. u 12:45 · pre 200 meseci #3

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.

Potpis

Izvinjavam se svima koje sam razgnevio svojim pisanjima. Trudiću se da se popravim.

Re: Exitcode 201 u jednostavnom programu 22.05.2010. u 13:25 · pre 200 meseci #4

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

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

Re: Exitcode 201 u jednostavnom programu 26.05.2010. u 20:52 · pre 200 meseci #5

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)

Re: Exitcode 201 u jednostavnom programu 27.05.2010. u 00:10 · pre 200 meseci #6

Hvala! Svašta, nije nam uopšte spomenula do sada taj tip podataka longint, a zadala nam ovaj zadatak...

Potpis

Izvinjavam se svima koje sam razgnevio svojim pisanjima. Trudiću se da se popravim.

Forum kao aplikacija na telefonu

Srodne teme