blob: b298e7fd874190845591e4470dfd8449c3ebc674 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
MODULE Ch2 EXPORTS Main;
IMPORT IO;
VAR
Count:INTEGER := 0;
Arr:ARRAY[0..4] OF INTEGER;
PROCEDURE FindCombinations(VAR Arr:ARRAY OF INTEGER;
Index,Num,Reducednum:INTEGER) =
VAR
Prev:INTEGER;
BEGIN
IF Reducednum < 0 THEN RETURN END;
IF Reducednum = 0 THEN
INC(Count);
RETURN;
END;
IF Index = 0 THEN Prev := 1 ELSE Prev := Arr[Index-1] END;
FOR I := Prev TO Num DO
Arr[Index] := I;
FindCombinations(Arr,Index+1,Num,Reducednum-I);
END;
END FindCombinations;
BEGIN
FindCombinations(Arr,0,5,5);
IO.PutInt(Count); IO.Put("\n");
END Ch2.
|
