Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Файл последовательного доступа.

Автор: fdka 8.03.2007 23:36

Полностью сделанное задание вроде и написано всё правильно, на экран выводит, что нужно, а в текстовый файл, что в первый, что во второй выводит какуюто лабуду. Кто понимает помогите разобраться.

Заполнить файл последовательного доступа 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 8.03.2007 23:47

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


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

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

Автор: fdka 8.03.2007 23:53

спасибо, я забыл и смотрел блокнотом sad.gif