110 - Meta-Loopless Sorts

描述：改写成pascal对自己来说真不好写……



#include <iostream>
#include <cstring>
#include <cstdio>
using namespace std;
int n,m;
void dfs(int *p,int y)
{
    if( y>=m)
    {
        for(int i=0; i<m; i++) printf("  ");
        printf("writeln(%c",'a'+p[1]-1);
        for(int i=2;i<=m;i++) printf(",%c",'a'+p[i]-1);
        printf(")\n");
        return;
    }
    int q[10];
    for(int i=y+1; i>=1; i--)
    {
        for(int j=0; j<y; j++) printf("  ");
        for(int j=1; j<=y; j++) q[j]=p[j];
        if(i!=y+1) printf("else");
        else printf("if %c < %c then\n",'a'+p[i-1]-1,'a'+y);
        if(i>1&&i<y+1) printf(" if %c < %c then\n",'a'+p[i-1]-1,'a'+y);
        if(i==1) printf("\n");
        for(int j=y+2; j>i; j--) q[j]=q[j-1];
        q[i]=y+1;
        dfs(q,y+1);
    }
}
int main()
{
#ifndef ONLINE_JUDGE
    freopen("a.txt","r",stdin);
#endif
    scanf("%d",&n);
    while(n--)
    {
        scanf("%d",&m);
        int num[10];
        printf("program sort(input,output);\nvar\na");
        for(int i=1; i<m; i++)
            printf(",%c",'a'+i);
        printf(" : integer;\nbegin\n  readln(a");
        for(int i=1;i<m;i++) printf(",%c",'a'+i);
        printf(");\n");
        num[1]=1;
        dfs(num,1);
        printf("end.\n");
        if(n) printf("\n");
    }
    return 0;
}