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

@davitalik · Регистрация: 26.02.2015

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

Здравствуйте, необходимо составить программу

@cortexdeveloper · 24.09.2015, 22:04

Напечатайте задание.

@Sergio Leone · 24.09.2015, 22:33

Pascal

procedure p(f,g,h:reals);
var k,sum : real;
  cnt : integer;
begin
  Reset(f);
  sum:=0;  cnt:=0;
  while not eof(f) do begin
    Read(f, k); sum:=sum+k; Inc(cnt);
  end;
 
  if cnt=0 then Exit; {файл пустой, делать тут нечего, выходим}
 
  {найдём среднее} 
  sum := sum/cnt; 
 
  Reset(g);
  Seek(g, FileSize(g)); {переход в конец файла g}
 
  Reset(h);
  Seek(h, FileSize(h));  {переход в конец файла h}
 
  Reset(f); {перешли в начало файла f}
  while not eof(f) do begin
    Read(f, k); 
    if k<sum
      then Write(g, k)
      else Write(h, k)
  end;
  
  Close(f); 
  Close(g);
  Close(h); 
 
end;

@davitalik 0 / 0 / 0 Регистрация: 26.02.2015 Сообщений: 51
		1
	Из одного файла переписать в другой заданные элементы 24.09.2015, 20:47. Показов 1451. Ответов 2 Метки нет (Все метки) Здравствуйте, необходимо составить программу Миниатюры 0

@cortexdeveloper 8 / 8 / 3 Регистрация: 31.07.2015 Сообщений: 71
	24.09.2015, 22:04	2
	Напечатайте задание. 0

	24.09.2015, 22:33

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

Решение