POJ 3744 Scout YYF I

Scout YYF I
Time Limit: 1000MS Memory Limit: 65536K
Total Submissions: 4090 Accepted: 1050

Description

YYF is a couragous scout. Now he is on a dangerous mission which is to penetrate into the enemy's base. After overcoming a series difficulties, YYF is now at the start of enemy's famous "mine road". This is a very long road, on which there are numbers of mines. At first, YYF is at step one. For each step after that, YYF will walk one step with a probability of  p, or jump two step with a probality of 1- p. Here is the task, given the place of each mine, please calculate the probality that YYF can go through the "mine road" safely.

Input

The input contains many test cases ended with  EOF.
Each test case contains two lines.
The First line of each test case is  N (1 ≤  N ≤ 10) and  p (0.25 ≤  p ≤ 0.75) seperated by a single blank, standing for the number of mines and the probability to walk one step.
The Second line of each test case is N integer standing for the place of N mines. Each integer is in the range of [1, 100000000].

Output

For each test case, output the probabilty in a single line with the precision to 7 digits after the decimal point.

Sample Input

1 0.5
2
2 0.5
2 4

Sample Output

0.5000000
0.2500000

Source


概率DP    根据乘法定理进行分段处理

这样每一段只有一个地雷。我们只要求得通过每一段的概率。乘法原理相乘就是答案。
对于每一段,通过该段的概率等于1-踩到该段终点的地雷的概率。
 
就比如第一段 1~x[1].  通过该段其实就相当于是到达x[1]+1点。那么p[x[1]+1]=1-p[x[1]].
但是这个前提是p[1]=1,即起点的概率等于1.对于后面的段我们也是一样的假设,这样就乘起来就是答案了。
 
对于每一段的概率的求法可以通过矩阵乘法快速求出来。

#include<cstdio>
#include<cstring>
#include<algorithm>

using namespace std;

double p;
double num[2][2];

void fun(int x)
{
    int i,j,k;
    double cnt[2][2]={p,1.0-p,1.0,0.0},tmp[2][2];
    num[0][0]=num[1][1]=1.0;
    num[0][1]=num[1][0]=0.0;
    while(x>0)
    {
        if(x&1)
        {
            for(i=0;i<2;i++)
                for(j=0;j<2;j++)
                 {
                     tmp[i][j]=num[i][j];
                     num[i][j]=0.0;
                 }

            for(i=0;i<2;i++)
                for(j=0;j<2;j++)
                    for(k=0;k<2;k++)
                        num[i][j]+=tmp[i][k]*cnt[k][j];
        }
        for(i=0;i<2;i++)
            for(j=0;j<2;j++)
            {
                tmp[i][j]=cnt[i][j];
                cnt[i][j]=0.0;
            }

        for(i=0;i<2;i++)
            for(j=0;j<2;j++)
                for(k=0;k<2;k++)
                    cnt[i][j]+=tmp[i][k]*tmp[k][j];
        x>>=1;
    }
    return ;
}

int main()
{
    int N,i,cur,flag;
    int X[100]={-100};
    double d[10];
    double ans;

    while(scanf("%d%lf",&N,&p)==2)
    {
        for(i=1;i<=N;i++)
            scanf("%d",&X[i]);
        sort(X+1,X+1+N);
        if(X[1]==1)
        {
            printf("0.0000000\n");
            continue;
        }
        flag=0;
        for(i=1;i<N;i++)
            if(X[i]+1==X[i+1])
            {
                flag=1;
                printf("0.0000000\n");
                break;
            }
        if(flag)
            continue;
        ans=1.0;
        cur=1;
        for(i=1;i<=N;i++)
        {
            d[1]=1.0;   d[2]=p;
            if(X[i]-cur==1)
            {
                ans*=(1-d[2]);
                cur=X[i]+1;
                continue;
            }
            fun(X[i]-cur-1);
            d[3]=num[0][0]*d[2]+num[0][1]*d[1];
            ans*=(1-d[3]);
            cur=X[i]+1;
        }
        printf("%.7lf\n",ans);
    }
    return 0;
}



Delphi 12.3 作为一款面向 Windows 平台的集成开发环境,由 Embarcadero Technologies 负责其持续演进。该环境以 Object Pascal 语言为核心,并依托 Visual Component Library(VCL)框架,广泛应用于各类桌面软件、数据库系统及企业级解决方案的开发。在此生态中,Excel4Delphi 作为一个重要的社区开源项目,致力于搭建 Delphi 与 Microsoft Excel 之间的高效桥梁,使开发者能够在自研程序中直接调用 Excel 的文档处理、工作表管理、单元格操作及宏执行等功能。 该项目以库文件与组件包的形式提供,开发者将其集成至 Delphi 工程后,即可通过封装良好的接口实现对 Excel 的编程控制。具体功能涵盖创建与编辑工作簿、格式化单元格、批量导入导出数据,乃至执行内置公式与宏指令等高级操作。这一机制显著降低了在财务分析、报表自动生成、数据整理等场景中实现 Excel 功能集成的技术门槛,使开发者无需深入掌握 COM 编程或 Excel 底层 API 即可完成复杂任务。 使用 Excel4Delphi 需具备基础的 Delphi 编程知识,并对 Excel 对象模型有一定理解。实践中需注意不同 Excel 版本间的兼容性,并严格遵循项目文档进行环境配置与依赖部署。此外,操作过程中应遵循文件访问的最佳实践,例如确保目标文件未被独占锁定,并实施完整的异常处理机制,以防数据损毁或程序意外中断。 该项目的持续维护依赖于 Delphi 开发者社区的集体贡献,通过定期更新以适配新版开发环境与 Office 套件,并修复已发现的问题。对于需要深度融合 Excel 功能的 Delphi 应用而言,Excel4Delphi 提供了经过充分测试的可靠代码基础,使开发团队能更专注于业务逻辑与用户体验的优化,从而提升整体开发效率与软件质量。 资源来源于网络分享,仅用于学习交流使用,请勿用于商业,如有侵权请联系我删除!
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值