-
等级
本版专家分：143结帖率 100% -
阶乘和数就是比如： 145为1！+4！+5！，那么145就是阶乘和数。编程题目就是求1到1000内的阶乘和数.展开阅读全文
-
等级
本版专家分：26949勋章
-
-
蓝花
2012年12月 Delphi大版内专家分月排行榜第三
2012年11月 Delphi大版内专家分月排行榜第三
-
-
3=1! + 2!
7=1! + 3!
8=2! + 3!
9=1! + 2! + 3!
25=1! + 4!
26=2! + 4!
27=1! + 2! + 4!
30=3! + 4!
31=1! + 3! + 4!
32=2! + 3! + 4!
33=1! + 2! + 3! + 4!
121=1! + 5!
122=2! + 5!
123=1! + 2! + 5!
126=3! + 5!
127=1! + 3! + 5!
128=2! + 3! + 5!
129=1! + 2! + 3! + 5!
144=4! + 5!
145=1! + 4! + 5!
146=2! + 4! + 5!
147=1! + 2! + 4! + 5!
150=3! + 4! + 5!
151=1! + 3! + 4! + 5!
152=2! + 3! + 4! + 5!
153=1! + 2! + 3! + 4! + 5!
721=1! + 6!
722=2! + 6!
723=1! + 2! + 6!
726=3! + 6!
727=1! + 3! + 6!
728=2! + 3! + 6!
729=1! + 2! + 3! + 6!
744=4! + 6!
745=1! + 4! + 6!
746=2! + 4! + 6!
747=1! + 2! + 4! + 6!
750=3! + 4! + 6!
751=1! + 3! + 4! + 6!
752=2! + 3! + 4! + 6!
753=1! + 2! + 3! + 4! + 6!
840=5! + 6!
841=1! + 5! + 6!
842=2! + 5! + 6!
843=1! + 2! + 5! + 6!
846=3! + 5! + 6!
847=1! + 3! + 5! + 6!
848=2! + 3! + 5! + 6!
849=1! + 2! + 3! + 5! + 6!
864=4! + 5! + 6!
865=1! + 4! + 5! + 6!
866=2! + 4! + 5! + 6!
867=1! + 2! + 4! + 5! + 6!
870=3! + 4! + 5! + 6!
871=1! + 3! + 4! + 5! + 6!
872=2! + 3! + 4! + 5! + 6!
873=1! + 2! + 3! + 4! + 5! + 6!
-
等级
本版专家分：26949勋章
-
-
蓝花
2012年12月 Delphi大版内专家分月排行榜第三
2012年11月 Delphi大版内专家分月排行榜第三
-
-
var
Datas , OutDatas : array of integer;
OutStringList : array of String; //显示使用
procedure ImulAll;
var
i , n , nCount : integer;
begin
n := 1;
SetLength(Datas , Trunc(SQRT(1000)));
nCount := 0;
for i:=0 to High(Datas) do begin
n := n * (i+1);
if n>1000 then Break;
Datas[i] := n;
inc(nCount);
end;
SetLength(Datas , nCount);
end;
procedure GetNeedInt;
Type
T32BitSet = 0..31;
T32BitSetOf = set of T32BitSet;
P32BitSetOf = ^T32BitSetOf;
var
n , Sum , nInc : integer;
i , D , k : integer;
S : String; //显示使用
begin
n := Length(Datas);
if n=0 then exit;
D := $FFFFFFFF SHR (32 - n);
for i:=1 to D do begin
Sum := 0;
nInc := 0;
S := ''; //显示使用
for k:=0 to n-1 do begin
if k in P32BitSetOf(@i)^ then begin
Sum := Sum + Datas[k];
inc(nInc);
S := S + IntToStr(k+1) + '! + '; //显示使用
end;
end;
if (nInc>=2) then begin
SetLength(OutDatas , Length(OutDatas)+1);
OutDatas[High(OutDatas)] := Sum;
SetLength(OutStringList , Length(OutStringList)+1); //显示使用
OutStringList[High(OutStringList)] := Copy(S , 1 , Length(S) - 2); //显示使用
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
ImulAll;
GetNeedInt;
for i:=0 to High(OutDatas) do
Memo2.Lines.Add(IntToStr(OutDatas[i]) + '=' + OutStringList[i]);
end;
-
等级
本版专家分：26949勋章
-
-
蓝花
2012年12月 Delphi大版内专家分月排行榜第三
2012年11月 Delphi大版内专家分月排行榜第三
-
-
看到喜欢的题目就手痒...
-
等级
本版专家分：26949勋章
-
-
蓝花
2012年12月 Delphi大版内专家分月排行榜第三
2012年11月 Delphi大版内专家分月排行榜第三
-
-
呵呵,你举的这例子太有特殊性了,145 = 1!+4!+5!,导致5166理解错误
- Pascal教程
第一节 Pascal 程序结构和基本语句 2 第二节 顺序结构程序与基本数据类型 6 第二章 分支程序 10 第一节 条件语句与复合语句 10 第二节 情况语句与算术标准函数 12 第三章 循环程序 16 第一节 for ...
- [数据结构]算法设计方法：递归的内涵与java实现n的阶乘
本博克部分代码来源： 本文原创作者：书呆子Rico ... 摘要： 大师 L. Peter Deutsch 说过：To Iterate is Human, to ...毋庸置疑地，递归确实是一个奇妙的思维方式。对一些简单的递归问题，我们总是惊叹于递...
- 任何一个递归过程都可以转换成非递归过程_经典好文：一文搞定递归的内涵与经典应用...
毋庸置疑地，递归确实是一个奇妙的思维方式。对一些简单的递归问题，我们总是惊叹于递归描述问题的能力和编写代码的简洁，但要想真正领悟递归的精髓、灵活地运用递归思想来解决问题却并不是一件容易的事...
- 算法学习（1）递归
毋庸置疑地，递归确实是一个奇妙的思维方式。对一些简单的递归问题，我们总是惊叹于递归描述问题的能力和编写代码的简洁，但要想真正领悟递归的精髓、灵活地运用递归思想来解决问题却并不是一件容易的事情。在正式...
- Linux下C语言编程
通过本章的学习，可以对在Linux下使用C语言编程有一个基本的了解。1.1 Linux 简 介Linux是能够自由传播并继承了UNIX内核的操作系统，是对UNIX的简化和改进，它既保留了UNIX系统的高安全性，同时
- Python学习笔记（一）
二、 列表和元祖 2.1序列 python内置了多种序列，常用的有列表和元祖,还有一种是字符串。...greeting[-1] #表示倒数第一个 'h' 'o' 2.2.2切片 使用切片来访问特定范围内的元素，为此可以使用两个索引，并...
- Haskell趣学指南1-3
编写这个教程,一方面是为了巩固我自己对haskell的理解，另一方面也是希望能够分享我的经验，给初学者提供一定帮助。网上现有的haskell教程已经汗牛充栋，在我学习的时候就曾参阅过许多教程与文章，它们讲解问题的...
- java基础 - 1
第一章：Java开始 1 学习目标 1 Java历史 2 Java技术概述 3 Java技术的优点 3 Java虚拟机 4 类加载器 6 Windows环境变量 8 内容总结 13 独立实践 14 第二章： 面向对象概述 15 学习目标 15 面向对象...
- Leetcode解题思路总结(Easy)
近来走上了Leetcode刷题之路，不过刷题背后更重要的是思路，掌握了方法，举一反三...344 Reverse String，最近新加的一道题，用C++秒过，12秒，反转字符串，思路很简单，一种暴力方法就用直接用一个新的字符串存
- 递归算法
原作者：书呆子Rico 《递归的内涵与经典应用》 http://my.csdn.net/justloveyou_ 摘要： 大师 L. Peter Deutsch 说过：To Iterate is Human, to Recurse, Divine....毋庸置疑...
- 递归算法详细讲解
原作者：书呆子Rico 《递归的内涵与经典应用》 http://my.csdn...
- JAVA部分基础总结
1996年1月，Sun公司发布了Java的第一个开发工具包（JDK 1.0），这是Java发展历程中的重要里程碑，标志着Java成为一种独立的开发工具。9月，约8.3万个网页应用了Java技术来制作。10月，Sun公司发布了Java平台的第一个...
- 递归算法的讲解
摘要： 大师 L. Peter Deutsch 说过：To Iterate is Human, to Recurse, Divine....毋庸置疑地，递归确实是一个奇妙的思维方式。对一些简单的递归问题，我们总是惊叹于递归描述问题的能力和编写代码的简...
- MatLab常见函数和运算符号
基本运算 convhull :凸壳函数cumprod :累计积cumsum :累计和cumtrapz :累计梯形数值积分delaunay :Delaunay三角化dsearch :求最近点 (这是两个有趣的函数)factor :质数分解inpolygon :搜索多边形内的点max ...
- 递归算法讲解
摘要： 大师 L. Peter Deutsch 说过：To Iterate is Human, to Recurse, Divine....毋庸置疑地，递归确实是一个奇妙的思维方式。对一些简单的递归问题，我们总是惊叹于递归描述问题的能力和编写代码的简...
- OpenJudge超详细题解，动画图文题解
我看了部分文章，一些我觉得很简单的题，但从中学到了以前没有学过的知识点和细节，重点是从中学习别人思维方式。 让更多的同学能学到更多的知识。 官方的QQ群：893157498 这是我建的QQ群：795233394 欢迎各位...
- 递归专题 01篇——超经典递归算法原理和实现时的经验总结 （4）经典递归问题实战（面试常考）
目录一、引言3、上面的比喻形象地阐述了递归与循环的内涵，那么我们来思考以下几个问题：二、递归的原理和概念4、递归的三要素（极其重要）5、递归算法的编程模型6、递归的应用场景三. 递归与循环四. 经典递归问题...
- perl语言入门第七版 电子版_2020年，5种将死的编程语言，不要浪费时间去学习了，另附教程...
至少我知道有这么个叫做“piecemeal”的编程语言，它的创造者似乎就只是将这个功能堆在另一个功能上面而已，并没有好好考虑将它们结合在一起。事实上，甚至是它的创造者也不得不承认这种编程语言是有问题的。经过...
- 20172302 《程序设计与数据结构》第九周学习总结
1.一个异常是指一个定义非正常情况或错误的对象，由程序或运行时环境抛出，可以根据需要进行相应的捕获和处理。而错误类似于异常，但是错误代表不可恢复的问题并且必须捕获处理。 2.一个异常确实代表了一个错误，...
- 浅谈递归算法
摘要： 大师 L. Peter Deutsch 说过：To Iterate is Human, to Recurse, Divine....毋庸置疑地，递归确实是一个奇妙的思维方式。对一些简单的递归问题，我们总是惊叹于递归描述问题的能力和编写代码的简...
- 递归深入讲解
原作者：书呆子Rico 《递归的内涵与经典应用》 http://my.csdn.net/justloveyou_ 摘要： 大师 L. Peter Deutsch 说过：To Iterate is Human, to Recurse, Divine.中文译为：人理解迭代，神理解递归。毋庸置疑...
- 微信小程序源码-合集6.rar
微信小程序源码，包含：图片展示、外卖点餐、小工具类、小游戏类、演绎博览、新闻资讯、医疗保健、艺术生活等源码。
- Qt项目实战之网络电子白板
本课程使用Qt技术实现了网络电子白板，支持直线、矩形、椭圆、三角形、涂鸦等图形元素。本课程实现的电子白板，可以在多人之间共享，每个人都可以进行任意绘制，每个人的绘制都可以同步显示在其它人的白板上。服务器端使用Qt Network开发，客户端使用Qt Network和Qt Graphics View Framework开发，数据传输使用JSON数据格式。 本课程一步一步演示了网络电子白板的实现，通过不断迭代的方式，综合展示了Qt框架中Network、GraphicsView Framework、JSON等多种技术的运用。通过本课程的学习，一方面可以学习到如何使用Qt的网络和图形视图模块进行综合性项目开发，另一方面也可以了解如何进行实战项目开发，丰富实战项目开发经验。
- 数据结构JAVA版2017教学视频课程
本课程共28个教学视频课程，22小时的教学时间，深入浅出的理论讲解，用JAVA语言实现每个知识点的代码，大量的上机练习题讲解，通过家家乐停车场，佳佳乐彩票机，佳佳乐通讯录，编译原理的语法分析等项目的综合应用实训，上课PPT，上课源代码等资料可以直接下载使用 了解数据结构的目的与作用，掌握单链表，双链表，循环链表的原理及实现，用数组与链表实现堆栈，链表队列与循环队列，二叉树的实现，冒泡排序，快速排序，插入排序，希尔排序，选择排序，堆排序，归并排序，基数排序，折半查找及大量的课后习题讲解，家家乐停车场，佳佳乐彩票机，佳佳乐通讯录等项目的综合实训
- C#高性能大容量SOCKET并发完成端口例子（有C#客户端）完整实例源码
例子主要包括SocketAsyncEventArgs通讯封装、服务端实现日志查看、SCOKET列表、上传、下载、远程文件流、吞吐量协议，用于测试SocketAsyncEventArgs的性能和压力，最大连接数支持65535个长连接，最高命令交互速度达到250MB/S（使用的是127.0.0.1的方式，相当于千兆网卡1Gb=125MB/S两倍的吞吐量）。服务端用C#编写，并使用log4net作为日志模块； 同时支持65536个连接，网络吞吐量可以达到400M。
- 2020简历模板合集.rar
2020简历模板合集
- 从零基础开始用Python处理Excel数据.pdf
首先学习Python的基础知识，然后使用Python来控制Excel，做数据处理。 Excel使用者、Python爱好者、数据处理人员、办公人员等 第1章 python基础 1.1 什么是python？ 1.2 为什么要学习用Python处理Excel表格？ 1.3 手把手教你安装python程序 1.3.1 下载python 1.3.2 安装python 1.3.3 验证是否安装成功 1.4 安装Python集成开发工具PyCharm 1.4.1 下载 1.4.2 安装 1.5 Python的输入与输出
- jdk1.8 64位官方正式版 jdk-8u91-windows
jdk1.8 64位官方正式版 jdk-8u91-windows
- python 京东预约抢购茅台脚本插件 一键运行
python 京东预约抢购茅台脚本插件 一键运行，按照readme介绍的步骤即可。 已经测试可以抢购得到。 注意：本资源仅用于用来学习，严禁用于任何商业目的，下载之后应当在24小时之内删除。
- C#入门必看实力程序100个
C#入门必看含有100个例字,每个例子都是针对C#的学习关键知识点设计的,是学习C#必须知道的一些程序例子,分享给大家，需要的可以下载