diff options
Diffstat (limited to 'tests/ii/arrays/program.cps')
| -rw-r--r-- | tests/ii/arrays/program.cps | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/ii/arrays/program.cps b/tests/ii/arrays/program.cps new file mode 100644 index 0000000..5d2562e --- /dev/null +++ b/tests/ii/arrays/program.cps @@ -0,0 +1,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 |