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

写出下列程序运行结果 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