Файлы.Удаление отрицательного числа, В файле целых чисел, если перед положительным числом стоит отрицательн Опции

[BSS]

Помогите пожалуйста решить задачу:
В файле целых чисел, если перед положительным числом стоит отрицательное, то удалить это отрицательное число

[volvo]

Я что-то упускаю?..

Исходный файл:

0, -3, 11, -2, 1, 0, -3, 10, 1, -3, 5

После прогона твоего алгоритма:

Running "f:\programs\test.exe"
  0  0  0  0  0  0  0  0  0  0  5

Упускаешь...

Я делал так (запись в файл заменена, для тестирования, на вывод на консоль):

  prev := -1;
  save := false; // На всякий случай, если будет пустой файл. 
                 // Не люблю оставлять ВОЗМОЖНОСТЬ для ошибки
  while not eof(f) do
  begin
    save := true;
    read(f, next);

    if (prev < 0) and (next >= 0) then
    else writeln('file -> ', prev);

    prev := next;
  end;
  if save then writeln('file -> ', prev);

TarasBer,

И я не знаю, как оно работает, и вы не знаете

А что, Вам известно больше, чем мне о том, что знаю я? Я бы не стал говорить об этом. Я - не студент, который пользуется методичками преподавателей. У меня есть доступ и к более серьезной документации, работа такая...

я не хочу об этом думать

нельзя работать ВООБЩЕ нигде, Вам не кажется? Мое мнение о Вас РЕЗКО изменилось после таких заявлений. Больше в дискуссии с Вами я вступать не намерен. Не хотите - не думайте. Bye...

[Lapp]

Упускаешь...

Упс!.. конечно, упустил.. ((

Read(f,i);
while not EoF(f) do begin
  Read(f,j);
  if (i>=0)or(j<=0) then Write(g,i);
  i:=j  // вот это
end;
Write(g,j);

Sorry..

Но я имел в виду другое. Упускаю?..


guys, давайте не выходить за рамки дискуссий по предмету. Личные обиды тут ни при чем, мне кажется.