vj p1041神风堂人数 题解

原体叙述

枚举可能出现的人数，因为要求最少，所以从最小开始枚举

但是有个精度的问题......解决的方法就是加0.000000001.....无语的方法...

代码如下：

 

 1  var  p,q,i,k,m:real;t:longint;
 2      over:boolean;
 3  begin
 4    readln(p,q);
 5    p: = p / 100 + 0.000000001 ;q: = q / 100 - 0.000000001 ;
 6    i: = 0 ;
 7    over: = false;
 8     while   not (over)  do
 9       begin
10        i: = i + 1 ;
11        k: = i * p;
12        m: = i * q;
13        t: = trunc(m);
14         if  t > k  then
15           begin
16            writeln(i: 0 : 0 );
17            over: = true;
18           end ;
19       end ;
20  end .

 

转载于:https://www.cnblogs.com/waterfalleagle/archive/2009/11/13/1602557.html