NOIP第四节.pptVIP

* * 1．读入10个数，输出偶数项及它们的和，输出奇数项及它们的平均数。 Var i,oh,jh,o,j:integer; a,js,os:array[1..10] of integer; Begin j:=1; o:=1; oh:=0; jh:=0; for i:=1 to 10 do begin read(a[i]); if a[i] mod 2 =0 then begin os[o]:=a[i]; oh:=oh+a[i]; o:=o+1; end else begin js[j]:=a[i]; jh:=jh+a[i]; j:=j+1; end; end; For i:=1 to o-1 do write(os[i]:6); writeln(oh:6); For i:=1 to j-1 do write(js[i]:6); writeln(jh/j:6:0); End. 2．读入n个数，打印其中的最大数及其位置号。 Var n,I,x,max:integer; a:array[1..255] of integer; Begin readln(n); read(a[1]); max:=a[1]; for i:=2 to n do begin read(a[i]); if a[i]max then begin max:=a[i]; x:=i; end; end; writeln(max,x:6); readln; End. 字符串处理 Var 字符变量:char; 例如：后继函数：succ(‘a’)=‘b’ 前继函数：pred（‘B’）=‘A’ 序号函数：ord（‘A’）=65 var str1：string[8]； 例如：‘AB’〈‘AC’ 结果为真； ‘12’〈‘2’ 结果为真； ‘PASCAL ’=‘PASCAL’ 结果为假； 例3、对给定的10个国家名，按其字母的顺序输出。 var i,j,k:integer; t:string[20]; cname:array[1..10] of string[20]; begin for i:=1 to 10 do readln(cname[i]); for i:=1 to 9 do begin k:=i; for j:=i+1 to 10 do if cname[k]cname[j] then k:=j; t:=cname[i];cname[i]:=cname[k];cname[k]:=t; end; for i:=1 to 10 do writeln(cname[i]); end. 函数和过程名 功 能__________________ copy(s,m,n) 取s中第m个字符开始的n个字符 length(s) 求s的动态的长度 delete(s,m,n) 删除s中第m个字符开始的n个字符串 val(s,x,code) 将字符串S 转换成整数或实数x 统计一个英文句子中有多少英文单词。假设句子中字符数小于80个，单词间用至少一个空格隔开（可以有多个空格），句子头部可以有多个空格，句子以‘*’作为结束标志。 如：‘□□□THIS□□IS□A□□GOOD□□□BOOK！* ’ CONST N=80 ； VAR STR：STRING[ N ]； PREC：CHAR； NUM，IINTEGER； BEGIN READLN（STR）； PREC：=BLANK； NUM：=0； FOR I：=1 TO N DO BEGIN IF （STR[ I ] BLANK）AND（PREC=BLANK） THEN NUM：=NUM+1； PREC：=STR[ I ] END； WRITELN（‘NUM OF WORDS IS： ’，NUM：3 ）； END． NOIP 第四节 函数和过程 为什么用函数或过程？ 求：1！＋2！＋3！＋．．．＋10！＝？ VAR i:integer; s:real; BEGIN S :=0; for i:=1 to 10 do s:=s+js(i); writeln(’s=’,s); END. FUNCTION js(n:integer):longint; var i:integer;