计算机编程例题集.pdfVIP

计算机编程例题集 1、一队士兵，3 人一排余 2 人，4 人一排余 3 人，5 人一排余 4 人，编程求这队士兵最少有 多少人？（59 ） set talk off clear i=1 do while .t. if mod(i,3)==2 and mod(i,4)==3 and mod(i,5)==4 ?i exit endif i=i+1 enddo set talk on *59 2 、编程求是 S 1×3+3×5+5×7+...+999×1001 的结果。（167166500） set talk off clear sn=0 for i=1 to 999 step 2 sn=sn+i*(i+2) endfor ?sn set talk on *167166500 3、编程求出 1-999 之间能被 5 整除，且至少有一位上的数是 7 的所有数之和。 （23855） set talk off clear sn=0 for i=1 to 999 if mod(i,5)==0 and (mod(i,10)==7 or mod(int(i/10),10)==7 or int(i/100)==7) sn=sn+i endif endfor ?sn set talk on *23855 第 1 页 计算机编程例题集 3、编程求共有几组 i 、j 、k 符合算式 ijk+kji 1333，其中 i 、j 、k 是 0-9 之间的一位整数。 （6 ） set talk off clear sn=0 for i=1 to 9 for j=0 to 9 for k=1 to 9 if 100*i+10*j+k + 100*k+10*j+i = 1333 sn=sn+1 endif endfor endfor endfor ?sn set talk on 5、夫妻的年龄和为 59 岁，夫妻年龄的平方和为 1745，用 for 语句编写程序求该夫妻各自的 年龄？(28 31) set talk off clear for wife=1 to 59 husband=59 - wife if husband ^2+ wife^2==1745 ? 该丈夫的年龄：,husband ?? ，该妻子的年龄：,wife endif endfor set talk on 1 从键盘输入任意一个正整数 X ，求 sn 1+2+3+...+X，并输出。 set talk off clear input please enter a num: to X sn=0 i=1 do while i=X sn= sn* i i = i + 1 第 2 页 计算机编程例题集 enddo ? sn set talk on 2 、从键盘输入任意一个正整数 X ，求 sn x! ，即 sn 1*2*3*...*X，并输出。 set talk off clear input please enter a num: to X sn=1 i=1 do while i=X sn= sn* i i = i + 1 enddo ? sn set talk on 4 、从键盘输入任意一个正整数 n ，求 sn 1 ！+2 ！+3 ！+...+n ！，并输出。 set talk off clear input please enter a num: to n mysum=1 i=1 s=0 do while i=n mysum = mysum * i i = i + 1 s=s+mysum enddo ? s set talk on