pascal 循环结构的程序设计

《pascal 循环结构的程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、循环结构的程序设计（二）——FOR循环的嵌套及举例例一：打印出如下由数字组成的三角形：1121123211234321123454321…………………………………………….{123……………………N………………………321}分析：N行，每行从1到N，再从N-1到1，前面再加上若干空格（数目从多到少）。程序段：CONSTN=9；VARI，J，K，SPACE：INTEGER；BEGINSPACE：=40；FORI：=1TONDOBEGINWRITE（‘□’：SPACE）；FORJ：=1TOIDOWRITE

2、（J：2）；FORK：=I-1DOWNTO1DOWRITE（K：2）；WRITELN；SPACE：=SPACE–2ENDEND.例二：求S=11+22+33+44+……+NN程序段：WRITE（‘PLEASEINPUTN=’）；READLN（N）；SUM：=0；FORI：=1TONDOBEGINT：=1；FORJ：=1TOIDOT：=T*J；SUM：=SUM+TEND；WRITELN（‘S=’，SUM）；例三：某人想将手中的一张面值100元的人民币换成5元、1元和0.5元面值的票子，但要求换正好100

3、张，且每种票子至少一张。问：有几种换法？分析：设5元票I张，1元票J张，0.5元票K张，则：I+J+K=1003个变量2个方程不能直接出解，也不唯一。5I+J+K/2=100程序段：WRITELN（I：8，J：8，K：8）；FORI：=1TO100DOFORJ：=1TO100DOFORK：=1TO100DOBEGINSUM：=I+J+K；实数的比较可用CONSTTOTAL：=2*I+J+K/2；IF（SUM=100）AND（ABS（TOTAL–100）<0.0001）THENWRITELN（I：8，J

4、：8，K：8）；END优化：循环次数太多（100*100*100次），实数的比较，其实为了满足100张的要求，5元票子最多11张（因为假如换12张，则去掉60元，其余40元钱全换0.5元的只能有80张，共计92张），1元的最多换99-I张，0.5元的为100-I-J张。即：FORI：=1TO11DOFORJ：=1TO99-IDOIF10*I+2*J+（100-I-J）=200{扩大2倍解决了实数的比较问题}THENWRITELN（I：8，J：8，K：8）；循环次数为98+97+96+……88=1023

5、次，大大节省了时间，提高了效率。例四：求100到200之间的全部素数，一行打印5个。程序段：VARI，J，K，N：INTEGER；YES：BOOLEAN；BEGINWRITELN（‘ThePrimarybetween100and200:’）；N：=0；{控制5个一行}FORI：=100TO200DO{逐个判断}IFODD（I）THEN{去掉偶数，因为偶数肯定不是素数}BEGINYES：=TRUE；{默认为素数，找出反对理由}K：=TRUNC（SQRT（I））；FORJ：=2TOKDO{一步一步地优化得

6、到：I-->I/2-->K}IFIMODJ=0THENYES：=FALSE；IFYESTHENBEGIN{没有反对理由的打印输出，且计数}WRITE（I：10）；N：=N+1END；IFNMOD5=0THENWRITELN{输出完5个换下一行}END；WRITELNEND.