21
7
0
熟手
01
program
ex
02
implicit
none
03
character
(
len
=
50
)
input
,
output
04
integer
i
strlen
05
::
j
1
06
write
*
"请输入字符串"
07
read
"(A50)"
08
len_trim
09
do
10
if
:
/=
' '
then
11
12
+1
13
end
14
15
16
捕获1.PNG (12.88 KB, 下载次数: 338)
下载附件
2019-11-1 13:43 上传
源代码执行结果
捕获2.PNG (8.96 KB, 下载次数: 339)
2019-11-1 13:45 上传
默认输出格式输出结果
使用道具 举报
838
2
大宗师
臭石头雪球
2038
5
论坛跑堂
li913 发表于 2019-11-1 15:22 不加格式,遇到空格或逗号就读取完毕。格式详解可以看看http://fcode.cn/resource_ebook-32-1.html第二讲。 ...
fcode 发表于 2019-11-2 08:42 read(*,*) 称为表控格式。 表控格式认为空格和逗号,TAB,是“间隔符” 这个思想,可以参考excel的“分列功 ...
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给注册后积极发言的新人
颁发给在娱乐版上传了真实照片的女性网友
颁发给论坛热心帮助他人的网友
颁发给经认证的具有特殊贡献和地位的名人
颁发给对本站有突出贡献的朋友
颁发给本站版主和管理
颁发给在娱乐版上传了真实照片的男性网友
颁发给为Fcode网站捐赠的网友
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给发帖量超过一定数量的坛友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2025-5-3 09:08
Powered by Discuz! X3.4
© 2013-2025 Comsenz Inc.