Типизированные файлы

[Pyx]

Типизированные файлы

Помогите создать файл целых чисел (количество элементов файла и сами элементы вводятся с клавиатуры). Добавить элемент в конец файла. Выводить на экран содержимое нового файла.
Вот я сделала но оно не то что нужно выводит (

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var fail: file of integer;
    i,n,k,cum:integer;
begin
 write ('vvedit kilkist elementiv faily:');
 readln(n);
 assign (fail,'fail1');
 rewrite (fail);
 for i:=1 to n do
 begin
        write('vvedit ',i,'-i element faily:');
        readln(k);
        write(fail,k);
 end;
 reset (fail);
 while not eof(fail) do
 begin
 read (fail,k);
 write (k,' ');
 end;
 readln;
 close (fail);

 write ('element jakui treba dodatu y kinec faily:');
 readln (cum);
 rewrite (fail);
seek (fail,filesize(fail));
write (fail,cum);
close (fail);

reset (fail);
while not eof(fail) do
begin
read (fail,k);
write (k,' ');
end;
 close(fail);

 readln;
end.

нужно создать исходный файл, потом его же изменить и вывести измененные данные на экран

 

[Vladimir_S]

По-моему, тут вот что, хотя на 100% не уверен, поскольку сам типизированными файлами практически не пользуюсь и знаю их плохо. Команда Seek, сколь мне известно, не может использоваться для записи, а только для чтения. В то же время команда Rewrite полностью очищает содержимое файла, что Вы и видите. А поэтому записать что-либо в конец типизированного файла невозможно в принципе (если не так, надеюсь, знатоки поправят). Отсюда два варианта решения задачи:
1. С типизированным файлом. Тут придется после первой записи сделать считывание всего содержимого файла (например, в массив), потом добавить в массив дополнительный элемент и полностью файл перезаписать. Это так:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 fail: file of integer;
 A:Array[1..100] of integer;
 i,n,k,cum:integer;
begin
 write ('vvedit kilkist elementiv faily:');
 readln(n);
 assign (fail,'fail1');
 rewrite (fail);
 for i:=1 to n do
 begin
   write('vvedit ',i,'-i element faily: ');
   readln(k);
   write(fail,k);
 end;
 reset (fail);
 i:=1;
 while not eof(fail) do
  begin
   read (fail,k);
   A[i]:=k;
   write (k,' ');
   inc(i);
  end;
 readln;
 close (fail);

 write ('element jakui treba dodatu y kinec faily: ');
 readln (cum);
 A[n+1]:=cum;
 rewrite (fail);
 for i:=1 to n+1 do write(fail,A[i]);
 close (fail);

 reset (fail);
 while not eof(fail) do
  begin
   read (fail,k);
   write (k,' ');
  end;
 close(fail);

 readln;
end.

2. Объявить файл текстовым. Но в этом случае числа придется размещать каждое в своей строке, чтобы считывать оператором ReadLn, а не Read - иначе попытка остановить считывание по EoF приведет к ошибке. Но зато можно просто дописать число в конец файла. Тут так:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 fail: Text;
 i,n,k,cum:integer;
begin
 write ('vvedit kilkist elementiv faily: ');
 readln(n);
 assign (fail,'fail1');
 rewrite (fail);
 for i:=1 to n do
 begin
   write('vvedit ',i,'-i element faily: ');
   readln(k);
   writeln(fail,k,' ');
 end;
 close (fail);
 reset (fail);
 while not eof(fail) do
  begin
   readln(fail,k);
   write(k,' ');
  end;
 readln;
 close (fail);

 write ('element jakui treba dodatu y kinec faily: ');
 readln (cum);
 append (fail);
 writeln(fail,cum);
 close (fail);

 reset (fail);
 while not eof(fail) do
  begin
   readln(fail,k);
   write(k,' ');
  end;
 close(fail);

 readln;
end.

 

[Pyx]

По-моему, тут вот что, хотя на 100% не уверен, поскольку сам типизированными файлами практически не пользуюсь и знаю их плохо. Команда Seek, сколь мне известно, не может использоваться для записи, а только для чтения. В то же время команда Rewrite полностью очищает содержимое файла, что Вы и видите. А поэтому записать что-либо в конец типизированного файла невозможно в принципе (если не так, надеюсь, знатоки поправят). Отсюда два варианта решения задачи:
1. С типизированным файлом. Тут придется после первой записи сделать считывание всего содержимого файла (например, в массив), потом добавить в массив дополнительный элемент и полностью файл перезаписать. Это так:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 fail: file of integer;
 A:Array[1..100] of integer;
 i,n,k,cum:integer;
begin
 write ('vvedit kilkist elementiv faily:');
 readln(n);
 assign (fail,'fail1');
 rewrite (fail);
 for i:=1 to n do
 begin
   write('vvedit ',i,'-i element faily: ');
   readln(k);
   write(fail,k);
 end;
 reset (fail);
 i:=1;
 while not eof(fail) do
  begin
   read (fail,k);
   A[i]:=k;
   write (k,' ');
   inc(i);
  end;
 readln;
 close (fail);

 write ('element jakui treba dodatu y kinec faily: ');
 readln (cum);
 A[n+1]:=cum;
 rewrite (fail);
 for i:=1 to n+1 do write(fail,A[i]);
 close (fail);

 reset (fail);
 while not eof(fail) do
  begin
   read (fail,k);
   write (k,' ');
  end;
 close(fail);

 readln;
end.

2. Объявить файл текстовым. Но в этом случае числа придется размещать каждое в своей строке, чтобы считывать оператором ReadLn, а не Read - иначе попытка остановить считывание по EoF приведет к ошибке. Но зато можно просто дописать число в конец файла. Тут так:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 fail: Text;
 i,n,k,cum:integer;
begin
 write ('vvedit kilkist elementiv faily: ');
 readln(n);
 assign (fail,'fail1');
 rewrite (fail);
 for i:=1 to n do
 begin
   write('vvedit ',i,'-i element faily: ');
   readln(k);
   writeln(fail,k,' ');
 end;
 close (fail);
 reset (fail);
 while not eof(fail) do
  begin
   readln(fail,k);
   write(k,' ');
  end;
 readln;
 close (fail);

 write ('element jakui treba dodatu y kinec faily: ');
 readln (cum);
 append (fail);
 writeln(fail,cum);
 close (fail);

 reset (fail);
 while not eof(fail) do
  begin
   readln(fail,k);
   write(k,' ');
  end;
 close(fail);

 readln;
end.

:tehnari_ru_288: Спасибо)))))