Fortran入门（三）期末复习
选择构造 1. If 1.1 if-end 输入一个学生效果，假如折格则输出“折格”。 !> program: 5-1 program one_if_demo implicit none integer :: score write(*, *) "输入效果>>>" read(*, *) score if (score >= 60) then write(*, *) "折格" end if end program
2025-01-29 11:54 阅读量:12
选择构造 1. If 1.1 if-end 输入一个学生效果，假如折格则输出“折格”。 !> program: 5-1 program one_if_demo implicit none integer :: score write(*, *) "输入效果>>>" read(*, *) score if (score >= 60) then write(*, *) "折格" end if end program