原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
程序设计基础1(郑大)
PAGE
4 -
输入三个整数x,y,z，由小到大输出。
if xy 交换x,y
if xz 交换x,z
if yz 交换y,z
有一个正整数，将该数倒序输出。
方法1：
s←0
Repeat
r←n mod 10
s←s*10+r
n←n div 10
until n=0
方法2:
s←0
while n0 do
begin
r←n mod 10
s←s*10+r
n←n div 10
end
判断一个对称数是否为对称数（如 232）。
先倒序，再比较
质因子分解
n
k←z
while n1 do
begin
if n mod k =0 then
begin
wtite(k)
n←n div k
end
else
k←k+1
end
最小公倍数，最大公约数（欧几里得算法，辗转相除法）
n1←n，m1←m /* nm */
while m0 do
begin
r←n mod m
n←m
m←r
end
/* n是最大公因子 */
n1*m1/n是最小公倍数
求 s＝a＋aa+aaa+aaaa+…… 如： 2+22+222+2222+……
s←0;k←0;t←0
while kn do
begin
t←t*10+a
s←s+t
k←k+1
end
有1,2,3,4，任选三个互不相同的数组成一个三位数，有多少个这样的三位数？分别都是多少？
i←0;n←0;
while i=4 do
begin
j←1
while j=4 do
begin
k←1
while k=4 do
begin
if (ij) and (ik) and (jk) then
begin
write (i,j,k)
n←n+1
end
k←k+1
end
j←j+1
end
给出日期y，m，d，计算该日期是该年的第几天？
k←1,s←0
while k=m-1 do
begin
case k of
case 1,3,5,7,8,10,12: s←s+31
case 2: if y闰年 s←s+29 else s←s+28
case 4,6,9,11 :s←s+30
end
k←k+1
end
s←s+d
如果一个数正好等于它的各因子之和，则该数称为“完全数”。找出1000以内的所有完全数。（完全数如：6=1+2+3）
j←1
while j=1000 do
begin
s←0
i←1
while ij do
begin
if j mod i =0 then s←s+i
i←i+1
end
if s=j then write(j)
j←j+1
end
斐波那契数列：
1，1，2，3，5，8，13……
求出其前n项之和。
f1←1,f2←1,s←2;k←2
while k=n do
begin
f←f1+f2
s←s+f
f1←f2
f2←f
k←k+1
end
判断100～200之间有多少个素数？
j←101,n←0
while j200 do
begin
k←1
repeat
k←k+2
until j mod k = 0
if j=k then n←n+1
j←j+2
end
write(n)
一个球从100米高度自由落下，每次落地后反弹到原高度的一半再落下，求它在第10次落地时共经过了多少米？第10次反弹高度是多少？
f←100,h←f/2,n←2
while n=10 do
begin
f←f+2*h
h←h/2
n←n+1
end
write(f,h) /* h为反弹高度 */
猴子吃桃子问题：猴子第一天摘下若干个桃子，当即吃了一半再多一个，第二天又将剩下的桃子吃一半多一个，按此方法，第10天早上想吃时只剩下一个桃子了。求猴子第一天摘了多少桃子？
day←9,x2←1
while day0 do
begin
x1←(x2+1)*2
x2←x1
day←day-1
end
write(x1)
甲乙两个乒乓球队进行比赛，各出一人。甲队为a，b，c三人，乙队为x，y，z三人。a不和x比，c不和x，z比，输出两队的比赛方案。
i←’x’
while i=’z’ do
begin
j←’x’
while j=’z’ do
begin
k←’x’
while k=’z’ do
begin
if (ij) and (ik) and (jk) then
您可能关注的文档
最近下载
- （12页PPT）美的集团QMS系统培训ROHS试验V10.pptx VIP
- 慢性阻塞性肺疾病健康教育培训课件.pptx VIP
- 工业机器人系统运维员实操试卷（技师）（试卷三）.docx VIP
- （23页PPT）美的集团QMS系统培训成品抽检V11.pptx VIP
- 新教材北师大版高中数学选择性必修第一册第一章直线与圆知识点考点重点难点解题规律归纳总结.pdf VIP
- 美的集团QMS系统培训-成品巡检V1.1.ppt VIP
- 第四版（2025）国际压力性损伤溃疡预防和治疗临床指南解读.docx VIP
- 小学信息技术教案制作贺卡.doc VIP
- 《光伏渔业池塘建设通用技术规范》.pdf VIP
- 2025年供应链管理部年终总结.docx
文档评论（0）