家史调查怎么写
家史是记述家庭的发展、变迁历史的一种文章样式家史不同于普通的家谱因为家谱主要记述的是宗族的繁衍,世系的延续,行文极简,线条粗略,是纪实性资料,一般无突出的思想性而现代的家史则是介乎于历史和文学之间的一种独立的文体,具有历史和文学的某些基本特征,但又不同于一般的历史著作和文学作品在写法上,它以家庭历史发展的时间顺序,或写其发展全过程,或写其中的一二片断；既可以写全家或一个几个人也可以专门写几个具有典型意义的真实故事但不论如何写,它都要形成一个连续的有机的整体,使人看出家庭发展、变迁的面貌,并有一个鲜明的主题写家史应注意如下几方面：1、要提炼出新鲜的、具有现实意义的明确主题家史不仅仅只是昔日事例的陈列,而是要通过对家庭变迁历史的叙述告诉读者一个鲜明的思想这就要求每一篇家史都要有一个明确的主题家史的现实意义往往是通过主题来体现的没有主题,材料就是一团零乱的珠子,文章也就无法构成为此,作者在动笔之前,一定要详细地占有材料,仔细地分析材料,抓住材料的特点,开掘出其所包含的本质上的意义,再联系作者眼前的现实斗争形势和存在的带方向性的问题,反复琢磨,最后确定所要表现的主题思想2、要根据主题,对材料进行筛选和剪裁家史写作不能搞有闻必录,有事必记虽然家史是写真人真事的,但它不是照搬生活的流水帐,不是要把所有的真人真事都写进去它既要有真实性,又要有典型性这就要根据主题思想来进行剪裁,舍弃与主题无关的材料,对那些与主题关系密切的材料进行分析比较,从中精选了最典型、最能反映事物本质的材料,然后进行详细的记述{其}材料则根据需要,略写或不写3、通常要采取对比的手法通过对比才能更有效地揭示事物的本质,增强作品的感染力,激发起读者憎爱悲喜的感情4、语言要通俗、朴实,富有感情色彩、生活气息和地方特色这样才能读起来亲切,听起来动情,如入其境,似见其人,使人在感情上发生共鸣
排家谱不需要验血，家谱是本族的长辈和有学问和经济能力的人，根据祖先留下的家谱和辈分排名的次序，经过调查走访记录本族各个家庭的男性子嗣，分支以及居住地的迁适进行记录以供后人阅读，学司，记念先辈。现在派出所是不管排家谱的。
/实验14—2 设计一个程序，采用二叉树表示一个家谱关系。要求程序具有如下功能：
（1） 文件操作功能：记录输入、记录输出，清除全部文件记录和将家谱记录存盘。
（2） 家谱操作功能：用括号表示法输出家谱二叉树，查找某人所有的儿子，查找某人所有的祖先。/
#include<iostreamh>
#include<stdlibh>
#include<stdioh>
#include<stringh>
typedef struct Node
{
int degree;//人员所在代数
char data;//人员标志
struct Node lchild;//data的孩子
struct Node rchild;//data的兄弟
}BTNode;
#define max 100
int choose;
char X;
void CreatBTNode(BTNode b,char str);//创建记录
BTNode SearchX(BTNode b,char X);//查找记录
void InputBTNode(BTNode b,char str);//1记录输入
void OutputBTNode(BTNode b,char str);//2记录输出
void Store(BTNode b,char str);//3家谱记录存盘
void DispTree(BTNode b);//4用括号法输出家谱
void SearchXSon(BTNode b,char X);//5查找某人的儿子
void SearchXAncestor(BTNode b,char X);//6查找某人的祖先
void Distory(BTNode b,char str);//7清除全部文件记录
int main()
{BTNode b=NULL;
char str=(char)malloc(maxsizeof(char));
str[0]='\0';
cout<<"--------------------------------------------------------------------"<<endl;
cout<<"0退出"<<endl;
cout<<"1记录输入:\t"<<endl;
cout<<"2记录输出:\t"<<endl;
cout<<"3家谱记录存盘:\t"<<endl;
cout<<"4用括号法输出家谱:\t"<<endl;
cout<<"5查找某人的儿子:\t"<<endl;
cout<<"6查找某人的祖先:\t"<<endl;
cout<<"7清除全部文件记录:\n"<<endl;
cout<<"-------------------------------------------------------------------"<<endl;
cout<<"Please choose the operation you want to do "<<endl;
cout<<"choose=";
cin>>choose;
while(choose)
{switch(choose)
{
case 1:
InputBTNode(&b,str);break;
case 2:
OutputBTNode(&b,str);break;
case 3:
Store(b,str);
printf("文件已经保存!");
break;
case 4:
DispTree(b); break;
case 5:
printf("请输入需要查找儿子的结点:");
cin>>X;
SearchXSon(b,X);
break;
case 6:
printf("请输入需要查找祖先的结点:\n");
cin>>X;
BTNode p;
p=SearchX(b,X);
if(p!=NULL)
SearchXAncestor(b,X);
else
printf("该结点不存在!");
break;
case 7:
Distory(&b,str);
printf("文件记录已经清除!");
break;
default:
cout<<endl<<"Invalid input,input again";
}
cout<<endl<<"please choose again:"<<endl;
cout<<"the choose =";
cin>>choose;
}
return 0;
}
void CreatBTNode(BTNode b,char str) //创建树
{
BTNode S[max],p=NULL;
int top=-1,tag,j=0,d=0;
char ch;
b=NULL;
ch=str[j];
while(ch!='\0')
{
switch(ch)
{
case '(':
d++;
top++;
S[top]=p;
tag=1;break;
case ')':
top--;break;
case ',':
d--;
tag=2;break;
default:
p=(BTNode )malloc(sizeof(BTNode));
p->degree=d;
p->data=ch;
p->lchild=NULL;
p->rchild=NULL;
if((b)==NULL)(b)=p;
else
{
switch(tag)
{
case 1: S[top]->lchild=p;break;
case 2: S[top]->rchild=p;break;
}
}
}
ch=str[++j];
}
}
void InputBTNode(BTNode b,char str)//记录输入
{
do
{
printf("请输入需要输入的记录:\n");
gets(str);
if(str[0]=='\0')
printf("输入的记录为空，请再次输入:\n");
}while(str[0]=='\0');
CreatBTNode(b,str);
printf("记录创建成功!");
}
void OutputBTNode(BTNode b,char str)//从文件中读出记录
{
FILE fp;
if((fp=fopen("wangljtxt","r"))==NULL)
{
printf("不存在记录文件,要建立吗\n建立请输入Y，否则按其他键：");
if(getchar()=='Y')
{
fp=fopen("wangljtxt","w+");
printf("记录文件“wangljtxt”已建立\n");
}
else
exit(1);
}
else
{
if(!feof(fp))
fscanf(fp,"%s",str);
fclose(fp);
CreatBTNode(b,str);
printf("文件中记录已输出\n");
}
}
void Store(BTNode b,char str)//储存全部的结点记录
{
BTNode p;
p=b;
FILE fp;
fp=fopen("wangljtxt","w+");
if(fp==NULL)
{
printf("文件打开失败!");
return;
}
else
{
if(p!=NULL)
{
fprintf(fp,"%s",str);
fclose(fp);
}
}
}
void DispTree(BTNode b)//用括号法输出家谱记录
{
if(b!=NULL)
{printf("%c",b->data);
if(b->lchild!=NULL||b->rchild!=NULL)
{printf("(");
DispTree(b->lchild);
if(b->rchild!=NULL)
{printf(",");
DispTree(b->rchild);
}
printf(")");
}
}
else
printf("\0");
}
BTNode SearchX(BTNode b,char X)//查找结点X
{BTNode p;
if(b==NULL) return NULL;
else if(b->data==X) return b;
else
{
p=SearchX(b->lchild,X);
if(p!=NULL) return p;
else
{
return SearchX(b->rchild,X);
}
}
}
void SearchXSon(BTNode b,char X)//查找结点X的所有儿子
{
BTNode p,q;
p=SearchX(b,X); //找到节点X
if(p!=NULL)
{
p=p->lchild;
if(p==NULL) //X没有孩子
printf("节点%c没有儿子!",X);
else
{
printf("节点%c的所有儿子为:",X);
if(p!=NULL)
printf("%c ",p->data);
q=p->rchild;
while(q)
{
printf("%c ",q->data);
q=q->rchild;
}
}
}
else
printf("该结点不存在!");
}
void TraverseBT(BTNode b,int d)//遍历家谱
{
if(b!=NULL)
if(b->degree<d)
{
printf("%c ",b->data);
if(b->lchild!=NULL)
TraverseBT(b->lchild,d);
if(b->rchild!=NULL)
TraverseBT(b->rchild,d);
}
}
void SearchXAncestor(BTNode b,char X)//查找结点X的所有祖先
{
if(b==NULL)
{
printf("这是一棵空树!");
return ;
}
BTNode p=SearchX(b,X);
if(p->degree==0)
{
printf("X为根节点或其兄弟，没有祖先!");
return;
}
printf("%c结点的祖先有：",X);
TraverseBT(b,p->degree);
}
void Distory(BTNode b,char str)//清除全部的记录
{
(b)=NULL;
FILE fp;
fp=fopen("wangljtxt","w");
if(fp==NULL)
{
printf("打开文件失败!");
exit(1);
}
str="";
fclose(fp);
}
你懂的，同道中人！
家史调查怎么写
本文2023-10-18 10:42:13发表“资讯”栏目。
本文链接：https://www.lezaizhuan.com/article/282075.html
相关文章
