Pascal语言程序设计例题.doc

Pascal语言程序设计例题1、将输入的三个整数按从大到小的顺序输出。program exam(input,output);var a,b,c:integer;procedure exchange(var x,y:integer);var t:integer;begin t:=x; x:=y; y:=tend;begin write(请输入三个整数:); readln(a,b,c); if ab then exchange(a,b); if ac then exchange(a,c); if b0 then writeln(x1=,e+f, x2=,e-f) else if d=0 then writeln(x1,x2=,e) else writeln(该方程无实数根)end.7、读入一串字符(以“#”作结束标志)，统计其中包含各个大写英文字母的个数并输出。program exam(input,output);var num:arrayA.Z of integer; ch:char; flag:boolean;begin write(请输入一串字符(以“#”作结束标志):); read(ch); for ch:=A to Z do numch:=0; while ch# do begin if (ch=A) and (ch=Z) then numch:=numch+1; read(ch) end; writeln(统计结果如下:); flag:=false; for ch:=A to Z do if numch0 then writeln(ch,出现次数为,numch) else flag:=true; if flag then writeln(其它大写英文字母未出现)end.8、某班有40名学生，按学号从1到40顺序输入各个学生的分数，输出所有分数为最高分的学生的学号。program exam(input,output);const m=40;var mark:array1.m of 0.100; maxmark:0.100; i:integer;begin maxmark:=0; writeln(请按学号从1到40顺序输入各个学生的分数:); for i:=1 to m do begin read(marki); if markimaxmark then maxmark:=marki end; writeln(所有分数为最高分的学生的学号如下); for i:=1 to m do if marki=maxmark then write(i:4); writelnend.9、计算圆周率，使用公式4*(1-1/3+1/5-1/7+1/9-1/11+.)，直到最后一个分式的绝对值小于0.0001为止。program exam(input,output);var n,s:integer; t,pi:real;begin pi:=0; t:=1; n:=1; s:=1; while abs(t)=0.0001 do begin pi:=pi+t; n:=n+2; s:=-s; t:=s/n end; pi:=pi*4; writeln(圆周率的值计算为,pi);end.10、计算并输出2的24次方的结果(8位数)。program exam(input,output);const base=2;var a:array0.8 of integer; i,j,k,t:integer;begin for i:=1 to 7 do ai:=0; a0:=1; for i:=1 to 24 do for j:=7 downto 0 do begin aj:=aj*base; for k:=j to 6 do begin aj+1:=aj+1+aj div 10; a