翻币问题pascal程序
Description
有N个硬币(6<=N<=20000)全部正面朝上排成一排,每次将其中5个硬币翻过来放在原位置,直到最后全部硬币翻成反面朝上为止。试编程找出步数最少的翻法,输出最少步数及翻法。
Input
从键盘输入一个正整数N(6<=N<=20000),表示硬币的数量。
Output
第1行:一个整数,表示最少步数
第2行至最后一行:先是一个整数,表示步骤序号(从0开始编号),后接一个":",再接当前硬币的状态(用一个整数表示正面朝上的硬币的个数)
Sample Input
6 (开始:6个硬币正面朝上)
Sample Output
0:6 (第0步结果:6个硬币正面朝上) 1:1 (第1步结果:1个硬币正面朝上) 2:4 (第2步结果:4个硬币正面朝上) 3:3 (第3步结果:3个硬币正面朝上) 4:2 (第4步结果:2个硬币正面朝上) 5:5 (第5步结果:5个硬币正面朝上) 6:0 (第6步结果:0个硬币正面朝上) 6 (最少用6步实现全部反面朝上)
Hint
只输出最少次数,其变化过程仅作参考
这题我是用广度优先搜索做的
看懂题目就好做多了
主要就是判断硬币满不满足翻的条件(即不能将五个正面翻成二反三正之类的)
还有判断这种正与反的情况有没有出现过
var
father,state:array[0..20000]of longint;
n,tj:longint;
procedure print(x:longint);
begin
if x=0 then exit;
print(father[x]);
inc(tj);
end;
procedure bfs;
var
head,tail,i,j:longint;
begin
head:=0;tail:=1;state[1]:=n;
repeat
inc(head);
for i:=0 to 5 do
begin
if (state[head]>=i)and(n-state[head]>=5-i) then
begin
inc(tail);
father[tail]:=head;
state[tail]:=state[head]-i+5-i;
for j:=1 to tail-1 do
if state[j]=state[tail] then
begin
dec(tail);
break;
end;
if state[tail]=0 then
begin
print(tail);
tail:=0;
end;
end;
end;
until head>=tail;
end;
begin
read(n);
bfs;
write(tj-1);
end.
转载于:https://www.cnblogs.com/YYC-0304/p/9500234.html
翻币问题pascal程序相关推荐
- 基于有道翻译的英翻中微信小程序
基于有道翻译的英翻中微信小程序 环境 微信开发者工具 微信小程序云开发 node.js v12.16.3 axios@0.20.0 cheerio@1.0.0-rc.3 相关内容 Node.js有道翻 ...
- 公务员经典考试题——翻币问题
公务员经典考试题--翻币问题 硬币翻转问题:N(N是偶数)枚硬币均为正面朝上,每次翻转m枚硬币,要把所有的硬币翻转成反面朝上,求最短的操作序列( ∗ * ∗代表正面,O代表反面). 这个问题有一定难度 ...
- Pascal程序结构
Pascal程序结构 什么是Pascal程序结构 Pascal程序结构是指Pascal程序的基本组成部分及其组织方式,包括程序.单元.过程.函数.类型定义.变量定义.语句和表达式等.程序结构的良好设计 ...
- 我的第一次Pascal程序
今天刚刚来学点Pascal语言,都怪我买的书大多是用Pascal语言写的,所以我只能试着学一点咯! 来一段程序员最经典的Hello World! 1 program exl_2; 2 begin 3 ...
- 系统分析设计期末大项目——闲得一币TimeForCoin小程序前端
小程序项目地址_闲得一币 小程序实现 页面的划分 根据需求文档以及UI设计文档,并结合实际情况,将页面划分为如下四个大页: 主页 发布页 消息页 个人信息页 接下来依照页面的顺序进行小程序实现过程的简 ...
- 最优乘车pascal程序
Description H城是一个旅游胜地,每年都有成千上万的人前来观光.为方便游客,巴士公司在各个旅游景点及宾馆,饭店等地都设置了巴士站并开通了一些单程巴上线路.每条单程巴士线路从某个巴士站出发,依 ...
- 试卷批分pascal程序
某学校进行了一次英语考试,共有10道是非题,每题为10分,解答用1表示"是",用0表示"非"的方式.但老师批完卷后,发现漏批了一张试卷,而且标准答案也丢失了,手 ...
- 翻遍“微信小程序”的所有知乎问答,我们整理了大家最关注几个话题
9 月 21 日,微信应用号正式以"微信公众平台·小程序"的名义发布. 小程序出来之后,各界存在这些疑问: App 和服务号会不会消失:是否会颠覆 App Store:安卓.iOS ...
- 数列分段pascal程序
题意 对于给定的一个长度为N的正整数数列A[i],现要将其分成连续的若干段,并且每段和不超过M(可以等于M),问最少能将其分成多少段使得满足要求. 分析 一个一个加上s,如果s>m,那么s就变成 ...
最新文章
- mac下没有设置 SVN_EDITOR....错误解决方法
- 支付接入开发的陷阱有多深?
- 337. House Robber III 打家劫舍 III
- RuntimeError: Model class paypal.standard.ipn.models.PayPalIPN doesn't declare an explicit app_label
- JavaScript数组排序详解
- 荣耀赵明反讽雷军:有些话不适合知识分子讲
- 网络合作伙伴通信协议指南:NETWORK ASSOCIATES GUIDE TO COMMUNICATIONS PROTOCOLS
- Office文件的Open Xml 格式
- 包教会一对一跟着CNS学单细胞测序(含空间转录组、chipseq、RNAseq、Atacseq 和外显子等)3月13日开始...
- keras中的loss、optimizer、metrics
- 69. (待补) (使用sqlite3)实现简单的管理系统 MVC 将链表作为内存数据模型,将sqlite3作为数据库,将终端作为交互界面。读数据库生成 链表,修改链表写入文件。...
- SpringBoot之idea快捷键
- 扩散模型初探:原理及应用
- 简单的商品信息管理系统(Java 和sql server数据库)源码
- COMSOL Multiphysics 多物理场仿真学习小记
- jpg转换excel转换器_Excel转换功能变得简单
- ae合成设置快捷键_必收藏的AE常用快捷键(全不全,看过才知道)
- 笔记1——海康威视摄像头关闭声音
- MongoDB—Mac M1的安装
- Unable to find a single main class from the following candidates 问题解决