🚀 go-pugleaf

Alec Soroudi wrote in message ...
>    Hi, I am wondering if anyone knows of a way to make an n-level nested
>for loop.
>
>ie:  for ...
>        for ..
>            .
>            .n times
>            .
>        endfor
>      endfor
>
>or of a way to simulate it.
>
>the level of nesting (n) is not known until run time.
>
>Thanks alot.
>
>Alec Soroudi
>


Alec,

You write a recursive routine, that is a routine that
calls itself.

Example: Add up all the numbers from 1 to 300:

Program Recursive;
var sum, x: word;

{ --------------------------------------------}
Procedure add(xx: word; var s: word);
Begin
    s:= s+xx;
    dec(xx);
    if xx>0
    then add(xx, s);
end;

{ Main program) }
Begin
    sum := 0;
    x := 300; { for example }
    add(x, sum);
    writeln ('The sum is ', sum);
end.

You need to make sure that the routine does not continue
forever. You must also make your stack sufficiently large.

KlausL

P.S. Please do not multi-post. It wastes everybody's time.