# include & ltstdio.h & gt
# include & ltstring.h & gt
# include & ltctype.h & gt
結構？單詞
{
夏爾。str【30】；//單詞
int？num？//單詞出現的次數
}字數【500】；
int？總和；
虛空？李俶？查爾？s【】）
{
int？I、j；
int？flag = 0；？
for(I = 0；我& lt= sumi++)
{?
if（strcmpi（words【I】。str，s）= 0）？
{?
詞【我】。num++；
flag = 1；
}?
}
如果（標誌==0）
{?
strcpy（words【sum】。str，s）；
詞【和】。num++；？
sum++；
}?
}
虛空？paixu1（）
{
int？I、j；
結構？單詞？a；
for(I = 0；我& lt總和；i++)
{?
for（j = I+1；j & lt總和；j++)
if（strcmp（words【I】。str，words【j】。str）？& gt？0)?
{?
a =單詞【j】；
單詞【j】=單詞【I】；
單詞【I】= a；？
}
}
}
虛空？派旭2（）
{
int？I、j；
結構？單詞？a；
for(I = 0；？我& lt總和；？++i)
{
for（j = sum-1；？j & gt我；？- j）
{
如果（單詞【j】。num & gt單詞【j-1】。num）
{?
？a =單詞【j】；
？word【j】= words【j-1】；
？words【j-1】= a；？
}
}
}?
}
int？主()
{
夏爾。s【30】；
int？imax，istart，iend，I，j，flag = 0；
夏爾。str【】？=?“那個？總統？告知？那個？審計？當局？去哪？保持？他們的？想法？然後呢。行動？在？線？用什麽？那個？CPC？中環？委員會？堅決？保障？那個？中央集權？然後呢。統壹？領導力？的？那個？委員會？然後呢。實施？那個？要求？的？那個？委員會。”；
夏爾。delims【】？=?"?"；
夏爾。*劍？=?NULL
sum = 0；
for(I = 0；我& lt500;i++)
詞【我】。num = 0；
劍？=?strtok（str，？delims）；
而（？劍？！=?NULL？)?{
？sscanf（sword，“%【a-zA-Z】“，s）；
strl wr（s）；
李俶；
？
劍？=?strtok（？NULL，？迪莉茲。);
}
Printf（“本文* * *有:%d個單詞\n“，sum）；
paixu 1（）；
printf（“\ n按單詞詞典的升序排列:\ n“）；
for(I = 0；我& lt總和；i++)
printf（“% s，%d\n“，單詞【I】。字符串，單詞【I】。num）；
pai Xu 2（）；
printf（“\ n以出現的降序排列:\ n“）；
for(I = 0；我& lt總和；i++)
printf（“% s，%d\n“，單詞【I】。字符串，單詞【I】。num）；
回歸？0;
}實際運行截圖: