blob: 5d2562edb865e2d5f1ecba7a0c073af0b345749b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
DECLARE Count : INTEGER
DECLARE Record : INTEGER
DECLARE Lower : INTEGER
DECLARE Size : INTEGER
DECLARE Step : INTEGER
DECLARE Base : INTEGER
DECLARE I : INTEGER
DECLARE Sum : INTEGER
INPUT Count
FOR Record <- 1 TO Count
INPUT Lower
INPUT Size
INPUT Step
INPUT Base
DECLARE Values : ARRAY[Lower:Lower+Size-1] OF INTEGER
Sum <- 0
FOR I <- Lower TO Lower + Size - 1
Values[I] <- Base + (I - Lower) * Step
Sum <- Sum + Values[I]
NEXT I
OUTPUT Sum, ":", Values[Lower], ":", Values[Lower+Size-1]
NEXT Record
|
