Help - Работа с файлами Опции

[ursus]

Помогите решить!!!!!!!!!!!, please!!!!
Для зачета 1 осталась:
Число компонент файла f, компонентами которого являются целые числа кратно 10. Преписать компоненты файла f в файл g, изменяя порядок чисел в каждой десятке так, чтобы вначале шли отрицательные числа десятки, а за ними - неотрицательные

[Clon]

Ну вот примерно так, если, конечно, я правильно понял задание

program ubu(input,output);
var
a:array[1..100] of integer;
i,n,c,j,k,u,m:integer;
g,f:file of integer;
y:char;
procedure vvod;
begin
write('vvedite chislo komponent:');
readln(n);
if (n mod 10)=0 then
   begin
   rewrite(f);
   writeln('vvedite komponenti');
   for i:=1 to n do
       begin
       read©;
       write(f,c);
       end;
   close(f);
   end
   else
   begin
   writeln('input error');
   vvod;
   end;
end;
procedure print;
begin
reset(f);
while not eof(f) do
      begin
      read(f,c);
      write©;
      write(' ');
      end;
close(f);
end;
procedure active;
begin
k:=1;
m:=1;
rewrite(g);
reset(f);
while not eof(f) do
      begin
      for j:=1 to 10 do
          begin
          read(f,c);
          if c>0 then
             begin
             a[k]:=c;
             k:=k+1;
             end;
          if c<0 then
             begin
             write©;
             write(' ');
             end;
          end;
      for u:=1 to k-1 do
          begin
          write(a[u]);
          write(' ');
          end;
      k:=1;
      end;
close(f);
close(g);
end;
begin
assign(f,'f');
assign(g,'g');
writeln('hotite vvesti noviy file?y/n');
readln(y);
if y='y' then vvod;
writeln;
writeln('PRINT');
writeln;
print;
writeln;
writeln('OUTPUT');
writeln;
active;
end.

Сообщение отредактировано: volvo - 2.11.2006 23:09