奥赛讲义：函数过程.docVIP

过程和函数 自顶向下，逐步求精 在程序说明部分，一般按标、常、类、变、过的顺序进行说明。 过程 Program qh; Var a:array[1..100] of integer; I,s,n:integer; Begin Assign(input,’qh.in’); Assign(output,’qh.out’); Reset(input); Rewrite(output); Read(n); For i:=1 to n do Begin Read(a[i]); S:=s+a[i]; End; Write(’s =’,a[1]) For i:=2 to n do Write(‘+’,a[i]); Write(’=’,s); End. Program qh; Var a:array[1..100] of integer; I,s，n:integer; Procedure init; Begin Assign(input,’qh.in’); Assign(output,’qh.out’); Reset(input); Rewrite(output); End; Procedure chuli; Begin Read(n); For