File13. Дан файл целых чисел. Создать два новых файла, первый из которых содержит положительные числа из исходного файла (в обратном порядке), а второй — отрицательные (также в обратном порядке). Если положительные или отрицательные числа в исходном файле отсутствуют, то соответствующий результирующий файл оставить пустым.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | program File13; var S:String; F_in,F_out1,F_out2: File of Integer; i,temp,len:integer; begin Write('File: '); Readln(S); Assign(F_in,S); Reset(F_in); Write('File_out 1: '); Readln(S); Assign(F_out1,S); ReWrite(F_out1); Write('File_out 2: '); Readln(S); Assign(F_out2,S); ReWrite(F_out2); len:=1; while (not eof(F_in)) do begin Read(F_in,temp); inc(len); end; while (len>0) do begin Close(F_in); Reset(F_in); i:=1; while (not eof(F_in)) and (i<>len) do begin Read(F_in,temp); inc(i); end; if temp>0 then Write(F_out1,temp); if temp<0 then Write(F_out2,temp); dec(len); end; Close(F_in); Close(F_out1); Close(F_out2); end. |
С ++
program file13;
var
f1,f2,f3,f22,f33:file of integer;
s1,s2,s3,s4,s5:string;
n2,n3,n,i,i1:integer;
begin
writeln(‘f1=f3′);
readln(s1);
assign(f1,s1);
{$I-}
reset(f1);
if IOResult=0 then begin
s2:=’4et’;s3:=’ne4et’;
assign(f2,s2);
assign(f3,s3);
rewrite(f2);
rewrite(f3);
//n:=1;
n2:=0;n3:=0;
while not eof(f1) do begin
read(f1,i);
if (i>=0) then begin write(f2,i);inc(n2,1);end
else begin write(f3,i);inc(n3,1);end;
//inc(n,1);
end;
close(f1);close(f2);close(f3);
writeln(n2,’ ‘,n3);
end;//iores
s4:=’plus’;s5:=’minus’;
assign(f22,s4);
assign(f33,s5);
rewrite(f22);
reset(f2);
n:=n2;
for i:=1 to n2 do begin
seek(f2,n2-i);
read(f2,i1);
write(f22,i1);
end;
close(f2);
rewrite(f33);
reset(f3);
n:=n3;
for i:=1 to n3 do begin
seek(f3,n3-i);
read(f3,i1);
write(f33,i1);
end;
close(f3);
reset(f22);
while not eof(f22) do begin
read(f22,i);write(i,’ ‘);
end;close(f22);
writeln();
reset(f33);
while not eof(f33) do begin
read(f33,i);write(i,’ ‘);
end;close(f33);
writeln();
end.