Question

我正在为我的课做这项任务，我不知道我是否做得对。

分配是设计和实现Fortran程序，从键盘读取一系列字符串，并计算每行中的逗号（“，”）。

程序应提供循环，格式化输入/输出和处理字符串。

程序应输出行号，逗号数和输入行的前70个字符。

输入将以空行或9999行结束，以先到者为准。

在一系列不同的输入值上测试程序，并验证输出对于那些输入值是否正确。假设输入字符串不能超过999个字符。

输出应为格式的格式化列表： nnnn：cc：aaaaaaaaaaaa ... aaaaaaaaaaaaaaa其中nnnn是行号，cc是逗号计数，aaaaaaaaaaaa ... aaaaaaaaaaaaaaaa是输入行的前70个字符，没有尾随空格。

此程序的代码必须足够简单，以便初学者程序员能够理解。没什么复杂的。

这是我到目前为止所做的：

Program counting
implicit none
     Integer :: line_number
      Integer :: comma_count
  Character (len = 999) :: message
WRITE (*,*)
WRITE (*,*)"Provide output the line number, the number of commas,&
            and the first 70 characters of the input line."
WRITE (*,*)

DO line_number = 0, 9999
        line_number = 1 + line_number
        IF (line_number == 0 .or. line_number >= 9999) then
        Exit
        END IF
WRITE (*,*)":"
        comma_count = 1 + line_number
WRITE (*,*)":"
WRITE (*,'(a70)') message
END DO
    READ  (*,*) line_number, comma_count, message
END Program counting

Fortran字符串程序：计算逗号

0 个答案: