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

[Рей]

Хорошо,извиняюсь. Мне просто непонятно,как я понял: первый writeln в тексте программы выводит первое число в множестве. Далее цикл repeat, к примеру первое чило положительное, снова открываем repeat присваиваем pos:=pos+1; указатель seek перемещаем на pos и считываем его в next. пока next не будет отрицательным. Если число отрицательное то снова открываем цикл repeat.
вывод чисел на экран writeln(next); моя просьба,собственно,пояснить: не могу понять как происходит чередование положительных и отрицательных чисел?

Сообщение отредактировано: Рей - 08.03.07, 11:21

[volvo877]

Цитата Рей @ 08.03.07, 11:20

не могу понять как происходит чередование положительных и отрицательных чисел?

Ударение, как я понял, на слове "чередование"?

Смотри:

  repeat
    if X < 0 then begin
      { Если предыдущее число - отрицательное, то теперь ищем положительное... }
      repeat
        ...
      until next > 0;
 
    end
    else begin
 
      { Если же предыдущее число было положительным, то теперь ищется отрицательное... }
      repeat
        ...
      until next < 0;
 
    end;
    if not error then begin
      writeln('value = ', next:4);
      X := next; { Обновляем: теперь ЭТО - предыдущее число, а следующее будет искаться в зависимости от его знака }
    end;
 
  until (pos = filesize(f)) or (neg = filesize(f));

[Рей]

volvo, извини, что надоедаю тебе с этим заданием. Не подскажешь, можно ли изменить эту программу так, чтобы массив не использовался.

Сообщение отредактировано: Рей - 15.03.07, 10:50

[volvo877]

Цитата Рей @ 15.03.07, 10:48

можно ли изменить эту программу так, чтобы массив не использовался.

А он и не используется... Мне просто удобнее было отлаживать программу НЕ внося данные с клавиатуры, а читая их из массива... Теперь можешь его смело удалить, и вместо

  for i := 1 to n do write(f, arr[i]);

написать что-нибудь вроде

  for i := 1 to n do begin
    write('Введите число №', i, ' : '); readln(X)
    write(f, X);
  end;

... Введешь все числа с клавиатуры, и будет тебе БЕЗ массива... Сразу предупреждаю: без файла сделать нельзя !!!

[Рей]

я правильно понял? получается, что надо записывать в другой файл все отрицательный числа, а в третий все положительные и потом поочередно записывать их в исходный файл и исходный текст программы уже не годится.

[volvo877]

Блин... Какой другой? Какой третий? Ты программу ВООБЩЕ запускал? Сколько файлов она создает, видел?

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

P.S. Кстати, я, например, вообще не понимаю, почему МОЯ программа должна создавать этот самый файл? У тебя по заданию что?

Цитата Рей @ 01.03.07, 10:57

Дан файл целых чисел, неравных нулю. число положительных = числу отрицательных.

Дан - это значит, что он УЖЕ есть, а не создается, и программа должна просто ОТКРЫТЬ его... Вот ТЫ его и создай предварительно, потом прикрепи сюда, и продолжим разговор...

[Рей]

Не злись, все я уже сообразил. Закрываю тему и больше к ней не возвращаюсь. Спасибо.

Сообщение отредактировано: Рей - 15.03.07, 12:19