poj2613

weixinding

于 2012-02-11 10:27:19 发布

阅读量443

点赞数

CC 4.0 BY-SA版权

文章标签： c

本文链接：https://blog.youkuaiyun.com/weixinding/article/details/7250423

本文详细介绍了如何通过因数分解、约分等数学方法解决C(q,p)/C(r,s)的计算问题，并提供了一个高效的算法实现。通过实例演示，旨在帮助读者理解并掌握此类计算技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

【题意】

求C(q,p)/C(r,s)的值，保留五位小数

【输入】

多组数据，每组数据一行为q、p、r、s

【输出】

对于每组数据，输出一个数表示C(q,p)/C(r,s)的值

将因数分解后约分再从大到小乘除即可

program poj2613;
var
  p,q,r,s,i,j,k:longint;
  ans:extended;
  count:array [0..10001] of longint;

begin
  while not seekeof do
    begin
      fillchar(count,sizeof(count),0);
      read(p,q,r,s);
      for i:=2 to p do
        inc(count[i]);
      for i:=2 to q do
        dec(count[i]);
      for i:=2 to p-q do
        dec(count[i]);
      for i:=2 to r do
        dec(count[i]);
      for i:=2 to s do
        inc(count[i]);
      for i:=2 to r-s do
        inc(count[i]);
      ans:=1;
      for i:=10000 downto 2 do
        if count[i]>0 then
          begin
            for j:=1 to count[i] do
              ans:=ans*i;
          end
                      else
        if count[i]<0 then
          begin
            for j:=1 to -count[i] do
              ans:=ans/i;
          end;
      writeln(ans:0:5);
    end;
end.