写出程序实现的功能.ppt

《写出程序实现的功能.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、以下是Pascal语言程序源代码，请分别写出程序实现的功能。执教：周伟2007届信息奥林匹克竞赛班培训复习课程序01：Programsuma(input,output);vara,b,sum:integer;beginwrite('Pleaseinputa,b:');read(a,b);writeln('a=',a);writeln('b=',b);sum:=a+b;write(sum)end.程序02：Programjh(input,output);varzhi:real;i,n:integer;beginwrite('Inputn:');read

2、(n);zhi:=1;fori:=2tondozhi:=zhi*i;write(zhi)end.程序03：program may(input,output);var far:real;n,i:integer;beginwrite('Pleaseinputn:');read(n);far:=1;fori:=2tondofar:=far+i;writeln(far)end.程序04：Program agr(input,output);var fap,jie:real;s,i,n:integer;beginwrite('Pleaseinputs:');re

3、ad(s);fap:=1;fori:=2tosdobeginjie:=1;forn:=1toi dojie:=jie*n;fap:=fap+jie;end;write(fap)end.程序05：Programzdszxs(input,output);typenum=array[1..10]ofinteger;vara:num;i,x,d:integer;beginfori:=1to10doread(a[i]);x:=a[1];d:=a[1];fori:=2to10dobeginifx>=a[i]thenx:=a[i];ifd

4、[i]end;write(x,d)end.程序06：Programonceg(input,output);var a,b,c,i:integer;beginfori:=100to999dobegina:=idiv100;b:=(i-a*100)div10;c:=i-a*100-b*10;ifa*a*a+b*b*b+c*c*c=ithen writeln(i)endend.程序7：program cfa(input,output);vara,b:integer;begina:=1;b:=1;forb:=1to9dobeginfora:=1tobdowr

5、ite(a,'*',b,'=',a*b,'');writeln;endend.程序8：programmmd(input,output);beginvark,n:integer;fork:=1to5 dobeginforn:=1to 5dowrite('*')end;writelnend.程序9：programmaizi(input,output);varm,a:real;i,n:integer;beginn:=2;m:=1;forn:=2to64dobegina:=1;fori:=1ton-1doa:=a*2;m:=m+aend;writeln(m)

6、end.程序10：program spx(input,output);var a:array[1..10]ofinteger;m,b,c:integer;beginform:=1to10dobeginwrite('Pleaseinputa[',m,']:');read(a[m])end;forb:=1to9doforc:=1to10-bdoifa[c]>a[c+1]thenbeginm:=a[c];a[c]:=a[c+1];a[c+1]:=mend;forb:=1to10dowrite(a[b],'')end.