Задача по файлам, Помогите исправить Опции

[Roise]

Знач так, дан файл f компонентами которого являеются целые числа. Файл создается с такими компонентами y = -5 + random (10). Сформировать новый файл g следующим образом: переписать содержимое файла f так, что бы сначала шли положительные числа, потом нули, а потом отрицательные числа, сохраняя порядок следования чисел.
Криво, косо, но вот что получилось:

Program Raz3_3;
uses crt;
var
 f1,f2,f3,f4:text;
 x1,t,l,y,k,i,s,n:integer;
Begin
 clrscr;
 assign (f1,'file.txt');
 rewrite (f1);
 for k:=1 to n do
  begin
  y:=-5+random(10);
  write(f1,y,' ');
  end;
 s:=0;
 l:=0;
 t:=0;
 reset (f1);
 assign (f2,'posit.txt');
 assign (f3,'zero.txt');
 assign (f4,'negat.txt');
 reset (f1);
 rewrite (f2);
 rewrite (f3);
 rewrite (f4);
 for i:=1 to n do
  begin
  read (f1, x1);
  if x1>0 then
   begin
   write (f2,x1,' ');
   t:=t+1;
   end
  else
   begin
   if x1=0 then
    begin
    write (f3,x1,' ');
    s:=s+1
    end
   else
    begin
    write (f4,x1,' ');
    l:=l+1;
    end;
   end;
  end;
  reset (f3);
  append (f2);
  for i:=1 to s do
   begin
   read (f3, x1);
   write (f2,x1,' ');
   end;
  close(f1);
  close(f2);
  close(f3);
  close(f4);
 end.

Пли-и-из, оч прошу помочь тугодуму заставить это сырое нечто работать :molitva:

ЗЫ Эх, мне бы еще научиться, как сделать так, что бы найти в текстовом файле строкус максимальным количеством слов и вывести ее на экран, но я понимаю, что за бесплатно таки вещи не делаются... Но если вдруг очень добрая и бескорыстная душа найдется... -___-

[mafia1232]

Значит так, дан файл f компонентами которого являются целые числа. Файл создается с такими компонентами y = -5 + random (10). Сформировать новый файл g следующим образом:чтоб перед каждым положительным числом ставился "0" (без ковычек):

Код

Program p3_3;
uses crt;

const
 n = 20;

var
 f_in, f_out: text;
 i, y,z, zeroes: integer;

begin
 clrscr;
 assign(f_in,'byka.txt');
 rewrite(f_in);
 for i := 1 to n do begin
   y := -5 + random(10);
   write(f_in, y, ' ')
 end;
 assign(f_out,'byka1.txt');
 rewrite(f_out);
 reset(f_in); zeroes := 0;
 while not seekeof(f_in) do begin
   read(f_in, y);
   if y > 0 then write(f_out, z, ' ', y, ' ')
   else if y = 0 then inc(zeroes);
 end;
   y := 0;
 for i := 1 to zeroes do
   write(f_out, y, ' ');
  reset(f_in);
 while not seekeof(f_in) do begin
   read(f_in, y);
   if y < 0 then write(f_out, y, ' ')
 end;
 close(f_out);
 close(f_in);
end.

правильно ли она работает?

Сообщение отредактировано: mafia1232 - 21.06.2005 16:57