Fortran文件处理实例（一）

问题描述

对于一个文件（英文文章），找出其中出现频率最高的英文单词。

问题解决

编译器选择

对于编译器可以选择visual studio系列在加上inter visual Fortran。当然如果简单的学习我们建议simply Fortran。

代码实现

PROGRAM TASK

   
!----------------------------------------------------------------------------------------------------
!对于一个文件（英文文章），找出其中出现频率最高的英文单词。
!项目记录：
!  日期      编写者     代码备注
!  =====    =========  ===========
!  10.13      朝夕       通过调试
!   
!----------------------------------------------------------------------------------------------------
    IMPLICIT NONE  !关掉隐式声明
    CHARACTER(LEN=20)::filename
    INTEGER::i,j,m,l,p!控制循环的变量
    INTEGER,DIMENSION(:),ALLOCATABLE::flag!flag是记录buff中单词对应出现的次数的动态分配数组
    CHARACTER(len=20),DIMENSION(:),ALLOCATABLE::buff!将文本单词读入的数组，动态分配
    INTEGER::word_number!读入文本单词数的变量
    INTEGER,DIMENSION(10)::result_number!排序算法后输出的出现次数最多单词对应在buff中的位置，若值为0表示未记录
    WRITE(*,*)'所处理文本路径：'
    READ(*,*)filename
    WRITE(*,*)'所读文本单词的个数：'
    READ(*,*)word_number