Frtran实验报告.docVIP

(一) 一、 实验目的 1、 熟悉和掌握一维数组的编写方法 2、 进一步掌握关系表达式和逻辑表达式 二、 实验内容 implicit none Integer,parameter:: student s=5 Integer: :student(students) Integer i Do i=l,students Write(*，”(‘Number ‘，I2)”)i Read(*，*)student(i) End do Do while(.true.) Write(*，*)”query: ’’ Read(*，*)i If(i=0 .or. istudents)exit Write(*,*)student(i) End do end 三、实验步骤 1、 分析问题，设计算法，编写程序 2、 编译、构建、运行、调试程序 3、 编写实验报告 、实验结果与分析 输入 12 34 56 78 90 Sl? FUjLMl Jzlimplicit noner tI:\s\Debug\s.exe Sl? FUjLMl Jzl implicit none r tI:\s\Debug\s.exe, (□回泛 J H )ace s： 1 proje is integer,paraneter::students=5 integer student(students) integer i do i=1 ,students , 1 ?rite(r(,Hunber,lI2)M)i read(?,?)student(i) end do do while(.true.) urite(*,*) Query： H read(*,*)i if(i=fl .or. istudents)exit urite(畺,*} student(i) end do Number 1 12 Number 2 34 umber 3 56 Number 4 78 umber 5 98 stop end Querji： 34 QuePii： 78 Query： 90 Query: HI HI *t\s\Debug\s.excBC3回 *t\s\Debug\s.excB C3回 S 一、 实验目的 1、 掌握DO、DO WHILE语句的语法规则和使用耍求。 2、 掌握循环结构概念和循环结构程序设计方法。 二、 实验内容 implicit none Integer,parameter: :limit=10 !计数器的上限 Integer counter !计数器 Integer ::ans=0 !累加使用 Do counter =0，limit，l ans=ans+counter End do write(*，*) ans End 二、实验步骤 1、 分析问题，设计算法，编写程序 2、 编译、构建、运行、调试程序 3、 编写实验报告 实验结果与分析 implicit none )roje )roje do counter-0 , Unit , 1ans=ans*counter end do write(*t*) ans stop end 一、 实验目的 丫解和掌握select case语句的语法规则和使用要求。 二、 实验内容 Implicit none Integer score Character grade Write(*, *) ” Score: Read(*, score Select case (score) Case(90:100) !90 到 100 分之间 Grade=’ A’ !0 !0到59分之间 !其他情况 Case(80:89) Grade=’ B’ Case (70:79) Grade:’ C’ Case (60:69) Grade:’ D’ Case (0:59) Grade=’ E’ Case default Grade:” ？” !80到89分之间 !70到79分之问 !60到69分之间 End select Write(*，”( ‘Grade:’ , Al) ) grade end 三、实验步骤 1、 编译、构建、运行、调试程序 2、 编写实验报告 实验结果与分析 输入99 缪豳是！即O ?等Z implicit none integer score ? ?I:\s\Debug\s.exe’ character grade write (*，*) Score read(*,*) score select case(score) case(90:100) grade=-A* case(80:89) grade=iB, case(70:79) grade=iCi case(60:69) grade=iD, case(0:59) grade=.E. CASE