exitcode = 2, what is it?
lazarus / 16-Databases

----------------------------------------------------------------------
Noderius · 2013-08-24 17:32

ok, so here is my problem. i am trying to learn file using stuff and
all that, and i tried to write a simple program. in the file input.txt
there are 'n'-number of numbers in the massive, and 'a'. i have to
find all the numbers<'a' and write them in the beggining, how a
program finds it. here is my whole program:
.
,
program stuff(input,output);
var i,j,a,k,n,l:LongInt;
mas:=array[1..10000]of LongInt;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n,a);
k:=0;
for i:=1 to  n do
read(mas);
for i:=1 to n do begin
if mas<a then begin
j:=mas;
k:=i;
l:=k;
for k:=l downto 1 do
mas[k]:=mas[k-1];
mas[1]:=j;
end;
end;
for i:=1 to n do
write(mas:4);
close(input);
close(output);
end.
.
,
so
and after i get this
c:\fpc\2.6.0\bin\i386-win32\olimpiada.exe  exited with exitcode = 2
help me please, im trying to learn programming))
p.s. sorry for mistakes, my english is not very good, but i hope it
makes sense =)

----------------------------------------------------------------------
marcov · 2013-08-24 21:39

Quote from: Noderius on August 24, 2013, 07:32:33 pm

ok, so here is my problem. i am trying to learn file using stuff and
all that, and i tried to write a simple program. in the file input.txt
there are 'n'-number of numbers in the massive, and 'a'. i have to
find all the numbers<'a' and write them in the beggining, how a
program finds it. here is my whole program:

The OS/runtime assigns standard in and out to input and output . You
reuse them for external files, so if the RTL tries to closes them
after your program, they are already closed.

Solution: don't use the predefined input/output but declare own file
variables. (text type)
,
program stuff(input,output);
var i,j,a,k,n,l:LongInt;
mas:=array[1..10000]of LongInt;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n,a);
k:=0;
for i:=1 to  n do
read(mas);
for i:=1 to n do begin
if mas<a then begin
j:=mas;
k:=i;
l:=k;
for k:=l downto 1 do
mas[k]:=mas[k-1];
mas[1]:=j;
end;
end;
for i:=1 to n do
write(mas:4);
close(input);
close(output);
end.
.
,
so
and after i get this
c:\fpc\2.6.0\bin\i386-win32\olimpiada.exe  exited with exitcode = 2
help me please, im trying to learn programming))
p.s. sorry for mistakes, my english is not very good, but i hope it
makes sense =)
[/quote]