[NOIP2008]笨小猴

最新推荐文章于 2024-03-11 15:40:05 发布

转载最新推荐文章于 2024-03-11 15:40:05 发布 · 111 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/yangqingli/p/4751918.html

本文介绍了2008年NOIP全国联赛提高组的一道英文单词选择题，该题要求选手判断一个给定的单词是否为幸运单词。文章详细解释了幸运单词的概念及判断方法，并提供了完整的Pascal语言代码实现。

2008年NOIP全国联赛提高组

题目描述 Description

笨小猴的词汇量很小，所以每次做英语选择题的时候都很头疼。但是他找到了一种方法，经试验证明，用这种方法去选择选项的时候选对的几率非常大！

这种方法的具体描述如下：假设maxn是单词中出现次数最多的字母的出现次数，minn是单词中出现次数最少的字母的出现次数，如果maxn-minn是一个质数，那么笨小猴就认为这是个Lucky Word，这样的单词很可能就是正确的答案。

输入描述 Input Description

输入文件word.in只有一行，是一个单词，其中只可能出现小写字母，并且长度小于100。

输出描述 Output Description

输出文件word.out共两行，第一行是一个字符串，假设输入的的单词是Lucky Word，那么输出“Lucky Word”，否则输出“No Answer”；

第二行是一个整数，如果输入单词是Lucky Word，输出maxn-minn的值，否则输出0。

样例输入 Sample Input

样例一

error

样例二

olympic

样例输出 Sample Output

样例一

Lucky Word

样例二

No Answer

思路

　　很水的移动字符串处理，读入找大小。需要注意的是空格和最小值是零的情况。

var a:array['A'..'z'] of longint;
    s:ansistring;
    i,max,min:longint;
    j:char;

function p(x:longint):boolean;
var i:longint;
begin
    if (x=1)or(x=0)or(x<0) then exit(false);
    for i:=2 to trunc(sqrt(x)) do
        if (x mod i=0) then exit(false);
    exit(true);
end;

begin
    fillchar(a,sizeof(a),0);
    readln(s);
    for i:=1 to length(s) do
        begin
            if s[i]=' ' then continue;
            inc(a[s[i]]);
        end;
    max:=0;min:=maxlongint;
    for j:='A' to 'z' do
        begin
            if a[j]>max then max:=a[j];
            if (a[j]<min)and(a[j]<>0) then min:=a[j];
        end;
    if p(max-min) then
        begin
            writeln('Lucky Word');
            writeln(max-min);
        end
    else
        begin
            writeln('No Answer');
            writeln(0);
        end;
end.

View Code

转载于:https://www.cnblogs.com/yangqingli/p/4751918.html