[es] - Exitcode 201 u jednostavnom programu

93 Stefan
Stefan 93

Član broj: 208278
Poruke: 624
*.dynamic.sbb.rs.

+13 Profil

Exitcode 201 u jednostavnom programu

^{21.05.2010. u 20:27 - pre 169 meseci}

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

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

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Exitcode 201 u jednostavnom programu

^{21.05.2010. u 23:55 - pre 169 meseci}

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

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

Odgovor na temu

93 Stefan
Stefan 93

Član broj: 208278
Poruke: 624
*.dynamic.sbb.rs.

+13 Profil

Re: Exitcode 201 u jednostavnom programu

^{22.05.2010. u 11:45 - pre 169 meseci}

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.

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

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Exitcode 201 u jednostavnom programu

^{22.05.2010. u 12:25 - pre 169 meseci}

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

Odgovor na temu

miniplazma

Član broj: 240037
Poruke: 68
*.crnagora.net.

Profil

Re: Exitcode 201 u jednostavnom programu

^{26.05.2010. u 19:52 - pre 169 meseci}

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)

Odgovor na temu

93 Stefan
Stefan 93

Član broj: 208278
Poruke: 624
*.dynamic.sbb.rs.

+13 Profil

Re: Exitcode 201 u jednostavnom programu

^{26.05.2010. u 23:10 - pre 169 meseci}

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

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

Odgovor na temu