Fortran及C学习笔记.docVIP

FORTRAN 1. GOTO语句设计循环结构 S1???IF（逻辑表达式）THEN? ?循环体? GOTO??S1? ??ENDIF? 例； PROGRAM??MAIN? I=0? 5??IF（I.LT.5）THEN? READ?*，H，W0? W1=110-W0? IF（ABS（W0-W1）.LE.5）THEN? PRINT?*，‘标准’? ELSE?IF（W0.GT.W1）THEN? PRINT?*，‘过胖’? ELSE? PRINT?*，‘过瘦’? ENDIF? ?I=I+1? GOTO?5? ENDIF? END 例 PROGRAM??MAIN???????????? INTEGER??FCH???????????? READ?*，M，N???????????? K=MIN（M，N）???????????? I=1? ???????? 5??IF（I.LE.K）THEN? IF（MOD（M，I）.EQ.0.AND.MOD（N，I）.EQ.O）FCH=I????????????? ? I=I+1?????????????? GOTO?5???????????? ENDIF? WRITE（*，100）M，‘和’，N，‘的最大公约数是：’，FCH??????? FORMAT（1X，I4，A，I4，A，I4）???????????? END? 此例中红色部分的“if”语句没有