Pascal语言12.pptVIP

编程1： 编程2： 编程3： 编程4：计算n！ 新内容：当型循环（while）语句 例如： 注意： 试一试1： 解题： 试一试2： 解题： * 求1到1000之间所有奇数的和。 program jishu1(input,output); var i,sum:integer; begin sum:=0; for i:=1 to 1000 do if odd(i)=true then sum:=sum+i; writeln(‘sum=’,sum); readln; end. odd(i) 方法2： program jishu2(input,output); var i,sum:integer; begin sum:=0; for i:=1 to 500 do sum:=sum+(2*i-1); writeln(‘sum=’,sum); readln; end. 求水仙花数。 水仙花数是指一个3位数， 如：abc，若满足a3+b3+c3 =abc， 则abc称为水仙花数。 program s_x_h(input,output); var i ,a,b,c,k : integer; begin for i:=100 to 999 do begin a:=i div 100; { 分解百位数a } b:=i div 10 – 10*a; { 分解十位数b } c:=i mod 10; { 分解个位数c } k:=a*a*a+b*b*b+c*c*c; if k=i then writeln(‘sh_x_h_shu:’,i); end; end. 输入一个2位数(如:85)，将它的各位数字倒序(如:58) program dao_xu (input,output); var a,b,c:integer; begin readln(a); b:=a mod 10; {分解出个位数} c:=a div 10; {分解出十位数} writeln(b*10+c); end. 其中n是从键盘输入。 n!=1*2*3*4*5*…*n program jie_c (input,output); var n,i:integer; c: longint; begin readln(n); c:=1; for i:=1 to n do c:=c*i ; writeln(n,‘!=’,c); end. 使用for语句编程时需要事先知道循环次数，如果遇到不能确 定循环次数的问题就无法使用了。但是，当型循环语句可以办到。 格式： while 布尔表达式 do 语句； 真 循环体 布尔表达式 假 统计若干学生成绩的总分和平均分。 program sum_ave(input,output); var i , n , x , sum , ave : integer; begin sum:=0; readln(n); for i:=1 to n do begin readln(x); sum:=sum+x; end; ave := sum div n; writeln(‘sum=’,sum, ‘ave=’,ave); end. 题目给你的提示： 1 学生人数不定，要从键盘输入 2 多少人，就循环多少次 3 学生成绩不定，要从键盘输入 用for语句 统计学生成绩的总分和平均分。 用while语句 program sum_ave(input,output); var n , x , sum , ave : integer; begin sum:=0; n:=0; readln(x); while x -1 do begin sum:=sum+x; n:=n+1; readln(x); end; ave := sum div n; writeln(‘sum=’,sum, ‘ave=’,ave); e