Типизированные файлы Опции

[Eichhorn]

Есть задача: дан типизированный файл целых чисел, содержащий чётное количество элементов. Удалить из данного файла первую половину элементов.
Вот если бы нужно было удалить вторую половину, то я бы даже не заморачивалась... А так у меня вот какой бред вышел:

var
  f,f1: file of integer;
  i,c,s:integer;

begin
  s:=0;

  assign(f,'C:\pas\asd3.bin');
  rewrite(f);

  write(f,21);
  write(f,0);
  write(f,-76);
  write(f,90);
  write(f,78);
  write(f,45);
  write(f,90);
  write(f,43);
  close(f);

  reset(f);
  read(f,c);

  while not eof(f) do
  begin
    read(f,c);
    s:=s+1;
    writeln©;
  end;
  seek(f,s-1);
  truncate(f);
  reset(f);

  read(f,c);
  close(f);
  readln;
end.

truncate, я где-то видела, что усекает размер файла до текущей позиции. Можно ли так вообще делать в этом случае?

[Eichhorn]

Ну да, было дело) Но до этого все программы, которые я сначала сохраняла на рабочий стол до полной отладки, нормально работали... Кстати, ещё одна ошибка, которая у меня периодически проскакивает.. Скриншота нету, но когда эта ошибка появляется, я нажимаю окей (ничего не подозревая) и вся программа стирается вместе с её сохранением. Что это может быть? Глюк паскаля?

[Lapp]

Но до этого все программы, которые я сначала сохраняла на рабочий стол до полной отладки,

ой, ой... какой бардак...
напомнило мне живых белок, которые закапывают орехи, которые не могу съесть - а потом большинство из них не находят наверняка.. Я часто вижу эту картину, прогуливаясь по универу ))

нормально работали... Кстати, ещё одна ошибка,

Вот это мне особенно понравилось! Даже еще раз процитирую:
нормально работали... Кстати, ещё одна ошибка

которая у меня периодически проскакивает.. Скриншота нету, но когда эта ошибка появляется, я нажимаю окей (ничего не подозревая) и вся программа стирается вместе с её сохранением. Что это может быть?

"когда я иду по стройке, и мне говорят: надень каску, тут падают кирпичи - я киваю (ничего не подозревая) и потом почему-то каждый раз просыпаюсь в больнице. Что это может быть? Мерещится?
))

Дорогая Белка, заведи себе отдельную ДИРЕКТОРИЮ, а в ней - ПОДДИРЕКТОРИИ для КАЖДОЙ ЗАДАЧИ. Запускай Паскаль В ТОЙ ПОДДИРЕКТОРИИ. А сообщения все ЧИТАЙ ПЕРЕД НАЖАТИЕМ "ОК".

не обижайся )) посмотри на себя со стороны ))

Кстати - вот мы всем тут говорим, как всякие там циклы и условия делать. А как организовать работу - об этом очень редко проскакивает.. Но, если начать это говорить - не поймут . Убегут на другой форум, где им все на блюдечке. И ничему не научатся..