Need very short program

[Zuzel111]

I need very short program, preferably source code
Program must display all possible 3 symbol combinations and 2 symbols. It can run in CMD
A-Z
0-9

 

[RuneScapeJJ]

On my phone but for simba
Procedure generate:
Var
I, j: integer;
Options: tstringarray;

Begin
Options := ['a', etc.];
For i:=0 to high(options) do
For j:=0 to high(options) do
Writeln(options + options[j]);
End;

 

[Zuzel111]

[Error] (7:18): Unknown identifier 'etc' at line 6
Compiling failed.

 

[novice]

[Error] (7:18): Unknown identifier 'etc' at line 6
Compiling failed.

You are supposed to replace the "etc" with all the possible characters.
eg:

Options := ['a', 'b', 'c', 'd'];

 

[Zuzel111]

Procedure generate;
Var
I, j: integer;
Options: tstringarray;

Begin
Options := ['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','r','s','t','u','w','z','x','y','-','1','2','3','4','5','6','7','8','9','0'];
For i:=0 to high(options) do
For j:=0 to high(options) do
Writeln(options + options[j]);
End;

[Error] (8:112): Closing square bracket (']') expected at line 7
Compiling failed.
[Error] (7:112): Closing square bracket (']') expected at line 6
Compiling failed.
[Error] (2:19): Semicolon (';') expected at line 1
Compiling failed.
[Error] (8:112): Closing square bracket (']') expected at line 7
Compiling failed.

 

[Darthatron]

Seeing as this is the Visual Basic forum, I assume you wanted to use Visual Basic?

        'The Array of Characters...
        Dim characters = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "V", "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}

        '2 Character Combinations...
        For i As Integer = 0 To characters.GetUpperBound(0)
            For o As Integer = 0 To characters.GetUpperBound(0)
                Console.WriteLine(characters(i) + characters(o))
            Next
        Next

        '3 Character Combinations...
        For i As Integer = 0 To characters.GetUpperBound(0)
            For o As Integer = 0 To characters.GetUpperBound(0)
                For p As Integer = 0 To characters.GetUpperBound(0)
                    Console.WriteLine(characters(i) + characters(o) + characters(p))
                Next
            Next
        Next

But maybe you want to use C#?

            //The Array of Characters...
                string[] characters = new string[] { "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "V", "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9" };

            //2 Character Combinations...
            for (int i = 0; i < characters.GetUpperBound(0); i++)
            {
                for (int o = 0; o < characters.GetUpperBound(0); o++)
                {
                    Console.WriteLine(characters[i] + characters[o]);
                }
            }

            //3 Character Combinations...
            for (int i = 0; i < characters.GetUpperBound(0); i++)
            {
                for (int o = 0; o < characters.GetUpperBound(0); o++)
                {
                    for (int p = 0; p < characters.GetUpperBound(0); p++)
                    {
                        Console.WriteLine(characters[i] + characters[o] + characters[p]);
                    }
                }
            }