Nested For Loop [EXAMPLES!]

Hi,
Here is a collection of few examples for NESTED FOR LOOP.
Simple codes in how to use nested loops,
There is only the code, no explanation (not good at explaining anything)
So, just try to understand the program
Hope this will help as much people as possible
Let's Stop talking and just begin

OK
Here we go!

1.Get the following output :
a.
1
12
123
1234
12345
123456
1234567
12345678
123456789

//Numbers Ladder
//Nested Loops
//By ALPHA
//On 22 Oct 2008
//www.CodeCall.net
//----------------------
public class testFor
{
    public static void main(String [] args)
    {
        for (int i=1; i<=9; i++)
        {
            System.out.println();
            for (int j=1; j<=i; j++)
            {
                System.out.print(j);
            }
        }
      System.out.println();
    }
}

>>59
Your enterprise level is low

type
 TNumberGenEnumerator = class
 private
  fNumbers,
  fCurrent: longint;
 public
  constructor Create(ANumbers: longint);

  function GetCurrent: longint;
  function MoveNext: Boolean;
  property Current: longint read GetCurrent;
 end;

 INumberGen = interface
  function GetEnumerator: TNumberGenEnumerator;
 end;

 INumberGenFactory = interface
  function GetInstance(ANumbers: longint): INumberGen;
 end;

 TNumberGen = class(TInterfacedObject, INumberGen)
 private
  fNumbers: longint;
 public
  function GetEnumerator: TNumberGenEnumerator;
  constructor Create(ANumbers: longint);
 end;

 TNumberGeneratorFactory = class(TInterfacedObject, INumberGenFactory)
  function GetInstance(ANumbers: longint): INumberGen;
 end;

constructor TNumberGenEnumerator.Create(ANumbers: longint);
begin
   inherited Create;
   fCurrent := 0;
   fNumbers := ANumbers;
end;

function TNumberGenEnumerator.GetCurrent: longint;
begin
   result := fCurrent;
end;

function TNumberGenEnumerator.MoveNext: Boolean;
begin
   inc(fCurrent);
   result := fCurrent <= fNumbers;
end;

function TNumberGen.GetEnumerator: TNumberGenEnumerator;
begin
   result := TNumberGenEnumerator.Create(fNumbers);
end;

constructor TNumberGen.Create(ANumbers: longint);
begin
   inherited Create;
   fNumbers := ANumbers;
end;

function TNumberGeneratorFactory.GetInstance(ANumbers: longint): INumberGen;
begin
   result := TNumberGen.Create(ANumbers);
end;

procedure WriteNumbers;
var i, num: longint;
begin
   for i := 1 to 9 do
   begin
      for num in INumberGenFactory(TNumberGeneratorFactory.Create).GetInstance(i) do
         write(num);
      writeln;
   end;
end;