Делфи.Файлы. Два текста в файлах содержат растущие последовательности целых чисел. Вывести в третий файл общие значения

[Serge_Bliznykov]

BDA, именно так!!!

Джейн Эйр, разберите решение от BDA (нужно добавить описание переменных и открытие/закрытие файлов). Никакие массивы НЕ НУЖНЫ!!

Сообщение от Jane_Air

В третий файл вывело не все числа(

давайте угадаю...
в третий файл вывелись только числа, которые есть и в первом и во втором файлах??!!!

А Вы задание своё внимательно читали?!

Два текста в файлах содержат растущие последовательности целых чисел,разделенных пропусками.
Вывести в третий файл общие значения.

[SaLoKiN]

При разной длине файлов не пойдет...

UPD

давайте угадаю...
в третий файл вывелись только числа, которые есть и в первом и во втором файлах??!!!

а что тогда если не это?

[Serge_Bliznykov]

Сообщение от SaLoKiN

При разной длине файлов не пойдет...

не вижу причину, по которой код, предложенный BDA "не пойдёт", как Вы выражаетесь, при разной длине файлов.
Можете предоставить контр-пример?
(файлы разной длины, которые обрабатываются кодом BDA неверно?!)

[Poma][a]

if (not eof(f1) and not eof(f2)) then
begin
    read(f1, a);
    read(f2, b);
    while (not eof(f1) and not eof(f2)) do
    begin
        if a < b then
            read(f1, a)
        else if a > b then
            read(f1, b);
        else
        begin
            write(f3, a, ' ');
            read(f1, a);
            read(f2, b);
        end;
    end;
    if a = b then
        write(f3, a);
end;

ИМХО, тут есть косяк в реализации..
1) Где вывод?
2) 1-ый файл кончился, во 2-ом еще есть N чисел.. мы их не прочитаем..

[Vanta11a]

1) Вывод

write(f3, a, ' ');

2) Значит во втором файле остались числа заведомо несовпадающие с числами в первом файле. И наоборот.

[Serge_Bliznykov]

Сообщение от Poma][a

ИМХО, тут есть косяк в реализации..
1) Где вывод?

думаю, что здесь:

        begin
            write(f3, a, ' ');

Сообщение от Poma][a

2) 1-ый файл кончился, во 2-ом еще есть N чисел.. мы их не прочитаем..

и не надо. нам же нужны общие значения. а если один файл закончился, то во втором уже общих значений НЕ будет.

[Poma][a]

Оу.. вопрос исчерпан.. Я снова неверно прочитал задание.. думал нужен "слив"..

[Jane_Air]

Спасибо всем!))