第１５講 関数の再帰的呼び出し
第10話 DataGridViewによる順列作成ソフトの改良その３

ではコーティングしましょう。
実行ボタンをダブルクリックして、次のように入力して下さい。
#pragma once
int n;
int a[15];
int s;
namespace 順列データグリッドビュー {
　　　　　　　　・
　　　　　　　　・
　　　　　　　　・
#pragma endregion
　　private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
　 　　　　　　　　　n=int::Parse(textBox1->Text);
　　 　　　　　　　　s=0;
　　　 　　　　　　　f(0);
　　　　 　　　　　　int i;
　　　　　 　　　　　array<String^>^ x=gcnew array<String^>(15);
　　　　　　 　　　　for(i=0;i<15;i++)x[i]=L"";
　　　　　　　 　　　dataGridView1->Rows->Add(x);
　　　　　　　　 　　x[0]=L"順";x[1]=L"列";x[2]=L"総";x[3]=L"数";x[4]=L"：";x[5]=s.ToString();
　　　　　　　　　 　for(i=6;i<15;i++)x[i]=L"";
　　　　　　　　　　 dataGridView1->Rows->Add(x);
　　　　　　　　}
　　　　　　　　void f(char g){
　 　　　　　　　　　int i,j,k,h;
　　 　　　　　　　　array<String^>^ x=gcnew array<String^>(15);
　　　 　　　　　　　for(i=0;i<n;i++){
　　　　 　　　　　　　　a[g]=i+1;
　　　　　 　　　　　　　h=1;
　　　　　　 　　　　　　if(g>0){
　　　　　　　 　　　　　　　for(j=0;j<g;j++){
　　　　　　　　 　　　　　　　　if(a[g]==a[j]){
　　　　　　　　　 　　　　　　　　　h=0;
　　　　　　　　　　 　　　　　　　　break;
　　　　　　　　　　　 　　　　　}
　　　　　　　　　　　　 　　}
　 　　　　　　　　　　　}
　　 　　　　　　　　　　if(h==1){
　　　 　　　　　　　　　　　if(g<n-1){
　　　　 　　　　　　　　　　　　f(g+1);
　　　　　 　　　　　　　　　}
　　　　　　 　　　　　　　　else{
　　　　　　　 　　　　　　　　　for(k=0;k<n;k++)x[k]=a[k].ToString();
　　　　　　　　 　　　　　　　　dataGridView1->Rows->Add(x);
　　　　　　　　　 　　　　　　　s++;
　　　　　　　　　　 　　　　}
　　　　　　　　　　　 　}
　　　　　　　 　　　}
　　　　　　　　}
　　};
}

（コピーペースト用
#pragma once
int n;
int a[15];
int s;
namespace 順列データグリッドビュー {
・
・
・
#pragma endregion
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
n=int::Parse(textBox1->Text);
s=0;
f(0);
int i;
array<String^>^ x=gcnew array<String^>(15);
for(i=0;i<15;i++)x[i]=L"";
dataGridView1->Rows->Add(x);
x[0]=L"順";x[1]=L"列";x[2]=L"総";x[3]=L"数";x[4]=L"：";x[5]=s.ToString();
for(i=6;i<15;i++)x[i]=L"";
dataGridView1->Rows->Add(x);
}
void f(char g){
int i,j,k,h;
array<String^>^ x=gcnew array<String^>(15);
for(i=0;i<n;i++){
a[g]=i+1;
h=1;
if(g>0){
for(j=0;j<g;j++){
if(a[g]==a[j]){
h=0;
break;
}
}
}
if(h==1){
if(g<n-1){
f(g+1);
}
else{
for(k=0;k<n;k++)x[k]=a[k].ToString();
dataGridView1->Rows->Add(x);
s++;
}
}
}
}
};
}


）

解説
array<String^>^ x=gcnew array<String^>(15);は第15講第6話で学習した１次元CLI配列です。
お忘れの方は、第15講第6話クリックしてお復習いされて下さい。
文字型のCLI配列を定義しています。
これはローカル配列（その関数ないのみで有効）ですので、System::Void button1_Clickにおいても、void fにおいても宣言しなければなりません。
DataGridViewに1行追加するには、dataGridView1->Rows->Add(x);とすることを是非覚えて頂ければと思います。
さて、このようにして実行したときの画面例は、
となります。
普遍版と書きましたが、実際には９個の順列でもかなり計算に時間がかかります。
15個にすると一晩待っても、計算が終わっていないかもしれません。
ですから、個数の入力は１０以下にすることをお勧めします。
尚、順列個数が多くなるとのように、すべてが表示されませんが、
エクセルと同じで
のFとGの境界線にカーソルをもってきて、ドラッグすれば広がり
のようになります。
ソフトを改良して、列数を１６列にして１６列目は幅（Width）を100ままにしておくなど皆さんで工夫されて見て下さい。

ソース例は20行下に示します。





















コーティング例
array<String^>^ x=gcnew array<String^>(16);
for(i=0;i<15;i++)x[i]=L"";
dataGridView1->Rows->Add(x);
x[10]=L"順";x[11]=L"列";x[12]=L"総";x[13]=L"数";x[14]=L"：";x[15]=s.ToString();
for(i=0;i<10;i++)x[i]=L"";
dataGridView1->Rows->Add(x);


さて、少し見栄えを改良しましょう。数字が、左寄せになっているので、センタリング表示に変更させましょう。
Form1のデザインに戻り、
のをクリックして、
列の編集を選んで下さい。
そして、スクロールさせて、
表示が出てきたら、DataGridViewCellStyleをクリックしてください。
すると、DataGridViewCellStyleがとなります。をクリックして、
のをさらにクリックします。
そして、MiddleCenterを選んで下さい。
すべての列に対して、今の操作をして下さい。
すべて変更した後、実行すると
のようにセンタリングされています。

これにて、第15講は終了したいと思います。
次は、予告しておいた通りいよいよこの関数の再帰的呼び出しを利用した３次と４次の魔方陣に挑戦します。

そして、工夫を重ね5次6次7次8次9次10次と次数を高め、最終的には

といった、18次魔方陣や２６次魔方陣などの超高次魔方陣にも挑戦していきます。

第１１講第６話へ　第１２講第1話へ 第１4講第10話へ　第15講第９話へ 第16講第１話へ



VC++講義第１部へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座