fortran程序设计第7章.ppt

[例7.4]折半查找 序号 A数组元素值 查找xx68 110-TOP 217 320 422 531 644 751 859-MID 968-TOP -TOP-TOP-BOT-MID 1073-MID 1189-BOT 1295-MID 13120 14133 15137 -BOT -BOTabcd PARAMETER NA15 INTEGER ANA, TOP, BOT, MID, X LOGICAL FIND DATA A/10, 17, 20, 22, 31, 44, 51, 59, 68, 73, 89, 95, 120, 133, 137/ READ *, * X FIND.FALSE. TOP1 BOTNA DO 10 WHILE TOP .LE. BOT .AND. .NOT. FINDMIDTOP+BOT/2IF X .EQ. AMID THENFIND.TRUE.WRITE *, * X, ‘ Has be found, on ‘, MID, ‘th position’ELSE IF X .LT. AMID THENBOTMID-1ELSETOPMID+1ENDIF 10 CONTINUE IF .NOT. FIND WRITE *, * X, ‘ Has not be found’ END [例7.5]把数组中所有的数都向后移动一个位置，最后一个数移到最前面 PARAMETER NA10 INTEGER ANA, X DATA A/55, 62, 93, 87, 10, 23, 38, 71, 35, 91/ WRITE *, * AI, I1, NA XANA DO 10, INA-1, 1, -1 AI+1AI 10 CONTINUE A1X WRITE *, * AI, I1, NA END [例7.6]把一个数插到有序数列中，插入后数列仍然有序INTEGER A20, X DATA AI, I1, 10 /14, 25, 28, 33, 45, 56, 68, 72, 81, 95/ WRITE *, * ‘Enter a number to insert:’ READ *, * X NA10 WRITE *, * AI, I1, NA P1 DO 10 WHILE X .GT. AP .AND. P .LE. NAPP+1 10 CONTINUE DO 20, INA, P, -1AI+1AI 20 CONTINUE APX NANA+1 WRITE *, * AI, I1, NA END [例7.7]从存有N个字符的字符数组中删去指定的字符 PARAMETER NC20 CHARACTER CNC, CH INTEGER P, N DATA C/NC*’ ‘/ READ *, * N READ *, * CI, I1, N READ *, * CH N0N P1 DO 10 WHILE P .LE. NDO 20 WHILE CH .NE. CP .AND. P .LE. NPP+1 20CONTINUEIF CH .EQ. CP THENDO 30 IP, N-1CICI+1 30CONTINUENN-1END IF 10 CONTINUE IF N .NE. N0 THENWRITE *, * CI, I1, N ELSEWRITE *, * CH END IF END [例7.8]选择法排序 PARAMETER N8 INTEGER AN, P DATA A/15, 8, 4, 13, 6, 10, 17, 1/ WRITE *, * AI, I1, N DO 10 J1, N-1PJDO 20 IJ+1, NIF AI .LT. AP THENPIENDIF 20CONTINUEKAJAJAPAPK 10 CONTINUE WRITE *, * AI, I1, N END [例7.9]输入若干名学生的学号和四门课的考试成绩，计算出每位学生的平均分，打印出成绩表（学生人数不多于35人） PARAMETER NR35, NC4 REAL SNR, NC, AVENR CHARACTER*6 NUMNR N1 READ *, * NUMN, SN, J, J1, NC DO 60 WHILE NUMN .NE. ‘ ‘ .AND. N .LT. NRNN+1READ *, * NUMN, SN, J, J1, NC 60