北京邮电大学出版社FORTRAN程序设计课后习题答案2
北京邮电大学出版社FORTRAN程序设计课后习题答案
北京邮电大学出版社FORTRAN程序设计课后习题答案2
PROGRAM EX3_4
CHARACTER*1 LETTER
!方法一
print*,' 请输入一个英文字母：'
READ*,LETTER
if(LETTER>='A' .and. LETTER<='Z') THEN
write(*,*)' 你输入的',LETTER,'为大写字母。'
elseif(LETTER>='a' .and. LETTER<='z')THEN
write(*,*)' 你输入的',LETTER,'为小写字母。'
else
write(*,*)' 你输入的',LETTER,'不是字母。'
endif
!方法二
print*,' 请输入一个英文字母：'
READ*,LETTER
SELECT CASE(LETTER)
CASE('A':'Z')
write(*,*)' 你输入的',LETTER,'为大写字母。'
CASE('a':'z')
write(*,*)' 你输入的',LETTER,'为小写字母。'
CASE DEFAULT
write(*,*)' 你输入的',LETTER,'不是字母。'
ENDSELECT
!方法三
print*,' 请输入一个英文字母：'
READ*,LETTER
I=ICHAR(LETTER) !转化字符LETTER为对应的ASCII值
if(i>=65 .and. i<=90) write(*,*)' 你输入的',LETTER,'为大写字母。'
if(i>=97 .and. i<=122) write(*,*)' 你输入的',LETTER,'为小写字母。' end
PROGRAM EX3_5
!采用CASE结构实现
REAL Price,Weight,S,Freight,D
print*,' 请输入基本运费Price,货物重量Weight和运输距离S：'
READ*,Price,Weight,S
SELECT CASE(INT(S))
CASE(:249)
D=0
CASE(250:449)
D=2.5/100
CASE(500:999)
D=4.5/100
CASE(1000:1999)
D=7.5/100
CASE(2000:2499)
D=9.0/100
你可能喜欢
- fortran90
- 模拟试题
- Fortran95程序设计
- 考试试题
- 简单程序
- 汇编程序
- 大学试题
- 程序设计题
- fortran90第二章56页
- fortran90简易教学教程8页
- fortran90 课后习题答案2页
- fortran90复习课95页
- fortran90数组练习题2页
- 第2章fortran9032页
- 模拟试题十2页
- 模拟试题九2页
- 会计法规模拟试题5页
- 2012年中考数学模拟试题10页
- 2012初三数学模拟试题11页
- 2012年灵璧中学高三语文模拟试题5页
- Fortran95程序设计【彭国伦】学习笔记18页
- Fortran95程序设计习题答案9页
- Fortran95程序设计习题答案第十一章42页
- Fortran95程序设计习题答案第十一章38页
- Fortran95程序设计习题答案第十一章22页
- Fortran95程序设计习题答案第十章42页
- 简单的欢迎程序4页
- 带注解简单c51程序11页
- 实验2：简单程序设计2页
- 简单日历程序3页
- 第2章简单程序设计33页
- 实验一 简单程序设计3页
- 第八讲 汇编语言程序的阅读与理解11120123页
- 第5章 汇编语言程序设计91页
- 第4章 汇编 语言程序设计74页
- 汇编语言程序设计24页
- win32汇编 Windows程序运行原理14页
- 第4章 汇编语言程序设计89页
- 2008 大学语文试题及答案6页
- 大学化学试题和答案3页
- 北师大-大学语文试题二3页
- 大学物理试题精选(含答案)79页
- 大学物理 期末试题 参考答案3页
- 大学物理 期末试题4页
- C程序设计题8页
- 国家二级计算机C语言程序设计题及答案10页
- VF程序设计题库65页
- 树人大学VB程序设计题5页
- 2005.1C++程序设计题及答案6页
- 上机考试程序设计题27页
