Question

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

Answer 1

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.

Answer 2

Для того чтобы решить данную задачу на языке Pascal ABC, нужно выполнить следующие шаги:

1. Открыть файл des.dat для чтения.
2. Открыть два дополнительных файла для записи положительных и отрицательных чисел.
3. Прочитать числа из файла des.dat одно за другим.
4. Проверить каждое число на положительность или отрицательность.
5. Записать положительные числа в один файл и отрицательные в другой.

Ниже представлен пример программы на языке Pascal ABC, выполняющей описанные шаги:

pascalCopy code
program SplitNumbers;

var
  inputFile, positiveFile, negativeFile: text;
  num: integer;

begin
  Assign(inputFile, 'des.dat');
  Assign(positiveFile, 'positive.dat');
  Assign(negativeFile, 'negative.dat');

  Reset(inputFile); // Открываем файл для чтения
  Rewrite(positiveFile); // Открываем файл для записи
  Rewrite(negativeFile); // Открываем файл для записи

  while not Eof(inputFile) do
  begin
    Read(inputFile, num); // Читаем число из файла

    if num >= 0 then
      Write(positiveFile, num, ' ') // Записываем положительное число в positive.dat
    else
      Write(negativeFile, num, ' '); // Записываем отрицательное число в negative.dat
  end;

  Close(inputFile); // Закрываем файл
  Close(positiveFile); // Закрываем файл
  Close(negativeFile); // Закрываем файл
end.

Пожалуйста, убедитесь, что у вас есть файл des.dat с целыми числами, которые нужно разделить на положительные и отрицательные числа. Программа создаст два новых файла positive.dat и negative.dat, в которых будут содержаться положительные и отрицательные числа соответственно.