Задача на целочисленные файлы (Turbo Pascal)

Posted by obzor under Delphi

Даны целочисленные файлы f и g одинаковой длины. Оставить в f только те компоненты, значения которых больше компонентов файла g.

Stilet

program Project1;

var f,g:file of integer;
  s,i,c:integer;
  a,p:^integer;
begin
  {Открываем файлы}
  Assign(f,'f');Rewrite(f);
  Assign(g,'g');Rewrite(g);
  {Наполняем данным}
  for i:=1 to 10 do write(f,Random(100));
  for i:=1 to 10 do write(g,Random(15));
  {Открываем для анализа}
  Reset(f); Reset(g);
  s:=0;
  {Считываем g, выясняем сумму}
  while not eof(g) do begin
    read(g,i); Write(i:5); s:=s+i;
	end;  writeln;
  {Считываем f выясняем кол-во, которое нужно оставить}
  c:=0;
  while not eof(f) do begin
    read(f,i); Write(i:5);
    if i>s then begin
      {Выводим на экран рядом с теми, что останутся звездочку}
      write('*'); inc(c);
		end;
	end;

  {Переоткрываем файл}
  Reset(f);
  {Еще раз считываем, но уже только те, что будем оставлять в динмассив}
  GetMem(a,c*sizeof(integer)); p:=a;
  while not eof(f) do begin
    read(f,i);
    if i>s then begin
      p^:=i; inc(p);
		end;
	end;
  {И перезаписываем файл f теми, что оставили}
  Rewrite(f); p:=a;
  for i:=1 to c do write(f,p^);
  Freemem(a);

  close(f); close(g);
  readln;
end.

тема на форуме

Похожие статьи

• Функция двойной факториал в Pascal
• Проверка файла (Turbo Pascal)
• Меню из процедур. Листать стрелками
• Паскаль Турбо, матрицы
• Вычитание (длинная арифметика)
• Turbo Pascal, как создавать динамические многомерные массивы
• Книги для изучения Pascal.