Pascal语言程序设计例题.docVIP

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:=t end; begin write(请输入三个整数:); readln(a,b,c); if ab then exchange(a,b); if ac then exchange(a,c); if bc then exchange(b,c); writeln(从大到小排列为:,a:6,b:6,c:6) end. 2、求出1000以内的所有质数并输出。 program exam(input,putput); var flag:boolean; i,j:integer; begin writeln(1000以内的所有质数如下:); i:=2; write(i:4); for i:=3 to 1000 do begin flag:=true; j:=2; repeat if i mod j=0 then flag:=false; j:=j+1 until (i=j) or not flag; if flag then write(i:4) end; writeln end. 3、已知某月一号为星期三，试根据输入的该月某日期判断当天为星期几。 program exam(input,output); var week:(Sun,Mon,Tues,Wed,Thur,Fri,Sat); day:1..31; i:integer; begin write(已知某月一号为星期三，请输入该月某日期:); readln(day); week:=Sun; for i:=0 to (day+1) mod 7 do week:=succ(week); write(该日期为星期); case week of Sun: writeln(日); Mon: writeln(一); Tues:writeln(二); Wed: writeln(三); Thur:writeln(四); Fri: writeln(五); Sat: writeln(六) end end. 4、输入一个0～30之间的整数，用递归法求其阶层并输出。 program exam(input,output); var num:0..30; function fact(n:integer):real; begin if n=0 then fact:=1 else fact:=n*fact(n-1) end; begin write(请输入一个0～30的整数以便计算其阶层:); readln(num); writeln(num,!=,fact(num)) end. 5、把一张一百元钞票换成一元、二元和五元的钞票(每种至少一张)， 列出各种换法，并统计换法总数 program exam(input,output); const num=100; var n5,n2,n1,total:integer; begi