Fortran Coder

查看: 41|回复: 1

[讨论] 复数的表控输入是怎么实现的?

[复制链接]

71

帖子

18

主题

1

精华

大师

F 币
717 元
贡献
432 点
发表于 2019-11-29 18:02:55 | 显示全部楼层 |阅读模式
本帖最后由 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

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

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


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


回复

使用道具 举报

1450

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
911 元
贡献
649 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2019-11-29 21:06:24 | 显示全部楼层
不能用格式IO实现表控的功能。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2019-12-14 05:37

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表