паскаль. типизированные файлы
Добавлено: 13 авг 2013, 19:02
Созданы два типизированных файла, содержащих вещественные числа:
1) Удалить из второго файла все те числа, которые содержатся в первом.
2) Создать файл из чисел, которые содержатся и в первом и во втором файлах.
3) Сравнить длины файлов. В более длинном файле оставить столько же чисел, сколько в более коротком, а оставшиеся числа переписать в третий файл.
вот,я могу только создать типизированные файлы.
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.