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

Заполнить файл последовательного доступа F целыми числами, полученными с помощью гениратора случайных чисел. Получить в файл G те компоненты файла F которые являются четными.


var
f, g:file of byte;
i, n, c:byte;
begin
assignfile(f,'f.txt');
rewrite(f);
randomize;
n:=5;
for i:=1 to n do
begin
c:=random(200);
write(f, c);
end;
begin
closefile(f);
reset(f);
assignfile(g, 'g.txt');
rewrite(g);
end;
while not eof(f) do
begin
read(f, n);
if n mod 2 = 0 then write(g, n);
end;
Begin
closefile(g);
reset(g);
end;
while not eof(g) do
begin
read(g, n);
write(n:4);
end;
readln;
end.

klem4
Цитата
выводит какуюто лабуду


Тоесть ? Программа вроде без ошибок отрабатывает, выводит что надо, только не забывай закрывать файл g.

Или ты пытаешься блокнотом смотреть файл ? Тогда понятно ... онже у тебя типизированный, так и должно быть.
fdka
спасибо, я забыл и смотрел блокнотом sad.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.