Вы наверное сейчас посмеётесь.. Это самый идиотский способ делать программу.. Тем более не компилируется
Надо читать два файла, где числа по возрастанию расположены и отделены запятой. И в третий файл объединить оба чтоб числа опять же были в возрастающеё последовательности..
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
4.12.2006 19:32
В поиск по форуму... Я приводил процедуру, которая читает числа из текстового файла независимо от разделителя...
Anastacia Adesso
5.12.2006 15:02
klem4
Спасибо, великолепная прграмма!! Только вот всё-таки, в каком именно её куске видно, что разделитель - это пробел?
volvo
Честно смотрела поиск, твоей процедуры не нашла.. В какой теме хоть её найти можно?
Запрос Чтение чисел из файла - не может быть обработан
насколько я поняла, она читает строку файла пока не найдёт НЕ цифру, значит отделит определённое число. А вот строки
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
Спасибо!! Теперь поняла вроде!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.