工程分析程序设计上机作业(八).docx

工程分析程序设计 上机作业（八）指针、格式化输入/输出、文件操作上机目的：练习指针的使用，格式化的输入/输出，文件的操作。1）用自由格式、’I2’、’I4’、’I4.2’的格式操作符从键盘上读入整型数1234，然后再用自由格式、’I2’、’I4’、’I4.2’的格式操作符从屏幕上输出。PROGRAM MAIN IMPLICIT NONE REAL A,B,C,D WRITE(*,*)请输入1234 READ(*,*)A WRITE(*,*)请输入1234 READ(*,(I2))B WRITE(*,*)请输入1234 READ(*,(I4))C WRITE(*,*)请输入1234 READ(*,(I4.2))D WRITE(*,*)A WRITE(*,(I2))B WRITE(*,(I4))C WRITE(*,(I4.2))DEND PROGRAM2）用自由格式、’F6.2’、’E8.2’、’E12.2E3’ 、’G6.2’、’EN10.2’、’ES10.2’的格式操作符从键盘上读入实型数-1.234、0.0034567、3.14159E01和98.76E-2，然后再用自由格式、’F6.2’、’E8.2’、’E12.2E3’、’G6.2’、’EN10.2’、’ES10.2’的格式操作符从屏幕上输出。PROGRAM MAIN IMPLICIT NONE INTEGER::I=1 REAL A,B,C,D,E,F,G DO WHILE(I5) WRITE(*,(请输入第,I1,个数:))I READ(*,*)A WRITE(*,(请输入第,I1,个数:))I READ(*,(F6.2))B WRITE(*,(请输入第,I1,个数:))I READ(*,(E8.2))C WRITE(*,(请输入第,I1,个数:))I READ(*,(E12.2E3))D WRITE(*,(请输入第,I1,个数:))I READ(*,(G6.2))E WRITE(*,(请输入第,I1,个数:))I READ(*,(EN10.2))F WRITE(*,(请输入第,I1,个数:))I READ(*,(ES10.2))G WRITE(*,*)A WRITE(*,(F6.2))B WRITE(*,(E8.2))C WRITE(*,(E12.2E3))D WRITE(*,(G6.2))E WRITE(*,(EN10.2))F WRITE(*,(ES10.2))GI=I+1 END DOEND PROGRAM3)从屏幕上读入一个复形数(1.23,-8.9E-02)，然后从屏幕上用自由格式、’F6.2’、’E8.2’和“实部+虚部i”的形式输出。PROGRAM MAIN IMPLICIT NONE REAL A(2) WRITE(*,*)请输入复形数 READ(*,*)A(1) READ(*,*)A(2) WRITE(*,*)A WRITE(*,(F6.2))A WRITE(*,(E8.2))A WRITE(*,(F8.6,F8.6,i))A(1),A(2)END PROGRAM4）用自由格式、’L’、’L4’从键盘上读入.TRUE.,.T.,.FALSE.,.F.，然后自由格式、’L’、’L4’从屏幕上输出。PROGRAM MAIN IMPLICIT NONE INTEGER::I=1 LOGICAL A,B,C DO WHILE(I5) WRITE(*,(请输入第,I1,个值:))I READ(*,*)A WRITE(*,(请输入第,I1,个值:))I READ(*,(L))B WRITE(*,(请输入第,I1,个值:))I READ(*,(L4))C WRITE(*,*)A WRITE(*,(L))B WRITE(*,(L4))CI=I+1 END DOEND PROGRAM5）用自由格式、’A’、’A3’、’A5’从键盘上读入字符串“A”、“big”、“china”、”microsoft”，并用自由格式、’A’、’A3’、’A5’编辑符从屏幕上输出。——注意观察并理解格式输入/输出的结果。PROGRAM MAIN IMPLICIT NONE INTEGER::I=1 CHARACTER A,B,C,D DO WHILE(I5) WRITE(*,(请输入第,I1,个字符串:))I READ(*,*)A WRITE(*,(请输入第,I1,个字符串:))I READ(*,(A))B WRITE(*,(请输入第,I1,个字符串:))I READ(*,(A3))C WRITE(*,(请输入第,I1,个字符串:))I READ(*,(A5))D WRITE(*,*)A WRITE(*,(A))B WRITE(*,(A3))CWRITE(*,(A5))DI=I+1 EN