2009年国庆作业(冲刺复习).docVIP

1、Var A:array[1..3,1..4]of integer; B:array[1..4,1..3]of integer; X,y:integer; Begin For x:=1 to 3 do For y:=1 to 4 do A[x,y]:=x-y; For x:=4 downto 1 do For y:=1 to 3 do B[x,y]:=a[y,x]; Writeln(b[3,2]); End 输出： 二维数组 2、var x,n:integer; begin x:=0; n:=6; while n1 do begin x:=1; repeat write($); x:=x+1; until x=n; writeln; n:=n-1; end end. 输出： 双重循环 3、var i,j,s,a:integer; num:array[1..10] of integer; begin s:=0; a:=0; j:=0; for i:=1 to 10 do begin read(num[i]); if odd(num[i]) then s:=s+num[i] else begin a:=a+num[i]; j:=j+1 end end; writeln(s); writeln(trunc(a/j)); end. 输入：17 20 -12 16 4 5 77 0 8 14 输出： 数组、odd函数、trunc函数 4、var bh：array[1..10] of integer; n,s,i,j:integer; begin for i:=1 to 10 do bh[i]:=1; read(n); write(n=,n); j:=0; for i:=1 to 10 do begin s:=0; while sn do begin if j10 then j:=j+1; else j:=1; s:=s+bh[j]; end; write(j:3); bh[j]:=0 end end. 输入：5 输出： 循环嵌套、数组 置零数五 n=5 5 10 6 2 9 8 1 4 7 3 5、var x,y:integer; function func2(a,b:integer):integer; var c:integer; begin c:=a*b mod 3; func2:=c; end; function func1(a,b:integer):integer; var c:integer; begin a:=a+a; b:=b+b; c:=func2(a,b); func1:=c*c; end; begin read(x,y); writeln(func1(x,y)); end. 输入：11 19 输出： 函数的定义和调用 6、var sum:integer; procedure fun(); var sum:integer; begin sum:=20; writeln(‘##fun##:’,sum); end; begin sum:=10; writeln(‘**(1)**:’,sum); fun(); writeln(‘**(2)**:’,sum); end. 输出： 变量的作用域 7、var a,b,c,d:integer; procedure digui(a:integer;var b:integer); var c:integer; begin a:=succ(a); b:=succ(b); c:=3; d:=succ(d); writeln(‘sub1 ‘,a,b,c,d); if a4 then digui(a,b); writeln(‘sub2 ‘,a,b,c,d) end; begin a:=2; b:=2; c:=2; d:=2; writeln(‘main1 ‘,a,b,c,d); digui(a,b); writeln(‘main2 ‘,a,b,c,d); end. 输出： 变量的作用域、值形参和变量形参 递归 8、VAR i, s, max: integer; a ：array [1..10] of integer; begin for i:=1 to 10 do read (a[i]); max:=a[1] ；s