原创力文档- 1、本文档共4页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
写出下列程序运行结果
1．var m,i,j:integer;
a:array[1..100] of longint;
n:longint;
begin
readln(m);
for i:=1 to m do
begin
a[i]:=1;
for j:=i-1 downto 2 do a[j]:=a[j]+a[j-1];
end;
for i:=1 to m do n:=n+a[i];
writeln(n);
end.
输入：8
输出：
2．var i,s,x,k,j : byte;
begin readln(x);
i := 1;
s := 0;
while s x do begin
i := i+1;
s := s+i;
end;
k := s-x;
if K 1
then begin
for j := 2 to i do
if j k then write(j, );
writeln;
end
else begin
for j := 3 to i-1 do write(j, );
writeln(i+1);
end;
readln;
end.
输入10
输出
3．var
i,k,n:integer;
x,w:array[1..500] of integer;
begin
readln(n);
for i:=1 to n do
begin
x[i]:=0;w[i]:=1;
end;
for i:=2 to trunc(sqrt(n))+1 do
if x[i]=0 then
begin
k:=i*i;
while K=n do
begin
x[k]:=i;
k:=k+i;
end;
end;
for i:=n downto 1 do
if x[i]0 then
begin
w[x[i]]:=w[x[i]]+w[i];
w[i div x[i]]:=w[i div x[i]]+w[i];
w[i]:=0;
end;
writeln(w[2],w[3]:5,w[5]:5);
end.
输入:10
输出:
4．const maxn=1000;
var pos,value:array[1..maxn]of longint;
n,i,j,x,sum:longint;
change:boolean;
begin
read(n);
for i:=1 to n do read(pos[i],value[i]);
change:=true;i:=1;
while change and (i=n-1) do begin
change:=false;
for j:=1 to n-i do
if value[j]value[j+1] then begin
change:=true;
x:=value[j];value[j]:=value[j+1];value[j+1]:=x;
end;
i:=i+1;
end;
sum:=0;
for i:=1 to n do sum:=sum+pos[i]*value[i];
writeln(sum=,sum);
end.
输入 8
1 8
2 1
3 2
4 9
5 3
6 4
7 8
8 5
输出
完善程序：
[问题描述]：
菲波那契数列的规律是：前两个数均为1，第三个数开始每个数等于经前面两个数的和，即1，1，2，3，5，8，13，21，34，55，89……已知任意一个大于0的整数可以表示为若干个互不相同的菲波那契数。程序的输入输出示例：
输入：121
输出：121=89+21+8+3
程序的算法说明(以121为例)：
(1) 寻找小于或等于n的最大菲波那契数a(如89)，并以a作为组成n的一个数输出。
(2)若n不等于a，则以n-a作为新的任意正整数，重复(1)步骤。若n=a则结束。
(3)函数find返回小于或等于n有最大菲波那契数。
program complete_program_2;
var
n:integer;
function find(n:integer):integer;
v
文档评论（0）