回 帖 发 新 帖 刷新版面

主题:[讨论]能量汇集机问题,不知怎么错了?

【题目描述】 栋栋有一块长方形的地,他在地上种了一种能量植物,这种植物可以采集太阳光的能量。在这些植物采集能量后,栋栋再使 用一个能量汇集机器把这些植物采集到的能量汇集到一起。 栋栋的植物种得非常整齐,一共有n列,每列有m棵,植物的横竖间距都一样,因此对 于每一棵植物,栋栋可以用一个坐标(x, y)来表示,其中x的范围是1至n,表示是在第x列,y的范围是1至m,表示是在第x列的第y棵。 由于能量汇集机器较大,不便移动,栋栋将它放在了一个角上,坐标正好是(0, 0)。 能量汇集机器在汇集的过程中有一定的能量损失。如果一 棵植物与能量汇集机器连接而成的线段上有k棵植物,则能量的损失为2k + 1。例如,当能量汇集机器收集坐标为(2, 4)的植物时,由于连接线段上存在一棵植物(1, 2),会产生3的能量损失。注意,如果一棵植物与能量汇集机器连接的线段上没有植物,则能量损失为1。现在要计算总的能量损失。 下面给出了一个能量采集的例子,其中n = 5,m = 4,一共有20棵植物,在每棵植物上标明了能量汇集机器收集它的能量时产生的能量损失。 在这个例子中,总共 产生了36的能量损失。
【输入文件】 输入文件energy.in仅包含一行,为两个整数n和m。【输出文件】 输 出文件energy.out仅包含一个整数,表示总共产生的能量损失。

【样例输入1】5 4【样例输出1】36【样例输入2】3 4【样例输出2】20【数据规模和约定】 对于10%的数据:1 ≤ n, m ≤ 10; 对于50%的数据:1 ≤ n, m ≤ 100; 对于100%的数据:1 ≤ n, m ≤ 1000;

我的解法

var
 sum:longint; cc:longint;
 i,j,a,m,n:integer;
 function min(x,y:integer):integer;
  begin
   if x>y then min:=y
    else min:=x;
  end;


 begin
assign(input,'energy.in');reset(input);
assign(output,'energy.out');rewrite(output);
  sum:=0;
  readln(n,m);
  cc:=m*n;
 for i:=1 to (n div 2) do
   for j:=1 to (m div 2) do{以此长宽规定的小矩形中的点作为连线的起点}
    begin
    if i=j then continue;{避免从左下到右上的对角线上的点重复被当做起点计算,先不考虑}
    a:=min(n div i,m div j);{计算以此起点为直线上的点的个数}
    sum:=sum+a*a;{按等差数列前N项和求解}
    cc:=cc-a;{除掉已处理的点}
    end;

    a:=min(m,n);{处理对角线}
    cc:=cc-a;
    sum:=sum+cc+a*a;{CC即未在一条直线上的点,都为1}
   writeln(sum);
close(input);
close(output);
 end.

希望厉害的编程学习者能告诉我的思路错在哪
真的感激不尽 
2

回复列表 (共1个回复)

沙发

?好像没问题?等会再告诉你

我来回复

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