profile
Опубликовано 6 лет назад по предмету Информатика от daa58637

Для файла целых чисел des.dat перепишите положительные числа в один дополнительный файл, а отрицательные – в другой. Pascal ABC

  1. Ответ
    Ответ дан DonPedro80
    var
      f,fo,fp:file of integer;
      i,n:integer;
    begin
      { создать файл }
      randomize;
      assign(f,'des.dat');
      rewrite(f);
      for i:=1 to 20 do
      begin
        n:=random(101)-50;
        Write(n,' ');
        Write(f,n)
      end;
      close(f);
      Writeln;
      { работа с файлами }
      reset(f);
      assign(fo,'deso.dat');
      rewrite(fo);
      assign(fp,'desp.dat');
      rewrite(fp);
      while not eof(f) do
      begin
        Read(f,n);
        if n>0 then Write(fp,n)
        else if n<0 then Write(fo,n)
      end;
      close(f);
      close(fo);
      close(fp)
    end.
Самые новые вопросы