Каково назначение приводимого ниже фрагмента Pascal-модуля ?

  • End.
  • end;
  • begin
  • INTERFACE
  • Summ:= s;
  • UNIT SMROW;
  • IMPLEMENTATION
  • var k: integer;
  • Private S: integer;
  • Type TSmrObj = object
  • Function TSmrObj.Summ;
  • s:= 0; For k:=1 to a Do S:= S + k;
  • Public Function Summ(a: integer):integer;
  • Определение TSmrObj, наделенного единственным методом Summ: нахождение 1+2+3+…a
  • Определение TSmrObj, наделенного единственным методом Summ: нахождение 1+3+5+…n
  • Определение TSmrObj, функция Summ которого позволяет рассчитывать суммы типа 1+2+3+…2*a
  • Определение TSmrObj, функция Summ которого позволяет рассчитывать суммы типа 1+2+3+…(2*a+1)

К сожалению, у нас пока нет статистики ответов на данный вопрос, но мы работаем над этим.