Fortran课的一次作业

最新推荐文章于 2021-03-16 23:45:05 发布
最新推荐文章于 2021-03-16 23:45:05 发布
阅读量439 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_45735724/article/details/108874190
版权

fortran

**

FORTRAN课的一次作业

**
老师叫我们写一个计算n的结成的作业，并且能够抵抗各种奇奇怪怪的输入，我绞尽脑汁的想了各种各样的情况，但还是不能确保这个程序的容错率足够高，我快吐了，前后整了三个版本的程序，下面我把第三个版本的jiecheng_plus_plus贴出来，希望大家帮我看看问题，欢迎在评论区指出我有哪些输入不能正确处理呀。

下面展示我的代码 欢迎私信我。

program jiecheng_plus_plus
    implicit none
    real,parameter::Error=1e-6
    real(16)::r=1.0
    integer::n=0,i,length=0,pin=0
    !pin用于标记输入是否有效
    !length用于计算输入数据的长度
    !A1-A5用于存储输入的字符变量的ASC值-48
    real(16)::pr16=1q0
    character(5)::initial_input
    integer::A(5)
    print*,"请输入自然数，包括0在内。"
    print*,"请不要输入负数和字符串,以及浮点数"
    print*,"如果你想结束这个计算程序，请输入-100"
    print*,"我们最开始输入的是字符串变量"
    print*,"代码中有很多被注释掉的部分，你可以解除注释以后观察输出，以便更好地理解我的逻辑"
    !print*,"输入里面我们可以允许你在开头或中间有一个空格，但是想“ 2 5”就会被视为非法输入"
    print*,"如果你在开头不小心输入了空格，请勿在中间接着输入空格，会报错的"
    !==============================================================================
    !以上是变量声明区，下面是正式开始的部分
    !首先转化字符型变量
    do
        read(*,'(A5)')initial_input
        !这里用格式化输入减少bug
        do i=1,5,1
           A(i)= ichar(initial_input(i:i))-48
           !print*,A(i)
        enddo
        pr16=1q0
        n=0
        i=0
        r=1.0
        length=0
        pin=0
    !每次循环开始之前，我们先要重置循环条件        
        !我们应该考虑更多的情况，第一就是前面有+的时候
        !+是-5，-是-3算下来,空格是-16，小数点是-2
        if(A(1)==-5) then
            !这是最前面有正号的情况
            !print*,"我们检测到你输入了正号"
            do i=2,5,1
              if( (0<=A(i).and.A(i)<=9).or.A(i)==-16 )        then
                  pin=1
              else
                  exit
              endif                             
            enddo
            i=0
            !print*,"只要立马接着有数字，pin就为1，我们的pin="
            !print*,pin  
            !print*,"接下来我们计算位数"
            length=0
            do i=2,5,1
                if (0<=A(i).and.A(i)<=9 ) then
                    length=length+1
                elseif (A(i)==-16) then 
                    !print*,"我们检测到了非数值，停止计数"
                    exit
                else
                    pin=0
                    exit
                endif                     
            enddo
            !print*,"length="
            !print*,length
            !print*,"接下来我们计算这个输入的真实值"
            do i=2,length+1,1
                n=n+A(i)*10**(length-i+1)                   
            enddo 
            !以上这一行代码是检测debug用的，看你的真实值跟转化值是否符合
            !print*,"n=",n              
        elseif(A(1)==-2) then
        !这是最前面有小数点的情况
            if((A(2)==0.or.A(2)==-16).and.(A(3)==0.or.A(3)==-16).and.(A(4)==0.or.A(4)==-16).and.(A(5)==0.or.A(5)==-16)) then
                !print*,"我们默认你输入了0"
                !.000的情况比较特殊，这是唯一可以允许输入的浮点型
                n=0
                pin=1
            else 
                pin=0
                !print*,"你输入了负数小数或者浮点数，请重新输入"
            endif
        
            if(A(1)==-3.and.A(2)==1.and.A(3)==0.and.A(4)==0) then
                print*,"你输入了-100，现在我们结束程序"
                pin=2
                exit
            !上面的这个我们在最后的do有了以后会取消注释
            endif   
