Question

How to create permutations of words without repetition in Pascal

Answer 1

program PermutationProgram;

uses
  SysUtils;

procedure PrintPermutations(words: array of string; n: integer);
var
  i, j, k: integer;
begin
  for i := 0 to High(words) do
    for j := 0 to High(words) do
      for k := 0 to High(words) do
        if (i <> j) and (j <> k) and (i <> k) then
        begin
          WriteLn(words[i], ', ', words[j], ', ', words[k]);
        end;
end;

var
  words: array[0..2] of string = ('Pascal', 'Programming', 'Language');
begin
  PrintPermutations(words, Length(words));
end.





(*
run:

Pascal, Programming, Language
Pascal, Language, Programming
Programming, Pascal, Language
Programming, Language, Pascal
Language, Pascal, Programming
Language, Programming, Pascal

*)

 

70+ SQL courses for beginners and professionals