Файлы. Удвоить его размер, записав в конце файла все его исходные элементы

@DarkSteel · Регистрация: 18.06.2012

Студворк — интернет-сервис помощи студентам

Дан файл целых чисел. Удвоить его размер, записав в конце файла все его исходные элементы ( в том же порядке). С этой задачей то же самое

@CodeR · 18.06.2012, 08:17

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

Дан файл целых чисел. Удвоить его размер, записав в конце файла все его исходные элементы ( в том же порядке). С этой задачей то же самое

Pascal

Var A:array[1..100] of integer;
    f:file of integer;
    i,n,m:integer;
Begin
    write('Введите кол-во чисел для записи: ');readln(n);
    Assign(f,'a.dat');Rewrite(f);
    writeln('Исходный файл: ');
    For i:=1 to n do
     Begin
      A[i]:=Random(11)-5;
      write(f,A[i]);
      write(A[i]:3);
     End;
    writeln;
    writeln('Преобразованный файл');
    Reset(f);
    Seek(f,n-1);
    read(f,m);
    For i:=1 to n do
     write(f,A[i]);
    Reset(f);
    While not Eof(f) do
     Begin
      read(f,m);
      write(m:3);
     End;
    Close(f);
    readln;
End.

@DarkSteel 1 / 1 / 0 Регистрация: 18.06.2012 Сообщений: 6
		1
	Файлы. Удвоить его размер, записав в конце файла все его исходные элементы 18.06.2012, 07:37. Показов 2450. Ответов 1 Метки нет (Все метки) Дан файл целых чисел. Удвоить его размер, записав в конце файла все его исходные элементы ( в том же порядке). С этой задачей то же самое 0

	18.06.2012, 08:17

Опции темы

Файлы. Удвоить его размер, записав в конце файла все его исходные элементы

Решение