!===========================================================================================    
        elseif(A(1)==-16) then
            !第一个输入的数还有可能是空格呢，我们得考虑这种情况
            !这种情况我只会考虑整数
            if(A(2)==-16) then
            !考虑第二个数======
                if(A(3)==-16) then
                !考虑第三个数=====
                    if(A(4)==-16) then
                    !考虑第四个数====
                        if(A(5)==-16) then
                            !考虑第五个数字===
                            print*,"你什么也没有输入！"
                            pin=0                                
                        else
                            if (0<=A(5).and.A(5)<=9) then
                                n=A(5)
                                pin=1
                            else
                                n=0
                                pin=0
                            endif                            
                        endif!第五个数字考虑完了===                       
                    elseif (0<=A(4).and.A(4)<=9)  then                
                        if (0<=A(5).and.A(5)<=9) then
                            n=A(4)*10+A(5)
                            pin=1
                        elseif (A(5)==-16) then
                            n=A(4)
                            pin=1
                        else                           
                            pin=0
                            n=0
                            !print*,"输入了负数浮点数或者字符串，请重新输入："
                        endif
                    endif!第四个数字考虑完了====                
                elseif (0<=A(3).and.A(3)<=9)   then
                    if(0<=A(4).and.A(4)<=9.and.0<=A(5).and.A(5)<=9) then
                        n=A(3)*100+A(4)*10+A(5)
                        pin=1
                    elseif((0<=A(4).and.A(4)<=9).and.A(5)==-16) then
                        n=A(3)*10+A(4)
                        pin=1
                    elseif(A(4)==-16.and.A(5)==-16) then
                        n=A(3)
                        pin=1
                    else
                        pin=0
                        n=0
                        !print*,"输入了负数浮点数或者字符串，请重新输入："
                    endif!第三个数字考虑完了=====
                 endif   
             elseif (0<=A(2).and.A(2)<=9)   then
                if(0<=A(4).and.A(4)<=9 .and.0<=A(5).and.A(5)<=9 .and.0<=A(3).and.A(3)<=9) then
                    n=A(2)*1000+A(3)*100+A(4)*10+A(5)
                    pin=1
                elseif((0<=A(4).and.A(4)<=9) .and.0<=A(3).and.A(3)<=9.and.A(5)==-16) then
                    n=A(2)*100+A(3)*10+A(4)
                    pin=1
                elseif(0<=A(3).and.A(3)<=9.and.A(4)==-16.and.A(5)==-16) then
                    n=A(2)*10+A(3)
                    pin=1
                elseif(A(4)==-16.and.A(5)==-16.and.A(3)==-16) then
                    n=A(2)
                    pin=1
                else
                    n=0
                    pin=0
                    !print*,"输入了负数浮点数或者字符串，请重新输入"
                endif!第二个数字考虑完了======
                !第一个数字本来就是空格，所以我们不用在考虑
             endif   
!==========================================================================           
        else   
