[高等教育]fortran90程序設(shè)計(編輯修改稿)
2025-02-15 18:26 本頁面
【文章內(nèi)容簡介】 ? EXIT語句的一般格式為： ? EXIT [DO循環(huán)結(jié)構(gòu)名 ] EXIT語句使用說明 : (1) EXIT語句通常是作為邏輯 IF語句的內(nèi)嵌語句來使用，其作用是有條件中斷，形式為： IF (邏輯表達(dá)式 ) EXIT [結(jié)構(gòu)名 ] (2) 當(dāng) EXIT語句中沒有指定結(jié)構(gòu)名時，則跳出當(dāng)前結(jié)構(gòu)。 (3) 結(jié)構(gòu)化程序設(shè)計方法不提倡使用 EXIT語句，但在某些情況，使用 EXIT語句可簡化程序。 中斷語句 ( EXIT、 CYCLE ) ? ? CYCLE語句功能：用于終止執(zhí)行本次循環(huán)中剩余的語句，重新執(zhí)行下一輪循環(huán)。 ? CYCLE語句的一般格式為： ? CYCLE [DO循環(huán)結(jié)構(gòu)名 ] ? CYCLE語句通常是作為邏輯 IF語句的內(nèi)嵌語句來使用，其作用是有條件轉(zhuǎn)移，形式為： ? IF ( 邏輯表達(dá)式 ) CYCLE [DO循環(huán)結(jié)構(gòu)名 ] 中斷語句 ( EXIT、 CYCLE ) ? [例 ] 輸入一組整數(shù)，求這組數(shù)的正數(shù)的個數(shù)及正數(shù)的總和。當(dāng)輸入數(shù)據(jù)等于 0時終止循環(huán)。 ?PROGRAM MAIN ?IMPLICIT NONE ?INTEGER :: K , SUM = 0 , NUM = 0 ?DO ?READ * , K ?IF ( K = =0 ) EXIT ?IF ( K 0 ) CYCLE ?NUM = NUM + 1 ?SUM = SUM + K ?ENDDO ?PRINT *, ’ NUM = ’, NUM , ’SUM = ’, SUM ?END 中斷語句 ( EXIT、 CYCLE ) ? [例 ] 運用重復(fù) DO結(jié)構(gòu)編寫一個程序：求兩個正數(shù) M和 N的最大公約數(shù)及最小公倍數(shù)。 ? 用輾轉(zhuǎn)相除法來求最大公約數(shù)。例如，若輸入 49和 35兩個數(shù)，先用 49除以 35，余數(shù)為 14，再用 35為被除數(shù)，14為除數(shù)做除法，余數(shù)為 7，再將 14為被除數(shù)， 7為除數(shù)做除法，此時余數(shù)為零，最后為除數(shù)的 7就是最大公約數(shù)。最小公倍數(shù)則等于 M乘以 N，再除以最大公約數(shù)。 PROGRAM EXAM IMPLICIT NONE INTEGER M , N , T, P, R , K READ *, M , N P = M * N IF ( M N ) THEN T = M 。 M = N 。 N = T END IF R = MOD ( M , N ) DO IF ( R = = 0 ) EXIT M = N N = R R = MOD ( M , N ) ENDDO K = P / N PRINT *, N , K END 中斷語句 ( EXIT、 CYCLE ) IMPLICIT NONE INTEGER：： I, J, K, N PARAMETER ( N = 10 ) ! 定義循環(huán)上界 PRINT *, 39。 LOOP: 1ST 2ND 3RD ‘ LOOP1 : DO I = 1 , N ! 外層循環(huán)，結(jié)構(gòu)名 LOOP1 IF ( I 3 ) EXIT LOOP1 ! 當(dāng) I 3時，跳出外層循環(huán) PRINT 39。 ( 11X , I2 ) 39。, I LOOP2 : DO J = 1, N ! 中層循環(huán)，結(jié)構(gòu)名 LOOP1 IF ( J 2) CYCLE LOOP2 IF (I = = 2 .AND. J 1 ) EXIT LOOP2 PRINT 39。 ( 21X , I2 ) 39。, J LOOP3: DO K = 1, N ! 內(nèi)層循環(huán)，結(jié)構(gòu)名 LOOP1 IF ( K 2 ) CYCLE LOOP3 IF (I = = 1 .AND. J 1) EXIT LOOP2 ! 跳出內(nèi)層和中層
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1