Метод индуктивной функции..часть 2 Опции

[Olya]

У меня тоже проблемы с этим методом, только задание другое:

Дана последовательность вещественных чисел, заданная в типизированном файле. Методом индуктивной функции вычислить среднюю длину связных подпоследовательностей отрицательных чисел.

Что здесь можно сделать?

[Olya]

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

{Average negative chain length calculating}
{by Lapp}var
  f:text;
  n,l,m:integer;

{функция NegChainL
если значение считанного элемента отрицательно, значение функции увеличивается на 1
в противном случае обнуляется}
function NegChainL:integer;:

var
  a:real;
begin
  ReadLn(f,a); // чтение входных данных
       if EoF(f) or(a>0) then NegChainL:=0 else NegChainL:=NegChainL+1//если конец файла или
                                //a>0 то значение функции=0, иначе значение функции+1; 
end;

begin
  Assign(f,'NegChain.dat');//связываемем имя файла с файловой переменной
  Reset(f); //готовим файл к чтению
  n:=0; //инициализируем переменные
  m:=0;
  repeat
//  (*)
     l:=NegChainL;  //переменной l присваиваем значение функции 
        if l>0 then begin //Если l>0
            Inc(n); //счётчик цепочек+1
            m:=m+l  //счётчик орицательных элементов+!
        end
  until EoF(f); //если не конец файла, повторяем процесс  (*)
  Close(f); //Закрываем файл
//Вывод результата
  if n=0 then
       WriteLn('No negative chains found')
             else WriteLn('The average negative chain length is ',m/n:8:3);
end.

Сообщение отредактировано: Olya - 28.03.2007 9:01

[Lapp]

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

а ты уверен, что функция NegChainL - индуктивная? У нас просто называют её рекурсивной...или я так поняла, это всё взаимосвязано?

Да, связано. Индуктивная - это название из математики, а рекурсивная - из программирования. Индуктивность означает вычисляемость через последний результат и новый элемент.

Ещё по заданию, эта подпрограмма должна написана в стиле защитного программирования, то есть должны быть предусмотрены всевозможные коды ошибок. Здесь я так понимаю, тоже это есть.

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

Вот..мне ещё нужно описать необходимые типы данных и составить полную спецификацию,
...
Как это оформить..?

Как с вас требуют, так и оформляй , я тут не помощник. Если посмотреть на твой начальный текст, так вас там так учат, что и не расхлебаешь.. Так что - я не хочу потом упреков, что все неправильно сказал. Программа работает - вот весь с меня спрос..
Если хочешь - можешь советоваться, конечно. Пиши тут, в чем сомневаешься, сли сможем - поможем..
Успехов!


Добавлено через 2 мин.
PS
Как тебе удалось навставлять столько пробелов в конце программы?.. насилу вычистил..