一维数组上机的练习.docVIP

基本练习：（采用文件输入输出） 1．输入一串小写字母（以.为结束标志），统计出每个字母在该字符串中出现的次数(若某字母不出现，则不要输出) ，例：输入：aaaabbbccc.输出：a:4b:3c:3规定： 文件名：tongji.pas 输出文件：tongji.in输出文件tongji.out 程序： var a:array[a..z] of integer; n:char; begin assign(input,’tongji,in’);reset(input); assign(output,’tongji.out’);rewrite(output); read(n); while n. do begin inc(a[n]); read(n); end; for n:=a to z do if a[n]0 then writeln(n,:,a[n]); close(input);close(output); end. 2．输入一个不大于32767（integer）的正整数N，将它转换成一个二进制数，例如：输入：100输出：1100100规定： 文件名：erjinzhi.pas 输出文件：erjinzhi.in输出文件erjinzhi.out 程序： var a:array[1..16] of integer; b,c,d,e:integer; begin assign(input,erjinzhi.in);reset(input); assign(output,erjinzhi.out);rewrite(output); readln(b); if b=0 then write(b,=) else write(b,= -); b:=abs(b);d:=0; while b0 do begin inc(d); a[d]:=b mod 2; b:=b div 2; end; for e:=d downto 1 do write(a[e]); writeln; readln; close(input);close(output); end. 提高练习：（采用文件输入输出）＊3．输入一个由10个整数组成的序列，其中序列中任意连续三个整数都互不相同，求该序列中所有递增或递减子序列的个数，例如：输入：1　10　8　5　9　3　2　6　7　4输出：6对应的递增或递减子序列为：1　10　10　8　5　5　99　3　22　6　77　4规定： 文件名：geshu.pas 输出文件：geshu.in输出文件geshu.outconst n=10; {此程序输出序列数} var a:array[1..n]of integer; i,k,x:integer; begin for i:=1 to n do read(a[i]); i:=2; x:=1; {表示序列数} if a[i-1]=a[i] then k:=1 else k:=2;{k=1表示大于k=2表示小于} while in do begin inc(i); case k of 1: if a[i-1]a[i] then begin k:=2;inc(x);end; 2: if a[i-1]a[i] then begin k:=1; inc(x);end; end; end; writeln(x); end. ＊4．输入Ｎ个数，将这Ｎ个数按从小到大的顺序显示出来； 规定： 文件名：paixu.pas 输出文件：paixu.in输出文件paixu.out var a:array[1..100000000] of integer; b,c,d,i,z:longint; begin assign(input, paixu.in);reset(input); assign(output, paixu.out);rewrite(output); readln(i); //读入输入个数 for i:=1 to i do read(a[i]); //循环读入，放入数组 for c:=1 to i do begin for b:=(c+1) to i do begin if a[c]a[b] then