Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Файлы

Автор: Anastacia Adesso 4.12.2006 18:28

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

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

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

Автор: klem4 4.12.2006 19:27

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

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.



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


Прикрепленные файлы
Прикрепленный файл  f1.txt ( 14 байт ) Кол-во скачиваний: 218
Прикрепленный файл  f2.txt ( 7 байт ) Кол-во скачиваний: 215

Автор: volvo 4.12.2006 19:32

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

Автор: Anastacia Adesso 5.12.2006 15:02

klem4

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

volvo

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

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

Автор: volvo 5.12.2006 15:14

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

Вот тут: http://forum.pascal.net.ru/index.php?s=&showtopic=6887&view=findpost&p=50137

Автор: Anastacia Adesso 5.12.2006 17:35

volvo
Здорово!!

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

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

function get_num(var f: text): integer;

насколько я поняла, она читает строку файла пока не найдёт НЕ цифру, значит отделит определённое число.
А вот строки
begin .....
  get_num := -1;
 ......
    get_num := X
  end;
end;

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

Автор: volvo 5.12.2006 17:42

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

Автор: Anastacia Adesso 5.12.2006 17:52

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