藏頭詩示例程式可供參考：

#include<stdio.h>

#include<string.h>

main()

{

char p[16];

char s[4][20];

int i,len,a;

printf("藏頭詩(1)或者藏尾詩(2)？");

scanf("%d",&a);

if(a==1)

{

for(i=0;i<4;i++)

scanf("%s",s[i]);

len=strlen(s[0]);

for(i=0;i<4;i++)

{

p[2*i]=s[i][0]; /*注意：漢字佔兩個字元的位置*/

p[2*i+1]=s[i][1];

}

}

if(a==2)

{

for(i=0;i<4;i++)

scanf("%s",s[i]);

len=strlen(s[0]);

for(i=0;i<4;i++)

{

p[2*i]=s[i][len-2]; /*注意：漢字佔兩個字元的位置*/

p[2*i+1]=s[i][len-1];

}

}

p[2*i]="\0";

puts("詩中藏意為:");

puts(p);

}