noip普及组初赛写运行结果完善程序5

下载本文档

ID 331481
格式 doc
大小 19 KB
约4页
收藏
点赞(0)
海报
举报

/ 4

下载本文档

文本预览下载提示常见问题

写出下列程序运行结果1．varm,i,j:integer;a:array[1..100]oflongint;n:longint;beginreadln(m);fori:=1tomdobegina[i]:=1;forj:=i-1downto2doa[j]:=a[j]+a[j-1];end;fori:=1tomdon:=n+a[i];writeln(n);end.输入：8输出：2．vari,s,x,k,j:byte;beginreadln(x);i:=1;s:=0;whiles1thenbeginforj:=2toidoifj<>kthenwrite(j,'');writeln;endelsebeginforj:=3toi-1dowrite(j,'');writeln(i+1);end;readln;end.输入10输出3．vari,k,n:integer;x,w:array[1..500]ofinteger;beginreadln(n);fori:=1tondobeginx[i]:=0;w[i]:=1;end;fori:=2totrunc(sqrt(n))+1doifx[i]=0thenbegink:=i*i;whileK<=ndobeginx[k]:=i;k:=k+i;end;end;fori:=ndownto1doifx[i]<>0thenbeginw[x[i]]:=w[x[i]]+w[i];w[idivx[i]]:=w[idivx[i]]+w[i];w[i]:=0;end;writeln(w[2],w[3]:5,w[5]:5);end.输入:10输出:4．constmaxn=1000;varpos,value:array[1..maxn]oflongint;n,i,j,x,sum:longint;change:boolean;beginread(n);fori:=1tondoread(pos[i],value[i]);change:=true;i:=1;whilechangeand(i<=n-1)dobeginchange:=false;forj:=1ton-idoifvalue[j]>value[j+1]thenbeginchange:=true;x:=value[j];value[j]:=value[j+1];value[j+1]:=x;end;i:=i+1;end;sum:=0;fori:=1tondosum:=sum+pos[i]*value[i];writeln('sum=',sum);end.输入81821324953647885输出完善程序：[问题描述]：菲波那契数列的规律是：前两个数均为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有最大菲波那契数。programcomplete_program_2;varn:integer;functionfind(n:integer):integer;vara,b,c:integer;begina:=1;b:=1;repeatc:=【1】;a:=b;b:=c;untilb>=n;ifb=nthenfind:=【2】else【3】;end;procedurep(n:integer);vara:integer;begina:=find(n);write('+',a);ifa

1、当您付费下载文档后，您只拥有了使用权限，并不意味着购买了版权，文档只能用于自身使用，不得用于其他商业用途（如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利）。
2、本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供参考，付费前请自行鉴别。
3、如文档内容存在侵犯商业秘密、侵犯著作权等，请点击“举报”。