простоты считаем
простоты считаем ее такой).
Схема процедуры уточнения сумм:
procedure AddSum(t,number :byte);
(* Q, Sq - глобальные переменные *)
var z,i,j :integer;
begin
Q[t,1]:=number;
for i:=1 to n do begin
if t-i+1>1 then z:=t-i+1 else z:=2;
for j:=z to n-1 do begin
Q[i,j]:=0;
Q[i,j]:=Q[i,j-1]+Q[Sq[i,j],1];
end;
end;
Q[1,n]:=Q[1,5] + Q[n,1];
end;
Следующее уточнение. "Выполнить проверку последовательности сумм". Из чего следует исходить? Во-первых, наилучшая последовательность сумм может получиться не из одного варианта заполнения секторов числами. Поэтому необходимо ввести структуру данных - двумерный массив - для их хранения и, соответственно, указатель числа записанных вариантов:
,
где type SView = array[1..nMax] of byte;
NumS :byte;
Во-вторых, для хранения наибольшего числа необходима переменная MaxS. В-третьих, значения сумм лучше представить множественным типом данных SetS :set of byte. Это упростит логику поиска последовательности.
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
