Файлы в Паскале

[NEMO1991]

пишет "неизвестный идентификатор" на обе процедуры.

[NEMO1991]

Сообщение от Sazary

Если хотите, можете копировать файл посимвольно обычным read'ом в цикле.

а можете пример написать как копировать. у меня че то не получается(оставить эту задачу не решенной не могу так как через 2 недели экзамен. может че нить похожее попасться)и еще у меня паскаль АВС нам еще в инсте сказали что многие процедуры из более новых паскалей не работают

[Sazary]

Пример копирования файла:

uses crt;

var f,fout : file of byte;
buf : array[1..100] of byte;
rez : word;

begin
clrscr;
assign(f,'test.txt');
assign(fout,'test_out.txt');
reset(f);
rewrite(fout);
while not eof(f) do
 begin
 blockread(f,buf,100,rez);
 BlockWrite(fout,buf,rez);
 end;
close(f);
close(fout);

readln;
end.

Сообщение от NEMO1991

и еще у меня паскаль АВС

С этого нужно было начинать. Я в нем не работаю.
И эта процедура не из "более нового паскаля". А вполне себе стандартная.

[NEMO1991]

выдает ошибку "неизвестный идентификатор blockread"
можете написать цикл копирования без этих процедур?

[Sazary]

while not eof(f) do
 begin
 read(f,c);
 write(fout,c);
 end;

Это вы не можете написать? Или просто не хотите разбираться?

[NEMO1991]

в этом паскале нету многих процедур...интересно знать как копировать файл посимвольно обычным read'ом в цикле.

[NEMO1991]

все спасибо))если бы ни хотел разбираться я бы деньги дал мне бы все 13 задач за 500 р решили но скоро экзамен вот мне интересно самому разобраться но т. к. нам многое не объясняли поэтому и нужна помощь.вот ток 2 эти задачи остались.с этой задачей я уже 3 часа парюсь.мозги уже совсем не варят

[NEMO1991]

тему можно закрывать. последнюю задачу решил)))

[Keshka]

Присоединяюсь.
нужен код в форме:

Дана строка S. Если S является допустимым именем файла, то создать пустой файл с этим именем и вывести TRUE. Если файл с именем S создать нельзя, то вывести FALSE.

[Serge_Bliznykov]

ОПС!! А задачка-то совпадает с задачкой топик стартера!

1) чем решения из данной темы не подошли (тут аж 4-ре страницы написано!)

2) может быть, Вам опциями компилятора выключить обработку ошибок ввода/вывода ( {$I-} )
создать пустой файл.
и потом If IOResult=0 then строка S подходит
else - не подходит!
правда, есть нюансы с правами на создание файла...