Помощь - Поиск - Пользователи - Календарь
Полная версия: Файлы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Anastacia Adesso
Вы наверное сейчас посмеётесь..
Это самый идиотский способ делать программу..
Тем более не компилируется

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

Не знаю как сделать просто.. unsure.gif
Нажмите для просмотра прикрепленного файла
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

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

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
Спасибо!! Теперь поняла вроде! good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.