free pascal 问题

1、AK的故事之英语学习篇（mistake）
程序名：      s
输入文件名：  
输出文件名： mistake.out
问题描述：
    面对竞争日益激烈的社会，AK深感自己的英语水平实在是太差了，他决定在英语方面下苦工。这些日子里，AK每天都要背大量的英语单词，阅读很多英语文章。终于有一天，AK很高兴的对自己说：“我的英语已经没问题了！”他决定写一篇英语文章来显示自己的水平……
    AK将自己的文章交给了他的英语老师Mr. Zhu，满以为Mr. Zhu会大加赞赏。谁知，Mr. Zhu却严厉的批评了AK。原来AK在这篇文章中拼错了许多许多单词。单词这一关都没过，别说文章的条理性了。
    AK看到了自己的不足，决心从这篇文章开始重新奋斗！他首先要做的是找出文章中拼错的单词，并修正。但是这也不是一件容易的事，因为AK这篇文章写得太长了，而且拼错的单词也太多了，AK的水平太低，根本没法把拼错的单词都找出来。于是，AK找到了你，希望你帮助他完成这一任务。

输入格式：
    从文本文件 中读入数据。
    第一行一个整数N（N≤10000），表示字典中单词的个数。
    第2~N+1行，每行一个单词，单词的长度不超过10。
    第N+2行，列出了AK在文章中所用到的单词（一律为小写字母），单词间用空格分隔，单词的个数不会超过1000。

输出格式：
    输出到文本文件mistake.out中。
    一个整数，表示AK拼错的单词的数目。
    注意：如果一个单词在字典中无法找到，那么我们就认为这个单词拼错了。

输入样例：
2
love
this
i love this game
// 注意：如果出现两个相同的单词，且都拼错了，则计拼错单词数为2。

输出样例：
2

算法提示：
字典的建立是本题的关键，用二叉排序树、堆及散列表可实现快速查找。

2、补丁(bugs)
程序名：      s
输入文件名：  
输出文件名： bugs.out
问题描述：
一个程序总有个错误，公司经常发布补丁来修正这些错误，遗憾的是，每用一个补丁，在修正某些错误的时候，同时会加入某些错误，每个补丁都有一定运行时间。
某公司发表了一个游戏，出现了n个错误B={b1,b2,b3,……bn}，于是该公司发布了m个补丁，每个补丁的应用都是有条件的（即哪些错误必须存在，哪些错误不能存在）。
求最少需要多少时间可全部修正这些错误。

输入格式：
输入文件第一行有两个正整数n和m，n表示错误总数，m表示补丁总数，1<=n<=20,1<=m<=100。接下来m行给出了m个补丁的信息。每行包括一个正整数（表示此补丁程序的运行时间）和两个字符串，
第一个字符串描述了应用该补丁的条件。字符串的第i个字符，如果是‘+’，表示在软件中必须存在第bi号错误；如果是‘-’，表示软件中错误bi不能存在；如果是‘0’，则表示错误bi存在或不存在均可（即对应用该补丁没用影响）。
第二个字符串描述了应用该补丁的效果。字符串的第i个，如果是‘+’，表示产生了一个新错误bi；如果是‘-’，表示错误bi被修改好了；如果是‘0’，则表示错误bi不变（即原来存在的，仍然存在；原来不存在，还是不存在）。

输出格式：
输出一个整数，如果问题有解，输出总耗时。否则输出-1。

样例输入：
3 5
1 0-+ -+-
3 +-- -00
4 000 00-
6 +0+ -0-
3 0+0 0-0

样例输出：
7

3、家谱（gen）
程序名：      s
输入文件名：  
输出文件名： gen.out
问题描述：
  现代的人对于本家族血统越来越感兴趣，现在给出充足的父子关系，请你编写程序找到某个人的最早的祖先。

输入格式:
输入文件由多行组成，首先是一系列有关父子关系的描述，其中每一组父子关系由二行组成，用#name的形式描写一组父子关系中的父亲的名字，用+name的形式描写一组父子关系中的儿子的名字；接下来用?name的形式表示要求该人的最早的祖先；最后用单独的一个$表示文件结束。规定每个人的名字都有且只有6个字符，而且首字母大写，且没有任意两个人的名字相同。最多可能有1000组父子关系，总人数最多可能达到50000人，家谱中的记载不超过30代。

输出格式:
按照输入文件的要求顺序，求出每一个要找祖先的人的祖先，格式：本人的名字+一个空格+祖先的名字+回车。

样例输入:
#George
+Rodney
#Arthur
+Gareth
+Walter
#Gareth
+Edward
?Edward
?Walter
?Rodney
?Arthur
$

样例输出:
Edward Arthur
Walter Arthur
Rodney George
Arthur Arthur
解答出一题即可

全部

j***

回答