题解

215 条题解

  • 0
    @ 2009-06-07 11:55:17

    p,q,t:real;

    a,b:longint;

    begin

    read(p,q);

    p:=p/100;q:=q/100;

    for b:=1 to 100000 do

    for a:=1 to b do

    if ((a/b)>p)and((a/b)

  • 0
    @ 2009-04-17 20:41:17

    program shfeng;

    const m=1e-6;

    var

    p,q:double;

    n:longint;

    begin

    readln(p,q);

    p:=p/100;

    q:=q/100;

    n:=1;

    if p0 then

    while trunc(n/q+m)+1>trunc(n/p-m) do inc(n);

    writeln(trunc(n/q+m)+1);

    end.

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    以后发题解时要有素质,不要发没有AC的题!!!!

    还有超时的!!!

  • 0
    @ 2009-04-09 20:57:46

    program shengfengtanrenshu;

    var a,q,t,p,b:real;

    i,j:longint;

    begin

    read(p,q);

    a:=p/100;

    b:=q/100;

    for i:= 1 to 10100 do

    for j:=1 to 10100 do

    begin

    t:=i/j;

    if (a

  • 0
    @ 2009-04-02 13:29:43

    program P1041;

    var

    P,Q:extended;

    i:longint;

    begin

    readln(P,Q);

    P:=P/100;

    Q:=Q/100;

    i:=1;

    while (abs(i*P-trunc(i*Q))

  • 0
    @ 2009-04-01 15:44:01

    program abc;

    var

    p,q:real;

    a:longint;

    begin

    readln(p,q);

    p:=p/100;

    q:=q/100;

    a:=0;

    repeat

    inc(a);

    until (a*p

  • 0
    @ 2009-03-28 16:13:29

    精度精度

  • 0
    @ 2009-03-28 15:22:28

    #include "stdio.h"

    int main()

    {

      float p,q;

      int i;

      scanf("%f%f",&p,&q);

      p=p/100;

      q=q/100;

      for(i=1;;i++)

       if((int)(i*q-0.000001)-(int)(i*p+0.000001)>=1)

        break;

      printf("%d",i);

      return 0;

    }

  • 0
    @ 2009-03-21 16:45:43

    A完这题后,大家可以去AC P1504 两个题目差不多的

  • 0
    @ 2009-03-04 13:27:32

    program abc;

    var

    p,q:real;

    a:longint;

    begin

    readln(p,q);

    p:=p/100;

    q:=q/100;

    a:=0;

    repeat

    inc(a);

    until (a*p

  • 0
    @ 2009-03-01 18:34:42

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    #include "stdio.h"

    int main()

    {

    float p,q;

    int i;

    scanf("%f%f",&p,&q);

    p=p/100;

    q=q/100;

    for(i=1;;i++)

    if((int)(i*q-0.000001)-(int)(i*p+0.000001)>=1)

    break;

    printf("%d",i);

    return 0;

    }

  • 0
    @ 2009-02-26 16:01:53

    #include

    int main()

    {

    float p,q;

    scanf("%f %f",&p,&q);

    p=p/100;

    q=q/100;

    int i;

    for(i=1;;i++)

    {

    {

    if((int)(i*q-0.000001)-(int)(i*p+0.000001)>=1)break;

    }

    }

    printf("%d",i);

    }

  • 0
    @ 2009-02-26 14:35:56

    program P1041;

    var

    q,p:real;

    min:longint;

    begin

    readln(p,q);

    p:=p/100;

    q:=q/100;

    min:=0;

    repeat

    inc(min);

    until (min*p

  • 0
    @ 2009-02-20 19:13:22

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 103ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:103ms

    program vij1041;

    var p,q,p1,p2:double;

    i,j,a,b:integer;

    begin

    readln(p,q);

    p:=p/100;

    q:=q/100;

    repeat

    inc(b);

    a:=-1;

    repeat

    inc(a);

    p1:=a/b;

    until p1>p;

    p2:=a/b;

    until (p2>p) and (p2

  • 0
    @ 2009-02-17 11:13:49

    编译通过...

    ├ 测试数据 01:答案正确... 0ms

    ├ 测试数据 02:答案正确... 0ms

    ├ 测试数据 03:答案正确... 0ms

    ├ 测试数据 04:答案正确... 0ms

    ├ 测试数据 05:答案正确... 0ms

    ├ 测试数据 06:答案正确... 0ms

    ├ 测试数据 07:答案正确... 0ms

    ├ 测试数据 08:答案正确... 0ms

    ├ 测试数据 09:答案正确... 0ms

    ├ 测试数据 10:答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分:100 有效耗时:0ms

    吓。。。当我临门一脚就要提交的时候突然瞥见26%的通过率。吓得我赶快回来修改程序。。。问题是没有问题。精度?extended?不了解。死马当活马医地把源程序提交上去,就奔出了这个。搞什么。。害我瞎紧张。题目中说的很清楚了。。大于p%小于q%。。。

  • 0
    @ 2009-02-05 16:18:13

    #include

    using namespace std;

    int main()

    {

    double p,g;bool flag=true;int i;

    cin>>p>>g;

    i=1;p=p/100;g=g/100;

    while(flag)

    {

    if((int)(i*g-0.0001)-(int)(i*p+0.0001)>=1) flag=false;

    else i++;

    }

    cout

  • 0
    @ 2009-01-23 22:05:57

    题目没有太多含金量,就是考pascal中精度处理的问题。

    const num=1e-6;

    var i,j,k,m,n:longint;

    p,q,p1,q1:double;

    ans:longint;

    begin

    readln(p,q);

    p:=p/100; q:=q/100;

    ans:=1;

    if p0 then

    while trunc(ans/q+num)+1>trunc(ans/p-num) do

    inc(ans);

    writeln(trunc(ans/q+num)+1);

    end.

  • 0
    @ 2009-01-21 13:50:31

    #include

    using namespace std;

    int main()

    {

    double a,b,m=0;

    cin>>a>>b;

    a = a/100;

    b = b/100;

    int n,o;

    while(1)

    {

    m++;

    n = (int)m*a; o = (int)m*b;

    if(o-n>=1 && ((a ==0)||(a!=0 &&n!=m*a))&& o!=m*b)

    {

    cout

  • 0
    @ 2009-01-20 15:10:08

    希望哪位大牛指点一下,感激不尽

    program p1041;

    var i,j,p,q,t,k:real;

    tt:integer;

    begin

    readln(p,q);

    p:=1/p*100;

    q:=1/q*100;

    k:=abs(i-j);

    if k>=1 then writeln(trunc(i))

    else

    begin

    while k

  • 0
    @ 2009-01-12 20:48:18

    ac 80题

    感谢vivid puppy的大力支持

  • 0
    @ 2009-01-02 02:34:48

    #include

    using namespace std;

    int main()

    {

    double P,Q;

    cin>>P>>Q;

    for(int i=2;;i++)

    {

    double k=0;

    for(int j=1;kP)

    {

    cout

信息

ID
1041
难度
6
分类
其他 | 数学 点击显示
标签
(无)
递交数
8263
已通过
2321
通过率
28%
被复制
11
上传者