Question

How to create a 2-letter permutation from A, B, C, and D in Pascal

Answer 1

program PermuteLetters;

const
  n = 4;

var
  letters: array[1..n] of Char;
  i, j: Integer;

begin
  { Initialize the character set }
  letters[1] := 'A';
  letters[2] := 'B';
  letters[3] := 'C';
  letters[4] := 'D';

  Writeln('2-letter permutations:');
  for i := 1 to n do
    for j := 1 to n do
      if i <> j then
        Writeln(letters[i], letters[j]);
end.



(*
run:

2-letter permutations:
AB
AC
AD
BA
BC
BD
CA
CB
CD
DA
DB
DC

*)

 

70+ SQL courses for beginners and professionals