PASCAL Работа с файлами

[Natsu]

помогиите написать программку пожалуйста, несколько я уже сделал а ету некак((

В файл F записанны целые числа. Написать программу которая в файл G записывает четные числа а в файл H - нечетные.

P.S. Заранее благодарен за любую помош

[Лубышев]

легко помогу:

var f,g,h:file of integer;{файловые переменные}
buf:integer;{буффер для временного хранения числа}
begin
assign(f, 'f.dat');{ассоциация переменной с файлом на диске}
assign(g, 'g.dat');{ассоциация переменной с файлом на диске}
assign(h, 'h.dat');{ассоциация переменной с файлом на диске}
reset(f);{открыть на чтение}
rewrite(g);{открыть на перезапись}
rewrite(h);{открыть на перезапись}
while not eof(f) do{пока не достигнем конца файла}
begin
read(f,buf);{считываем очередное число в переменную}
{если четная то в один файл если нет то в другой}
if buf mod 2 =0 then write(g,buf) else write(h,buf);
end;
close(f);{не забываем закрывать файлы}
close(g);{не забываем закрывать файлы}
close(h);{не забываем закрывать файлы}
end.

Набросал в блокноте и не тестил так что проверь синтаксис

[Natsu]

извинимте можете пожалуйсто обьяснить что такое while и while not просто остальное я понял

[Лубышев]

написал комменты ко всему while not eof(f) do - это значит пока не достигнем конца файла выполняем.... че то.... (пока файл не кончился гы гы плюсик мне ставь )

[Natsu]

блин тут проблемка ета программа вроде как выводит четные или нечетные строки а не числа((

[Лубышев]

var f,g,h:file of integer; {это значит что создаются файлы типа integer,  то есть числа - все правильно}

[Natsu]

пишит ошибку Run time error 002((

[CodeExpert]

Лубышев,нет ты не понял, у него задание было разобрать строки файла на предмет наличия чисел, то есть было:
ываа12вап вапыа ыв98а ыва98ывавы
вад33лыоваыва324л24-паы90в а0ыв09
получится, файл_1:
12
98
98
324
24
90
файл_2:
33
09

[Лубышев]

ну этого он в задание не написал.... ну и тем более какая разница? тут не чего нет особено сложного. CodeExpert ты ж эксперт ну ка напиши

[Natsu]

ну он за денюшку работает((

Лубышев можеш последним одолжением помоч сделать то что ты говориш оч просто и будет тебе божественное благословение)) хотя ты и так оч сильно помог спасиб(