Дан файл целых чисел удалить из него все отрицательные числа

Категория: Delphi/Pascal
2011-08-28 22:19:42
code: #pascal
  1. var
  2.   i, j, k, m: integer;
  3.   f: file of integer;
  4. begin
  5.   writeln('Make bin file');
  6.   assign(f, 'file.bin');
  7.   rewrite(f);
  8.   for i := 1 to 15 do begin
  9.     k := random(5)-2;
  10.     write(k:3);
  11.     write(f, k)
  12.   end;
  13.   close(f);
  14.  
  15.   reset(f);
  16.   i := 0;
  17.   j := 0;
  18.   while not eof(f) do begin
  19.     seek(f, i); read(f, k); inc(i);
  20.     if k >= 0 then begin
  21.       seek(f, j); write(f, k); inc(j)
  22.     end
  23.   end;
  24.   seek(f, j);
  25.   truncate(f);
  26.   close(f);
  27.  
  28.   writeln;
  29.   writeln('Output rebuild bin file');
  30.   reset(f);
  31.   while not eof(f) do begin
  32.     read(f, k);
  33.     write(k:3);
  34.   end;
  35.   readln
  36. end.
Поделиться:

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

теги: файлы, студенты, работа с файлами, целые числа, отрицательные числа