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

[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, давайте не выходить за рамки дискуссий по предмету. Личные обиды тут ни при чем, мне кажется.

[mihailov.o.v]

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

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, давайте не выходить за рамки дискуссий по предмету. Личные обиды тут ни при чем, мне кажется.

Помоему ничего не упускаете, сейчас попробую написать програмку, освежить школьные навыки