Файлы, Числа по возрастанию Опции

[Anastacia Adesso]

Вы наверное сейчас посмеётесь..
Это самый идиотский способ делать программу..
Тем более не компилируется

Надо читать два файла, где числа по возрастанию расположены и отделены запятой.
И в третий файл объединить оба чтоб числа опять же были в возрастающеё последовательности..

Не знаю как сделать просто..
 UZD1.PAS ( 798 байт ) Кол-во скачиваний: 608

[klem4]

Запятая обязательно ? Если да, то можно ли ичпользовать строки или еще что-нибудь? Вот если зазделены пробелом то вот так:

uses crt;

var
  f1, f2, f3: Text;

  a, b: Integer;

  _eof, null_a, null_b: Boolean;
begin

  assign(f1, 'C:\f1.txt'); reset(f1);
  assign(f2, 'C:\f2.txt'); reset(f2);
  assign(f3, 'C:\f3.txt'); rewrite(f3);

  read(f1, a);
  read(f2, b);

  _eof := false;

  null_a := false;
  null_b := false;

  repeat

    if a <= b then begin
      write(f3, a, ' '); null_a := true;

      if not(eof(f1)) then begin
        read(f1, a);
        null_a := false;
      end
       else _eof := true;
    end
     else begin
       write(f3, b, ' '); null_b := true;
       if not(eof(f2)) then begin
         read(f2, b);
         null_b := false;
       end
        else _eof := true;
     end;

  until _eof;

  if not(null_a) then write(f3, a, ' ');
  if not(null_b) then write(f3, b, ' ');

  if not(eof(f1)) then begin

    while not(eof(f1)) do begin
      read(f1, a);
      write(f3, a, ' ');
    end;

  end else while not(eof(f2)) do begin
    read(f2, b);
    write(f3, b, ' ');
  end;

  close(f1);
  close(f2);
  close(f3);

end.

Тестовый файлы в аттаче

[volvo]

В поиск по форуму... Я приводил процедуру, которая читает числа из текстового файла независимо от разделителя...

[Anastacia Adesso]

klem4

Спасибо, великолепная прграмма!!
Только вот всё-таки, в каком именно её куске видно, что разделитель - это пробел?

volvo

Честно смотрела поиск, твоей процедуры не нашла..
В какой теме хоть её найти можно?

Запрос Чтение чисел из файла - не может быть обработан

[volvo]

В какой теме хоть её найти можно?

Вот тут: Помогие с запятыми

[Anastacia Adesso]

volvo
Здорово!!

А можно спросить?

Вот в этой функции

function get_num(var f: text): integer;

насколько я поняла, она читает строку файла пока не найдёт НЕ цифру, значит отделит определённое число.
А вот строки

begin .....
  get_num := -1;
 ......
    get_num := X
  end;
end;

для чего нужно задавать значение -1 ?

[volvo]

А ты обрати внимание, что если (когда начинается работа функции) мы уже находимся в конце файла (ну, точнее - после текущей позиции уже нет символов, фактически это одно и то же), то ничего не происходит, и возвращается -1 как признак конца файла. В основной программе можно при получении -1 прекращать обработку файла (естественно, если у тебя в файле могут храниться и отрицательные числа - то надо какой-то другой признак, например, -32767, да и функцию придется немного переделать)

[Anastacia Adesso]

Спасибо!! Теперь поняла вроде!