Варианты и их создание.

[Александр За...]

Доброе время суток.
Я не программист, и прошу у Вас помощи.
Есть 16 "слов". Нужно составить все варианты, с условием 4 "слова" в 1 "строке", разделитель "-"(тире). Кто сможет помочь, пошите на marazmru@bigmir.net
Спасибо.

"Слова"
POKH NPGH ACJU HHGT
NPGH QWOP MYTC ZBHJ
XOMF EGTD LILO SEBK
PLXR BXXG VGUO IULV

[gaw4]

все варианты,с условием 4 "слова" в 1 "строке"
вот тут как бы хочется утоснить
все варианты из 16 , а вывод 4 х 4
или все варианты из 4 в каждой строке

[Александр За...]

Все варианты из 4 в каждой строке

[gaw4]

не уверен

 	program Pr;
   Uses crt;
   const n=4;
	var X:array [1..n,1..n] of string;
	   i:integer;
	   
 	  procedure Kmb(num,k:integer);
	    var j:integer;
	    procedure Swap(var a,b:string);
	      var c:string;
	    begin c:=a;a:=b;b:=c end;
	  begin

	    if k=N then
	      begin for j:=1 to N do
	      
       begin if j<N then write(X[num,j],'-')else write(X[num,j]); end;
        write(' ') end
	    else
	      for j:=k+1 to N do
		begin
		  Swap(X[num,k+1],X[num,j]);
		  Kmb(num,k+1);
		  Swap(X[num,k+1],X[num,j])
		end;
	  end;

	begin
X[1,1]:='POKH'; X[1,2]:='NPGH';X[1,3]:= 'ACJU';X[1,4]:= 'HHGT';
//X[1,1]:='1'; X[1,2]:='2';X[1,3]:= '3';X[1,4]:= '4';
X[2,1]:= 'NPGH';X[2,2]:= 'QWOP'; X[2,3]:= 'MYTC';X[2,4]:= 'ZBHJ';
X[3,1]:= 'XOMF';X[3,2]:= 'EGTD';X[3,3]:= 'LILO';X[3,4]:= 'SEBK';
X[4,1]:= 'PLXR';X[4,2]:= 'BXXG';X[4,3]:= 'VGUO';X[4,4]:= 'IULV';

    for i:=1 to N do
	  Kmb(i,0);

	end.

[BDA]

Не уверен

const
    n = 16;
var
    a : array [1..n] of string[4] = ('POKH', 'NPGH', 'ACJU', 'HHGT', 'NPGH', 'QWOP', 'MYTC', 'ZBHJ', 'XOMF', 'EGTD', 'LILO', 'SEBK', 'PLXR', 'BXXG', 'VGUO', 'IULV');
 
procedure print(s : string[4]; k : integer);
var
    i : integer;
begin
    if k = 5 then
        writeln(a[ord(s[1])] + '-' + a[ord(s[2])] + '-' + a[ord(s[3])] + '-' + a[ord(s[4])])
    else
        for i := 1 to n do
        begin
            s[k] := chr(i);
            print(s, k + 1);
        end;
end; 
    
BEGIN
    print('0000', 1);
END.

11:40 Update Вариант без повторений слов:

const
    n = 16;
var
    a : array [1..n] of string[4] = ('POKH', 'NPGH', 'ACJU', 'HHGT', 'NPGH', 'QWOP', 'MYTC', 'ZBHJ', 'XOMF', 'EGTD', 'LILO', 'SEBK', 'PLXR', 'BXXG', 'VGUO', 'IULV');
 
procedure print(s : string[4]; k : integer);
var
    i : integer;
begin
    if k = 5 then
        writeln(a[ord(s[1])] + '-' + a[ord(s[2])] + '-' + a[ord(s[3])] + '-' + a[ord(s[4])])
    else
        for i := 1 to n do
            if pos(char(i), s) = 0 then
            begin
                s[k] := chr(i);
                print(s, k + 1);
            end;
end; 
    
BEGIN
    print('0000', 1);
END.

[Rififi]

Александр За...

Есть 16 "слов". Нужно составить все варианты, с условием 4 "слова" в 1 "строке", разделитель "-"(тире)

C++

#include <iostream>
#include <locale>

#include <iterator>
#include <algorithm>

#include <vector>
#include <string>

#include <boost/assign.hpp>
using boost::assign::operator+=;

namespace {

	template <typename I>
	bool Z(const I u, I k, const I v)
	{
		if (u == v || u == k || v == k) return false;
		I x = u, y = v; ++x;
		if (v == x) return false;
		x = v; --x; x = k; --y;
		while (u != x) if (*--x < *y)
		{
			I j = k;
			while (!(*x < *j)) ++j;
			std::iter_swap(x,j);
			++x; ++j; y = k;
			std::rotate(x,j,v);
			while (v != j) ++j, ++y;				
			std::rotate(k,y,v);
			return true;		
		}
		std::rotate(u,k,v);
		return false;
	}
}

int main()
{
	setlocale(LC_ALL, "");

	std::vector<std::string> v;
	v +=
		"POKH", "NPGH", "ACJU", "HHGT",
		"NPGH", "QWOP", "MYTC", "ZBHJ",
		"XOMF", "EGTD", "LILO", "SEBK",
		"PLXR", "BXXG", "VGUO", "IULV"; 

	while (Z(v.begin(), v.begin() + 4, v.end()))
	{
		typedef std::ostream_iterator<std::string> O;
		std::copy(v.cbegin(), v.cbegin() + 3, O(std::cout, "-"));
		std::cout << v[3] << std::endl;
	}

	std::cin.get();

	return 0;
}

Пример работы: http://liveworkspace.org/code/6aa1e4...da40adecf27366