Каково назначение приводимого ниже фрагмента 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)
К сожалению, у нас пока нет статистики ответов на данный вопрос,
но мы работаем над этим.