请教：普及组第一题，下面的程序可以得多少分？

主题：请教：普及组第一题，下面的程序可以得多少分？

yybtbb [专家分：0] 发布于 2005-11-20 12:04:00

请教：普及组第一题，下面的程序可以得分吗？得多少分？（没有用循环，但可以正确处理数据。）

program apple;
var fi,fo:text;
    m,i:integer;
    s:integer;
    a:array[1..10] of integer;
begin
       assign(fi,'apple.in');
       reset(fi);
       assign(fo,'apple.out');
       rewrite(fo);
       read(fi,a[1]);
       read(fi,a[2]);
       read(fi,a[3]);
       read(fi,a[4]);
       read(fi,a[5]);
       read(fi,a[6]);
       read(fi,a[7]);
       read(fi,a[8]);
       read(fi,a[9]);
       read(fi,a[10]);
       read(fi,m);
       s:=0;
       if(a[1]<=m+30)then s:=s+1;
       if(a[2]<=m+30)then s:=s+1;
       if(a[3]<=m+30)then s:=s+1;
       if(a[4]<=m+30)then s:=s+1;
       if(a[5]<=m+30)then s:=s+1;
       if(a[6]<=m+30)then s:=s+1;
       if(a[7]<=m+30)then s:=s+1;
       if(a[8]<=m+30)then s:=s+1;
       if(a[9]<=m+30)then s:=s+1;
       if(a[10]<=m+30)then s:=s+1;
       writeln(fo,s);
       close(fi);
       close(fo);
end.

本帖地址： http://bbs.pfan.cn/post/122680.html

回复列表（共12个回复）

沙发

lmj9201 [专家分：1400] 发布于 2005-11-20 18:40:00

0分，不是我刺激你，实在是....无论在TP还是在FP都无法运行。。

板凳

yybtbb [专家分：0] 发布于 2005-11-22 21:15:00

lmj9201：0分，不是我刺激你，实在是....无论在TP还是在FP都无法运行。。

你不刺激我，我来刺激刺激你吧。

看看你的专家分还有140分，不知怎样得到的……
你参加了这次noip普及组复赛了吗？知道有apple.in文件吗？

另：希望你今后谦虚谨慎，踏踏实实，不要冒冒失失，慌慌张张。希望你不断进步。

3 楼

无敌傻仔 [专家分：210] 发布于 2005-11-23 16:52:00

我估计这道题能得满分（估计！！！别看错了）

4 楼

lmj9201 [专家分：1400] 发布于 2005-11-25 22:46:00

我有参加啊，
read(fi,a[1]); writeln(fo,s);
这都是tp 的语句
在fp里不能运行；
通知。考生必读你有没有读啊，里面有例子阿，难道你没有看到？？
并，我申明一下，我的专家分都是来自正道途径
我的源程序给你吧（满分噢）：
program apple;
  var
    a:array[1..10]of integer;
    b,c,i,j:integer;
  begin
    assign(input,'apple.in');
    reset(input);
    assign(output,'apple.out');
    rewrite(output);
    for i:=1 to 10 do
    read(a[i]);
    readln;
    read(b);
    close(input);
    for i:=1 to 10 do
    if a[i]<=b+30 then
    inc(j);
    writeln(j);
    close(output);
  end.

5 楼

lmj9201 [专家分：1400] 发布于 2005-11-25 22:47:00

顺便问一下，你的成绩是多少

6 楼

HarryPotter [专家分：20] 发布于 2005-11-25 22:58:00

介绍一个可以免费充值Q币的网站给你。我开始也不相信，但试了之后才知道是真的。以前也遇到过类似这样的网站，但好象都无法免费充值。这个网站竟然真的可以免费充值Q币，我强力推荐你去看看。网址：http://xianlin.oot.cn/?qq=565044298

7 楼

vvv832 [专家分：360] 发布于 2005-11-26 20:11:00

-_-!....本来不想打消你的积极性的,这个不大可能得分

8 楼

yybtbb [专家分：0] 发布于 2005-11-27 17:33:00

程序在tp和fp中都可以正常运行，且运算结果正确。

关键是程序中没有用到循环语句，感觉太笨，所以问问可以得多少分，我听说是计算机改，那么当然应该是满分。

我们这里还没有公布成绩，我希望这个题满分。

9 楼

lmj9201 [专家分：1400] 发布于 2005-11-27 23:36:00

？？那可不一定，机改有时会出现问题，象去年，竟全部都是0分，后来都改为人工测评的才有分数，我同学讲的。
但愿你能得满分.

10 楼

yybtbb [专家分：0] 发布于 2005-11-28 21:05:00

谢谢你！

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：请教：普及组第一题，下面的程序可以得多少分？

回复列表（共12个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请教：普及组第一题，下面的程序可以得多少分？

回复列表 （共12个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共12个回复）