паскаль. типизированные файлы

[SOWAA]

Созданы два типизированных файла, содержащих вещественные числа:
1) Удалить из второго файла все те числа, которые содержатся в первом.
2) Создать файл из чисел, которые содержатся и в первом и во втором файлах.
3) Сравнить длины файлов. В более длинном файле оставить столько же чисел, сколько в более коротком, а оставшиеся числа переписать в третий файл.


вот,я могу только создать типизированные файлы.

Var f,f1:file of integer;//
    i,n,m,m1:integer;
Begin
   write('Введите кол-во элементов: ');readln(n);
    Assign(f,'in.dat');Rewrite(f);
    For i:=1 to n do
     Begin
    write('Введите  элемент: ');
     readln(m);
      write(f,m);
     End;
    Close(f);
    writeln('Файл создан');
    readln;
    
    //////////
    write('f1__Введите кол-во элементов: ');readln(n);
    Assign(f1,'in1.dat');Rewrite(f1);
    For i:=1 to n do
     Begin
    write('Введите  элемент: ');
     readln(m1);
      write(f1,m1);
     End;
    Close(f1);
    writeln('Файл создан');
    readln;
    //////////
  end.

[Joker_vad]

sqr4@yandex.ru за умеренную плату помогу

[Serge_Bliznykov]

Созданы два типизированных файла, содержащих вещественные числа:

Var f,f1:file of integer;

Это, кстати, уже неверно!
вещественные == действительные == числа с плавающей запятой == дробные числа
т.е. должно быть

Var f,f1:file of real; {или double или extended}

ну и дальше, переменные для записи в файл должны быть соответствующего типа.

Это раз.

во-вторых, самая простая из представленных задач - третья.
Количество записей в типизированной файле можно получить через функцию FileSize(f)
Установить указатель — через процедуру Seek(f, позиция); (обратите внимание, что первый элемент в файле имеет позицию равную нулю)
Обрезать типизированный файл - процедура Truncate(f), которая удаляет все элементы типизированного файла с текущей позиции файлового указателя до конца файла

а самыми сложными, как ни странно окажутся задачи 2 и, особенно, 1
впрочем, если сделать допущение, что файл(ы) можно целиком прочитать в память, тогда, конечно, задача немного упрощается

Но, в принципе, данные задачи не должны быть непреодолимыми. Попробуйте решить самостоятельно, если споткнётесь - пишите, что вызвало трудность, тут помогут...

[SOWAA]

спасибо большое)