Fortran90几个重要的实验报告

3. 程序编写

4. 运行结果

结束 实验三(1) 选择结构序程序设计

一. 实验目的

1. 熟悉关系表达式和逻辑表达式。

2. 掌握逻辑IF、块IF、多支块IF、SELECT语句的语法规则和使用要求。 3. 掌握嵌套选择结构和嵌套选择语句的使用要求和实现方法。 4. 掌握选择结构概念和选择结构程序设计方法。

二. 课堂实验内容

1. 问题描述

计算下面分段函数的值,编写程序实现之。

?e2x?sinxx<0 ? ? ?x=0 y?2 ?? ?xx>0 ?2

?1?x2. 算法设计

开始 输入x的值 真 假 真 用公式一计算y x < 0 x = 0 假 用公式二计算y 用公式三计算y 输出y的值 结束 图5-2 程序框

5. 程序编写

4. 运行结果

? !班级:工力112 ? !姓名: ? !时间:201305 ? !计算分段函数的值 ? PROGRAM example ? REAL(4) :: x,y ? PRINT*,'请输入x的值:' ? READ*,x ? IF (x<0) THEN ? y=exp(2*abs(x))+sin(x*3.14159/180) ? ELSEIF ( x==0) THEN ? y=2 ? ELSE ? y=x/sqrt(1+x*x) ? END IF ? PRINT *, 'y=', y ? END 请输入x的值: -5.8 y= 109097.7 Press any key to continue 请输入x的值: 0 y= 2.000000 Press any key to continue 请输入x的值: 5.8 y= 0.9854601 Press any key to continue

三. 课外练习

1. 问题描述

某商店对购货额为1000元以上(含1000元,下同),八折优惠;500元以上1000元以下,九折优惠;200元以上500元以下,九五折优惠;100元以上200元以下,九七折优惠;100元以下,不优惠。输入购货额,计算优惠货款,并输出。

2. 算法设计

真 y=0.8*x 开始 输入购物额x 假 x>1000 真 x>500 y=0.97*x 真 x>0 真 y=0.95*x y=x x>200 假 假 3. 程序编写 输出y 结束 !班级:工程力学112 !姓名: !时间:201305 !程序用途:计算超市购物优惠金额 PROGRAM main real(4):: x,y PRINT*,'请输入购货金额' read*,x IF (x>=1000) THEN y=0.8*x ELSE IF(X>=500) THEN y=0.9*x ELSE IF(X>=200) then y=0.95*x else IF(X>=100) THEN y=0.97*x else y=x END IF PRINT*,'优惠金额为:',y END

4. 运行结果

请输入购货金额 1200 优惠金额为: 960.0000 Press any key to continue 请输入购货金额 600 优惠金额为: 540.0000 Press any key to continue 请输入购货金额 250 优惠金额为: 237.5000 Press any key to continue 请输入购货金额 150 优惠金额为: 145.5000 Press any key to continue 请输入购货金额 50 优惠金额为: 50.00000 Press any key to continue

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4