!这是前面没有小数点和+情况，
            if( (0<=A(1).and.A(1)<=9).or.A(1)==-16 ) then
                if( (0<=A(2).and.A(2)<=9).or.A(2)==-16 ) then
                    if( (0<=A(3).and.A(3)<=9).or.A(3)==-16 ) then
                        if( (0<=A(4).and.A(4)<=9).or.A(4)==-16 ) then
                            if( (0<=A(5).and.A(5)<=9).or.A(5)==-16 ) then
                                pin=1
                            endif
                        endif
                    endif
                endif
            endif
            !接下来我们统计长度
            n=0
            if(pin==1) then
                do i=1,5,1
                    if (0<=A(i).and.A(i)<=9 ) then
                        length=length+1
                    else 
                        !print*,"检测结束，我们只检测第一个整数"
                        exit
                    endif                     
                enddo            
                do i=1,length,1
                   n=n+A(i)*10**(length-i) 
                enddo
                !print*,"n=",n
            elseif(A(1)==-3.and.A(2)==1.and.A(3)==0.and.A(4)==0) then
                print*,"你输入了-100，现在我们结束程序"
                    pin=2
                exit
            else 
                !print*,"你输入了负数浮点数或者字符串，请重新输入："
            endif
        endif
    !=======================================================================
    !以上程序用于把输入奇奇怪怪的形式转化为具体的能算的数字
    !如果出现了非法输入，那么我直接pin=0
    !在下面开始计算之前，我们先来做一组测验            
        if(pin==1.and.n>=0) then
            pr16=1q0;
            do i=n,1,-1
                 pr16=pr16*i;
            enddo
            write(*,*)n,"!=",pr16
        elseif(pin==1.and.n==0) then
            pr16=1
            write(*,*)n,"!=",pr16
        elseif(pin==2) then
            exit
        else
            print*,"你输入了负数浮点数或者字符串，请重新输入："
        endif                     
    enddo    
 
    pause
    end program jiecheng_plus_plus
