Fortran语言程序设计基础 03 动态数组习题

River Chandler

已于 2023-07-02 00:59:48 修改

阅读量144

点赞数

分类专栏： Fortran语言程序设计方法与案例文章标签： fortran

于 2022-06-27 13:49:27 首次发布

本文链接：https://blog.csdn.net/Chandler_river/article/details/125482101

版权

Fortran语言程序设计方法与案例专栏收录该内容

11 篇文章 3 订阅

订阅专栏

1.在给定任意长度的句子字符串中查找指定单词并替换为新的单词，输出替换后的字符串

2.倒序输出

program inverse
    implicit none 
    integer,allocatable::old_array(:),new_array(:)
    integer i,n,num 

    write(*,*)"Enter the number:(end with -1)"
    allocate(new_array(0))
    n = 0 
    read(*,*),num 
    do while(num.NE.-1)
        n = n + 1
        allocate(old_array(n-1))
        old_array = new_array 
        deallocate(new_array)

        allocate(new_array(n))
        new_array(1:n-1) = old_array 
        new_array(n) = num 
        deallocate(old_array)
        read(*,*),num
    end do 

    write(*,*),"total number:",n
    write(*,*),"the initial array:",(new_array(i),i=1,n)
    write(*,*),"the inverse array:",(new_array(i),i=n,1,-1)
    read(*,*)
end program

3.计算学生均分

方法一：

program calave
    implicit none 
    integer,dimension(:),allocatable::score 
    integer i,j,n,x 
    real ave,sum 

    write(*,*)"Enter the students numbers:"
    read(*,*),n 

    allocate(score(n))
    write(*,*)"Enter their score:"
    read(*,*),(score(i),i=1,n)

    sum = 0
    do i=1,n 
        sum = sum + score(i)
    end do 

    ave = sum/n 
    write(*,*)"the average is:",ave
    read(*,*)
end program

方法二：

program example
    implicit none 
    integer,allocatable::old_array(:),new_array(:)
    integer i,n
    real sum,ave,num 

    write(*,*)"Enter the number:(end with -1)"
    allocate(new_array(0))
    n = 0 
    read(*,*),num 
    
    do while(num.NE.-1)
        n = n + 1
        allocate(old_array(n-1))
        old_array = new_array
        deallocate(new_array)

        allocate(new_array(n))
        new_array(1:n-1) = old_array 
        new_array(n) = num 
        deallocate(old_array)

        read(*,*),num
    end do 

    write(*,*),"total students number:",n
    
    sum = 0
    do i=1,n
        sum = sum + new_array(i)
    end do 
    ave = sum / n

    write(*,*),"the average score is:",ave 

    read(*,*)
end program

4.数组排序

program example 
    implicit none 
    real,allocatable::old_array(:),new_array(:)
    integer i,j,n,num,p
    real temp  

    write(*,*),"Enter the number:(end with -1)"
    allocate(new_array(0))
    n = 0 
    read(*,*),num 

    do while(num.NE.-1)
        n = n + 1 
        allocate(old_array(n-1))
        old_array = new_array 
        deallocate(new_array)

        allocate(new_array(n))
        new_array(1:n-1) = old_array 
        new_array(n) = num 
        deallocate(old_array)

        read(*,*),num
    end do 

    write(*,*)"the array:",(new_array(i),i=1,n)
    do i=1,n-1
        p = i 
        do j=i,n 
            if(new_array(j).LT.new_array(p))then
                p = j
            end if 
        end do 
        temp = new_array(p)
        new_array(p) = new_array(i)
        new_array(i) = temp 
    end do 

    write(*,*)"the new array",(new_array(i),i=1,n)
    read(*,*)
end program