fortran秘密表白程序

时间：2022-05-19 12:22:16 阅读：最新文章文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

CHARACTER(4) A CHARACTER(3)::E CHARACTER C,D A(1:1)=ACHAR(76) A(2:2)=ACHAR(79) A(3:3)=ACHAR(86) A(4:4)=ACHAR(69) D=ACHAR(73) E(1:1)=ACHAR(89) E(2:2)=ACHAR(79) E(3:3)=ACHAR(85) C=ACHAR(33) PRINT 10,D,A,E,C

10 FORMAT(1X,'小红',2X,A1,1X,A4,1X,A3,1X,A1) END

请将以上程序粘贴到fortran中并运行，“小红”可改成任意表白对象姓名