PASCAL循环结构程序设计上机题.docVIP

PASCAL循环结构程序设计上机题 编程求一百以内自然数的和 program sigmaN(input,output); var n,i,total:integer; begin write(enter n); readln(n); total:=0; for i:=1 to n do total:=total+i ; writeln(the total of sigma,n:4,is,total ) end. 用GOTO语句和带标号语句实现求 program sigmaN(input,output); label 1; var n,i,total:integer; begin write(enter n); readln(n); total:=0; i:=1; 1: total:=total+i; i:=i+1; if i=n then goto 1; writeln(the total of sigma,n:4,is,total ) end. 2、求n! program nfac(input,output); var x:real; n,i:integer; begin writeln(input n,calculate n!); readln(n); if n0 then writeln(input n0 error!) else begin x:=1; for i:=n downto 1 do x:=x*i; writeln(n:3,!=,x:10:1); end END. 3、一对兔子自出生的第二个月后，每月新生一对兔子，新生的兔子也如此繁殖。如果所有的兔子都不死去，问到第十二个月时，共有多少对兔子？ program fibonacci(output); var f,pref,lastf,i,n:integer; Begin pref:=1; lastf:=1; write(pref:10,lastf:10); for i:=3 to 12 do begin f:=pref+lastf; pref:=lastf; lastf:=f; write(f:10) end; End. 4、输入两个数，判断是否互质数。 program MPN(input,output); var x1,x2,t,n,i:integer; yes:boolean; Begin write(input x1,x2); readln(x1,x2); if x1x2 then begin t:=x1; x1:=x2; x2:=t end; yes:=true; if (x1 mod x2)=0 then yes:=false else begin n:=x2 div 2; for i:=2 to n do if ((x1 mod i)=0) and ((x2 mod i)=0) then yes:=false end; if yes then writeln(they are mutual prime number) else writeln(they are not mutual prime number) End. 5、将一张百元人民币换成5元、1元和0.5元面值的的零币一百张，每种不少于一张，问有哪几种组合？ program OneHundred(output); var i,j,k:integer； sum,rmbsum:real; Begin writeln( i j k); for i:=1 to 11 do for j:=1 to 100-i do for k:=1 to 100 do begin sum:=i+j+k; rmb