| 查看: 1582 | 回复: 10 | |||
kathy2008木虫 (正式写手)
|
[交流]
【求助】请改正错误 已有7人参与
|
|
本人在运行一程序，内有一段程序如下： program ex1009 use func implicit none type(person), target :: p(5) = (/ person("陈同学", 180.0, 75.0), person("黄同学", 170.0, 65.0), person("刘同学", 175.0, 80.0), person("蔡同学", 182.0, 78.0), person("许同学", 178.0, 70.0) /) type(pperson) :: pt(5) 运行后，报错如下： C:\Program Files\Microsoft Visual Studio\MyProjects\chapter 10\9.for(40) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( type(person), target :: p(5) = (/ person('陈同学', 180.0, 75.0), ---------------------------------------------------------------------------^ C:\Program Files\Microsoft Visual Studio\MyProjects\chapter 10\9.for(41) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( person('黄同学', 170.0, 65.0), -------------------------------------------------------------------^ C:\Program Files\Microsoft Visual Studio\MyProjects\chapter 10\9.for(42) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( person("刘同学", 175.0, 80.0), -----------------------------------------------------------------------------------------------^ C:\Program Files\Microsoft Visual Studio\MyProjects\chapter 10\9.for(43) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( person("蔡同学", 182.0, 78.0), 请问高手如何改正。谢谢。 |
回复此楼» 猜你喜欢
347求调剂
已经有4人回复
-
一志愿西交288化工专硕求调剂
已经有3人回复
-
一志愿中国科学院大学265求调剂
已经有4人回复
-
291求调剂
已经有13人回复
-
070300化学求调剂
已经有3人回复
-
322求调剂
已经有7人回复
-
0703化学
已经有15人回复
-
材料学硕333求调剂
已经有15人回复
-
313求调剂
已经有3人回复
-
083000学硕274求调剂
已经有11人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教 fortran 运行错误的原因
已经有13人回复
- 高手请进 帮忙纠正中译英错误 感谢
已经有2人回复
- 小弟想投单晶学报E，但有三个G类错误，请各位大虾们不吝赐教。。。
已经有3人回复
- 量化中出错的log文件
已经有5人回复
- 投稿后成功后，又发现了几个小错误
已经有31人回复
- 【求助】几何优化问题
已经有25人回复
- 【求助】几个A类错误如何修正？
已经有8人回复
- 已发表的论文发现有处错误，怎么办，急！！！
已经有36人回复
- 以前的一篇发表论文数据有错误该怎么办？
已经有8人回复
- 【求助】两个A类错误
已经有15人回复
- 【求助】Ph计校正错误怎么办
已经有24人回复
yalefield
金虫 (文坛精英)
老汉一枚
- 程序强帖: 3
- 应助: 129 (高中生)
- 贵宾: 0.17
- 金币: 21238.9
- 散金: 3440
- 红花: 66
- 帖子: 12101
- 在线: 759.1小时
- 虫号: 96063
- 注册: 2005-10-07
- 专业: 高等教育学
- 管辖: 计算模拟
2楼2010-08-31 08:06:55
yfx2003
金虫 (著名写手)
- 应助: 7 (幼儿园)
- 金币: 1434.3
- 红花: 4
- 帖子: 1777
- 在线: 62.9小时
- 虫号: 1037371
- 注册: 2010-06-07
- 专业: 计算机科学的基础理论
3楼2010-08-31 08:45:26
kathy2008
木虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 2161.5
- 红花: 2
- 帖子: 328
- 在线: 213.2小时
- 虫号: 558502
- 注册: 2008-05-15
- 性别: GG
- 专业: 材料物理化学
|
如果自己会改正错误，就不会发到这论坛上来了。我是指运行彭国轮Fortran95 的源程序时报错的。文件名为ex0921.for.因为遇到好几个类似的问题，所以请高手指点。程序如下： module typedef type student integer :: Chinese,English,Math,Natural,Social integer :: total end type end module program ex0921 use typedef implicit none integer,parameter :: fileid=10 integer,parameter :: students=20 character(len=80) :: tempstr type(student) :: s(students) type(student) :: total integer i,num,error open(fileid,file="grades.txt",status="old",iostat=error) if(error/=0) then write(*,*) "open grades.txt fail." end if read(fileid,"(A80)" tempstr total=student(0,0,0,0,0) do i=1,students read(fileid,*) num,s(i)%Chinese,s(i)%English,s(i)%Math, s(i)%Natural,s(i)%Social s(i)%total=s(i)%Chinese + s(i)%English + s(i)%Math + s(i)%Natural + s(i)%Social total%Chinese = total%Chinese + s(i)%Chinese total%English = total%English + s(i)%English total%Math = total%Math + s(i)%Math total%Natural = total%Natural + s(i)%Natural total%Social = total%Social + s(i)%Social total%Total = total%Total + s(i)%Total end do write(*,"(7A7)"  "座号","中文","英文","数学","自然","社会","总分"do i=1,students write(*,"(7I7)" i, s(i)end do write(*,"(A7,6F7.1)" "平均"real(total%Chinese) real(students), real(total%English) real(students), real(total%Math) real(students), real(total%Natural) real(students), real(total%Social) real(students), real(total%Total) real(students) stop end program |
4楼2010-08-31 09:53:37
yalefield
金虫 (文坛精英)
老汉一枚
- 程序强帖: 3
- 应助: 129 (高中生)
- 贵宾: 0.17
- 金币: 21238.9
- 散金: 3440
- 红花: 66
- 帖子: 12101
- 在线: 759.1小时
- 虫号: 96063
- 注册: 2005-10-07
- 专业: 高等教育学
- 管辖: 计算模拟
5楼2010-08-31 10:06:47
6楼2010-09-02 19:49:43
xgfbj
铁杆木虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 8172.9
- 红花: 1
- 帖子: 523
- 在线: 218小时
- 虫号: 205185
- 注册: 2006-03-03
- 性别: GG
- 专业: 哲学其他学科
7楼2010-09-02 21:34:10
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
小木虫(金币+0.5):给个红包，谢谢回帖交流
|
type(person), target :: p(5) = (/ person("陈同学", 180.0, 75.0), person("黄同学", 170.0, 65.0), person("刘同学", 175.0, 80.0), & person("蔡同学", 182.0, 78.0), & person("许同学", 178.0, 70.0) /) 本文来自: 小木虫论坛 http://muchong.com/bbs/viewthread.php?tid=2348595&pid=2148561&page=1#pid2148561 |
8楼2010-09-03 08:21:49
不好意思，发错了
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
小木虫(金币+0.5):给个红包，谢谢回帖交流
|
type(person), target :: p(5) = (/ person("陈同学", 180.0, 75.0), & person("黄同学", 170.0, 65.0), & person("刘同学", 175.0, 80.0), & person("蔡同学", 182.0, 78.0), & person("许同学", 178.0, 70.0) /) 本文来自: 小木虫论坛 http://muchong.com/bbs/viewthread.php?tid=2348595&pid=2148561&page=1#pid2148561 |
9楼2010-09-03 08:24:18
10楼2010-09-03 15:13:21
