Файлы в ТурбоПаскале.

[Otar4ik]

Добрый день!)

1. Описать процедуру, которая файлу f присваивает содержимое файла g,содержащего действительные числа. При отладке использовать ранее созданный файл на диске.

Компилирую,запускаю, и выдаёт Ошибка 103-Файл не открыт. File1.txt прикреплён к сообщению.

program zadanie2_2;
procedure prisvoit;
var
f:file of real;
g:file of real;
s:real;
begin
assign(g,'file1.txt');
reset(g);
assign(f,'file2.txt');
rewrite(f);
while not Eof(g) do
begin
read(g,s);
write(f,s);
writeln('Prisvaivanie zakoncheno!');
close(g);
close(f);
end;
end;
begin
prisvoit;
end.

[Serge_Bliznykov]

не надо в цикле закрывать файлы и всё будет хорошо!

program zadanie2_2;
procedure prisvoit;
var
f:file of real;
g:file of real;
s:real;
begin
  assign(g,'file1.txt');
  reset(g);
  assign(f,'file2.txt');
  rewrite(f);
  while not Eof(g) do
  begin
    read(g,s);
    write(f,s);
  end;
  writeln('Prisvaivanie zakoncheno!');
  close(g);
  close(f);
end;
begin
  prisvoit;
end.

p.s. Имхо, Вы зря даёте файлам расширение .txt. Компьютеру (программе) всё равно, а вот человека это расширение может ввести в заблуждение!
Лучше давать другое, менее "говорящее" имя. Например, .dat или .bin

[Otar4ik]

Спасибо вам,исправил,заработало)