Удалить из типизированного файла пятое число. Результат записать в другой файл

@наталья111 · Регистрация: 21.01.2010

Имеется типизированный файл с числами.Удалить из него пятое число.Результат записать в другой файл

@Puporev · 22.01.2010, 11:38

Немного непонятное задание, то ли удалить из файла число, то ли переписать в новый файл без этого числа, сделал второе.

Pascal

uses crt;
var f,g:file of real;
    a:real;
    i:integer;
begin
clrscr;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
writeln('Введите в файл не менее 5 чисел, окончание ввода ноль:');
i:=0;
repeat
readln(a);
write(f,a);
i:=i+1;
until(i>=5)and(a=0);
clrscr;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:6:2);
 end;
writeln;
close(f);
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  if i<>4 then write(g,a);
 end;
close(f);
writeln('Содержание нового файла:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a:6:2);
 end;
close(g);
readln
end.

@наталья111 0 / 0 / 0 Регистрация: 21.01.2010 Сообщений: 7
		1
	Удалить из типизированного файла пятое число. Результат записать в другой файл 22.01.2010, 10:35. Показов 2328. Ответов 1 Метки нет (Все метки) Имеется типизированный файл с числами.Удалить из него пятое число.Результат записать в другой файл __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Удалить из типизированного файла пятое число. Результат записать в другой файл

Решение