应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】请改正错误
111/2返回列表12下一页
查看: 1948  |  回复: 10
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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),

请问高手如何改正。谢谢。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2010-08-30 22:13:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yalefield

金虫 (文坛精英)

老汉一枚
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
请自己改正错误
回复此楼
2楼2010-08-31 08:06:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yfx2003

金虫 (著名写手)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
不知道这个 //干嘛
赞一下(1人) 回复此楼
Signyournicknamehere
3楼2010-08-31 08:45:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kathy2008

木虫 (正式写手)
如果自己会改正错误，就不会发到这论坛上来了。我是指运行彭国轮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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yalefield

金虫 (文坛精英)

老汉一枚
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):辛苦了！ 2010-08-31 15:45:12
引用回帖:
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),

与程序关系不大，与您的英语水平关系很大。

Syntax error
“句法错误：”

Fortran，能这么换行吗？
俺闭关多年，真不知道世事变迁。
赞一下(2人) 回复此楼
5楼2010-08-31 10:06:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

鼻涕牛

金虫 (初入文坛)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+1):鼓励应助。 2010-09-03 06:56:36
换行要加续行符的，建议重新看一下续行的内容。续行标志使用符号&
赞一下(2人) 回复此楼
纵浪大化中，不喜亦不惧。应尽便须尽，无复独多虑
6楼2010-09-02 19:49:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xgfbj

铁杆木虫 (正式写手)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
不懂。。。。。。
回复此楼
7楼2010-09-02 21:34:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

鼻涕牛

金虫 (初入文坛)
★
小木虫(金币+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
赞一下(1人) 回复此楼
纵浪大化中，不喜亦不惧。应尽便须尽，无复独多虑
8楼2010-09-03 08:21:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

鼻涕牛

金虫 (初入文坛)

不好意思，发错了

★
小木虫(金币+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
赞一下(1人) 回复此楼
纵浪大化中，不喜亦不惧。应尽便须尽，无复独多虑
9楼2010-09-03 08:24:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wb_ice

金虫 (小有名气)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):谢谢参与应助！ 2010-09-07 23:52:01
引用回帖:
Originally posted by kathy2008 at 2010-08-31 09:53:37:
如果自己会改正错误，就不会发到这论坛上来了。我是指运行彭国轮Fortran95 的源程序时报错的。文件名为ex0921.for.因为遇到好几个类似的问题，所以请高手指点。程序如下：
        module typedef
          type student
                 ...

首先 type定义的类型的元素是6个，还有就是你还不会用换行符&。还有最后求平均时，没有使用“/”。

[ Last edited by wb_ice on 2010-9-3 at 15:20 ]
赞一下(2人) 回复此楼
10楼2010-09-03 15:13:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 kathy2008 的主题更新
111/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +8 zSbvVX9JFl9J 2026-11-09 9/450 2026-11-13 11:11 by Equinoxhua
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +6 FChKX8meu1ds 2026-11-09 10/500 2026-11-13 11:08 by Equinoxhua
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 TgvkbZZl9tqB 2026-11-11 6/300 2026-11-12 12:42 by ECLTXnJnRSXf
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +4 cdqGD6ftHmbl 2026-11-11 5/250 2026-11-12 12:28 by ECLTXnJnRSXf
[硕博家园] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 cdqGD6ftHmbl 2026-11-11 4/200 2026-11-12 12:26 by ECLTXnJnRSXf
[基金申请] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 Z7qfCsdIiD1T 2026-11-11 5/250 2026-11-12 11:44 by HajghKOMynmz
[基金申请] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4 Z7qfCsdIiD1T 2026-11-10 7/350 2026-11-12 11:33 by HajghKOMynmz
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 Z7qfCsdIiD1T 2026-11-10 8/400 2026-11-12 11:20 by HajghKOMynmz
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 czAiolzR0IJC 2026-11-10 7/350 2026-11-12 11:09 by HajghKOMynmz
[考研] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +7 czAiolzR0IJC 2026-11-10 9/450 2026-11-12 11:00 by HajghKOMynmz
[基金申请] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +5 G2rhSvqvhNzl 2026-11-10 7/350 2026-11-12 10:49 by HajghKOMynmz
[硕博家园] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +4 czAiolzR0IJC 2026-11-10 8/400 2026-11-12 10:49 by HajghKOMynmz
[考研] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +4 G2rhSvqvhNzl 2026-11-10 6/300 2026-11-12 10:36 by HajghKOMynmz
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4 C6CRn66RYYXS 2026-11-10 8/400 2026-11-12 10:27 by HajghKOMynmz
[考博] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +5 FChKX8meu1ds 2026-11-09 8/400 2026-11-12 09:46 by HajghKOMynmz
[教师之家] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +8 zSbvVX9JFl9J 2026-11-09 12/600 2026-11-12 09:21 by HajghKOMynmz
[公派出国] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 Z7qfCsdIiD1T 2026-11-10 6/300 2026-11-12 07:09 by 9fOTqj074tIg
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 czAiolzR0IJC 2026-11-10 5/250 2026-11-12 06:36 by 9fOTqj074tIg
[基金申请] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 FChKX8meu1ds 2026-11-09 7/350 2026-11-12 05:19 by 9fOTqj074tIg
[硕博家园] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +6 0TEMgxdT1eIw 2026-11-09 9/450 2026-11-12 04:57 by 9fOTqj074tIg
信息提示
关闭
请填处理意见
关闭