Fortran Coder

标题: 复数的表控输入是怎么实现的？ [打印本页]

作者: weixing1531 时间: 2019-11-29 18:02
标题: 复数的表控输入是怎么实现的？
本帖最后由 weixing1531 于 2019-11-29 18:10 编辑

例如：
以下这一行代码中
复数的表控输入

[Fortran] 纯文本查看 复制代码

read(*,*)c

将read的第二个星号替换成字符串'(...)'，空中将填写什么内容才能达到与read(*,*)c相同的功能

[Fortran] 纯文本查看 复制代码

program main

        implicit none



        type::rational !分数类型

                integer :: num    !分子

                integer :: denom  !分母

        end type



        type(rational)::temp

        complex::c

        

        read(*,*)c !读取复数 例如(1.0,2.0)

        temp%num   = nint(real(c))  !取实部最接近整数

        temp%denom = nint(aimag(c)) !取虚部最接近整数

        write(*,*)temp

        read(*,*)

end program

我编写了一个分数类
想跟复数一样构造类似的读写格式
(分子,分母)或(分子/分母)

目前想到的相对可行方法就行通过复数绕个弯实现
先读取一个复数
然后将其实部、虚部分别转换为最接近的整数
再分别赋值给分数的分子、分母

如果知道复数的表控输入是怎么实现的，就不用绕弯了

作者: fcode 时间: 2019-11-29 21:06
不能用格式IO实现表控的功能。

作者: chiangtp 时间: 2020-7-18 21:56
1. "第二个星号"只支援"intrinsic types"
2. components最終仍是"intrinsic" types,: 簡單的如 READ(*,*) temp%num, temp%denom
3. 當"string"讀近來, 再自己coding
4. 要玩真的: Fortran 2003 Non-Default Derived Type I/O: READ(*, "(…, DT'…'(...), …)") …, temp, …
請參考簡介:

Non-Default-Derived-Type-IO.pdf

180.07 KB, 下载次数: 4

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)