兰博370373
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
计算流体力学作业Fortran
12-09
计算流体力学作业，Fortran ABC三种迎风格式的代码，又不
Fortran 程序设计 作业02
Log_0316的博客
03-10 1501
题目要求 设计程序，输入降水量ttt，判断该降水量是 121212 小时或 242424 小时时间段内的，再依据图示降雨量，分类得出降水等级 题设分析 首先观察题目，发现涉及到“判断”类的字眼，于是初步确定使用选择结构。 选择结构可使用的程序结构如下： if - endif 结构： if (condition 01) then statement block end if if - else - endif 结构： if (condition 01) then statement bloc
fortran90作业 基本编程
02-23
Fortran作业的编程 怕丢了，传到网上来保存 共享一下！
FORTRAN童老师的第一次作业
博370373的博客
10-18 169
FORTRAN童老师的第一次作业 PS：Fortran我函数之间穿real8型的变量咋就老报错呢？？？搞不懂，我就索性用了默认的real。 下面展示我的代码 内联代码片。 program main implicit none real::result1,result2,left,right,jifen real::N external f,g write(*,*)'请输入一个数字，作为区间划分细度' read(*,*)N
南信大FORTRAN课件
07-18
南信大的FORTRAN课件，主要针对南信大的专用课本
Fortran Fortran Fortran Fortran Fortran
最新发布
06-26
Fortran Fortran Fortran Fortran Fortran
FORTRAN
03-10
6. **版本迭代**：随着时间的推移，FORTRAN经历了多次升级，如FORTRAN II、FORTRAN IV、FORTRAN 66、FORTRAN 77、FORTRAN 90、FORTRAN 95、FORTRAN 2003、FORTRAN 2008等，每次更新都引入了更多的现代编程特性，如...
二次规划fortran77程序库
11-19
开源的二次规划程序 fortran77编写 需UNIX环境下提取
一个简单的 Fortran 代码示例
03-17
Fortran，全称为Formula Translation，是一种历史悠久的编程语言，尤其在科学计算和工程领域中有着广泛的应用。这个“一个简单的 Fortran 代码示例”压缩包包含了一个Fortran的学习资源，帮助初学者理解和掌握这种...
ABAQUS_Fortran二次开发.pdf
08-03
ABAQUS_Fortran二次开发基础，供需要的人下载
【JAVA编程】对矩阵进行转置运算
qq_45239139的博客
09-16 841
题目： 对一个矩阵进行转置运算，也就是将行的元素转放到对应列的元素上 源码：
Fortran
hrh741的博客
08-18 108
intent(in)，parameter不能重新赋值
矩形转置问题 从第一行开始输出的
a1846560181的博客
07-24 398
#include int main() { int i,j,n=0; for(i=1;i for(j=1;j { if(n!=0&&n%5==0) printf("\n"); printf("%3d",i*j); } printf("\n"); return 0; }
史上最全的Fortran学习资源
Sadu
04-08 2877
(1)Fortran资源: 中国科大固体微结构实验室一页面 Fortran资源的集合，非常丰富。有 Fortran95程序设计彭国伦著的下载， Fortran77和90/95编程入门，FORTRAN常用算法程序集，Visual FORTRAN编程指南等; (2)Fortran语言 （福傳語言）繁体中文，台湾网站，很多Fortran资源的集合。（風禹科技驗證有限公司） (3)Fort
Fortran 程序设计 作业03
Log_0316的博客
03-16 3835
题目要求 设计程序，输入若干日最高气温，判断最高气温及其对应日期，计算一周平均最高气温。 给出的数据组如下： 日期 3月23日 3月24日 3月25日 3月26日 3月27日 3月28日 3月29日 最高气温 16.0℃ 17.0℃ 17.0℃ 18.0℃ 16.0℃ 22.0℃ 24.0℃ 题设分析 首先观察题目，发现需要判断“最高”，则需要判断类代码块；需要计算“平均”，则需要循环类代码块。 由课上所学知识，我们可以很轻易地写出判断最高温度与计算周平均最高气温的有关代码，我们把主要的
Fortran 程序设计 作业01
Log_0316的博客
03-08 2683
Fortran 程序设计 作业01 题目要求 ​ 设计程序，输入气温，通过给定的经验公式1和2 输出水汽压数值，并比较二者结果在数值上的差异，同时考察饱和水汽压与温度之间的关系。 ​ 所给定的经验公式如下 E1=E0×107.45t237.3+t E_1=E_0\times10^{\frac{7.45t}{237.3+t}} E1​=E0​×10237.3+t7.45t​ E2=E0×e16.67t243.5+t E_2=E_0\times e^{\frac{16.67t}{243.5+t}} E2​=
练习2-9 整数四则运算
热门推荐
melody_1016的博客
09-01 1万+
练习2-9 整数四则运算（10 分） 本题要求编写程序，计算2个正整数的和、差、积、商并输出。题目保证输入和输出全部在整型范围内。 输入格式: 输入在一行中给出2个正整数A和B。 输出格式: 在4行中按照格式“A 运算符 B = 结果”顺序输出和、差、积、商。 输入样例: 3 2 输出样例: 3 + 2 = 5 3 - 2 = 1 3 * 2 = 6 3 / 2 = 1 ...
算法--两种方法实现一个Add函数，让两个整数相加，但是不能使用+、-、*、/等四则运算符。
sayhello_world的博客
07-14 5599
方法一：（网上都解释的很好 这里就不赘述了）int Add1(int num1,int num2) { int sum, carry; do { //因为位运算加法，0+1=1,1+0=1，0+0=0,1+1=0(但是要进位)，所以跟异或有点类似 //但是当num1&num2的时候，当为一的时候需要左移一位，表示进位。 sum
fortran 矩阵连乘_自然数的计算机处理1(2)fortran
weixin_42298100的博客
02-01 423
计算机语言运用--数值计算1-自然数的计算机处理1(2)fortran计算机：电子线路组成的计算机器。人与计算机则是通过计算机语言-符号系统说给计算机听而交流。计算机语言有低级语言-机器语言、汇编、高级语言-C/C++/C#/VB/PASCAL/LISP/JAVA/PYTHON/……成百上千种之多。作为一种计算机器—可以协助人类处理各种事情—数值计算问题、文字处理问题、图形图像处理问题...
fortran上机作业1
09-30
Fortran是一种科学计算语言，经常用于高性能计算和科学工程领域。对于Fortran上机作业1，我们需要了解具体的题目内容才能给出详细解答。在这里，我将提供一些关于Fortran上机作业1的一般性指导。 通常，Fortran上机...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值