215 条题解
-
0zhangyq987 LV 8 @ 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) -
02009-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的题!!!!
还有超时的!!! -
02009-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 -
02009-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)) -
02009-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 -
02009-03-28 16:13:29@
精度精度
-
02009-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;
} -
02009-03-21 16:45:43@
A完这题后,大家可以去AC P1504 两个题目差不多的
-
02009-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 -
02009-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;
} -
02009-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);
} -
02009-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 -
02009-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 有效耗时:103msprogram 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 -
02009-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%。。。
-
02009-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 -
02009-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. -
02009-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 -
02009-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 -
02009-01-12 20:48:18@
ac 80题
感谢vivid puppy的大力支持 -
02009-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