版塊導航: 正在加載中...

登錄注冊

應《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

kathy2008

木蟲 (正式寫手)

應助: 0 (幼兒園)
金幣: 2161.5
紅花: 2
帖子: 328
在線: 213.2小時
蟲號: 558502
注冊: 2008-05-15
性別: GG
專業(yè): 材料物理化學

[交流] 【求助】請改正錯誤已有7人參與

本人在運行一程序，內(nèi)有一段程序如下：
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),

請問高手如何改正。謝謝。

回復此樓

» 猜你喜歡

求調(diào)劑院校信息已經(jīng)有4人回復
085600材料與化工306 已經(jīng)有4人回復
286求調(diào)劑已經(jīng)有10人回復
328求調(diào)劑，英語六級551，有科研經(jīng)歷已經(jīng)有9人回復
一志愿北京化工大學070300 學碩336求調(diào)劑已經(jīng)有4人回復
286分人工智能專業(yè)請求調(diào)劑愿意跨考！已經(jīng)有8人回復
資源與環(huán)境調(diào)劑申請(333分) 已經(jīng)有5人回復
280求調(diào)劑已經(jīng)有12人回復
269專碩求調(diào)劑已經(jīng)有5人回復
材料學碩301分求調(diào)劑已經(jīng)有7人回復

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

請教 fortran 運行錯誤的原因已經(jīng)有13人回復
高手請進幫忙糾正中譯英錯誤感謝已經(jīng)有2人回復
小弟想投單晶學報E，但有三個G類錯誤，請各位大蝦們不吝賜教。。。已經(jīng)有3人回復
量化中出錯的log文件已經(jīng)有5人回復
投稿后成功后，又發(fā)現(xiàn)了幾個小錯誤已經(jīng)有31人回復
【求助】幾何優(yōu)化問題已經(jīng)有25人回復
【求助】幾個A類錯誤如何修正？已經(jīng)有8人回復
已發(fā)表的論文發(fā)現(xiàn)有處錯誤，怎么辦，急�。。� 已經(jīng)有36人回復
以前的一篇發(fā)表論文數(shù)據(jù)有錯誤該怎么辦？已經(jīng)有8人回復
【求助】兩個A類錯誤已經(jīng)有15人回復
【求助】Ph計校正錯誤怎么辦已經(jīng)有24人回復

1樓 2010-08-30 22:13:37

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

yalefield

金蟲 (文壇精英)

老漢一枚

程序強帖: 3
應助: 129 (高中生)
貴賓: 0.17
金幣: 21238.9
散金: 3440
紅花: 66
帖子: 12101
在線: 759.1小時
蟲號: 96063
注冊: 2005-10-07
專業(yè): 高等教育學
管轄: 計算模擬

★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流

請自己改正錯誤

回復此樓

2樓2010-08-31 08:06:55

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

yfx2003

金蟲 (著名寫手)

應助: 7 (幼兒園)
金幣: 1434.3
紅花: 4
帖子: 1777
在線: 62.9小時
蟲號: 1037371
注冊: 2010-06-07
專業(yè): 計算機科學的基礎(chǔ)理論

★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流

不知道這個 //干嘛

贊一下(1人)

回復此樓

Signyournicknamehere

3樓2010-08-31 08:45:26

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

kathy2008

木蟲 (正式寫手)

應助: 0 (幼兒園)
金幣: 2161.5
紅花: 2
帖子: 328
在線: 213.2小時
蟲號: 558502
注冊: 2008-05-15
性別: GG
專業(yè): 材料物理化學

如果自己會改正錯誤，就不會發(fā)到這論壇上來了。我是指運行彭國輪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)"

"座號","中文","英文","數(shù)學","自然","社會","總分"
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

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

yalefield

金蟲 (文壇精英)

老漢一枚

程序強帖: 3
應助: 129 (高中生)
貴賓: 0.17
金幣: 21238.9
散金: 3440
紅花: 66
帖子: 12101
在線: 759.1小時
蟲號: 96063
注冊: 2005-10-07
專業(yè): 高等教育學
管轄: 計算模擬

★ ★
小木蟲(金幣+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),

與程序關(guān)系不大，與您的英語水平關(guān)系很大。

Syntax error
“句法錯誤：”

Fortran，能這么換行嗎？
俺閉關(guān)多年，真不知道世事變遷。

贊一下(2人)

回復此樓

5樓2010-08-31 10:06:47

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

鼻涕牛

金蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 526.6
紅花: 1
帖子: 45
在線: 69.6小時
蟲號: 961093
注冊: 2010-03-04
性別: GG
專業(yè): 海洋工程

★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流
nono2009(金幣+1):鼓勵應助。 2010-09-03 06:56:36

換行要加續(xù)行符的，建議重新看一下續(xù)行的內(nèi)容。續(xù)行標志使用符號&

贊一下(2人)

回復此樓

縱浪大化中，不喜亦不懼。應盡便須盡，無復獨多慮

6樓2010-09-02 19:49:43

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

xgfbj

鐵桿木蟲 (正式寫手)

應助: 0 (幼兒園)
金幣: 8172.9
紅花: 1
帖子: 523
在線: 218小時
蟲號: 205185
注冊: 2006-03-03
性別: GG
專業(yè): 哲學其他學科

★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流

不懂。。。。。。

回復此樓

7樓2010-09-02 21:34:10

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

鼻涕牛

金蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 526.6
紅花: 1
帖子: 45
在線: 69.6小時
蟲號: 961093
注冊: 2010-03-04
性別: GG
專業(yè): 海洋工程

★
小木蟲(金幣+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://www.gaoyang168.com/bbs/viewthread.php?tid=2348595&pid=2148561&page=1#pid2148561

贊一下(1人)

回復此樓

縱浪大化中，不喜亦不懼。應盡便須盡，無復獨多慮

8樓2010-09-03 08:21:49

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

鼻涕牛

金蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 526.6
紅花: 1
帖子: 45
在線: 69.6小時
蟲號: 961093
注冊: 2010-03-04
性別: GG
專業(yè): 海洋工程

不好意思，發(fā)錯了

★
小木蟲(金幣+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://www.gaoyang168.com/bbs/viewthread.php?tid=2348595&pid=2148561&page=1#pid2148561

贊一下(1人)

回復此樓

縱浪大化中，不喜亦不懼。應盡便須盡，無復獨多慮

9樓2010-09-03 08:24:18

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wb_ice

金蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 469
帖子: 281
在線: 33.5小時
蟲號: 1032428
注冊: 2010-05-31
專業(yè): 原子核物理

★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流
余澤成(金幣+1):謝謝參與應助！ 2010-09-07 23:52:01

引用回帖:

Originally posted by kathy2008 at 2010-08-31 09:53:37:
如果自己會改正錯誤，就不會發(fā)到這論壇上來了。我是指運行彭國輪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

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 kathy2008 的主題更新

返回列表

普通表情龍兔虎貓高級回復 (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 求調(diào)劑院校信息 +4	CX 330 2026-03-21	4/200	2026-03-21 23:48 by ms629
[考研] 一志愿東華大學控制學碩320求調(diào)劑 +3	Grand777 2026-03-21	3/150	2026-03-21 19:23 by 簡之-
[基金申請] 山東省面上項目限額評審 +3	石瑞0426 2026-03-19	3/150	2026-03-21 18:59 by RRRKKK
[考研] 0703化學297求調(diào)劑 +3	Daisy☆ 2026-03-20	3/150	2026-03-21 17:45 by ColorlessPI
[考研] 求調(diào)劑 +6	Mqqqqqq 2026-03-19	6/300	2026-03-21 08:04 by JourneyLucky
[考研] 316求調(diào)劑 +6	梁茜雯 2026-03-19	6/300	2026-03-21 06:32 by Ecowxq666！
[考研] 一志愿中國石油大學（華東）本科齊魯工業(yè)大學 +3	石能偉 2026-03-17	3/150	2026-03-21 02:22 by JourneyLucky
[考研] 材料專碩英一數(shù)二306 +7	z1z2z3879 2026-03-18	7/350	2026-03-20 23:48 by JourneyLucky
[考研] 330求調(diào)劑 +4	小材化本科 2026-03-18	4/200	2026-03-20 23:13 by JourneyLucky
[考研] 一志愿南京理工大學085701資源與環(huán)境302分求調(diào)劑 +4	葵梓衛(wèi)隊 2026-03-18	6/300	2026-03-20 23:02 by JourneyLucky
[考研] 287求調(diào)劑 +7	晨昏線與星海 2026-03-19	8/400	2026-03-20 22:19 by JourneyLucky
[考研] 350求調(diào)劑 +5	weudhdk 2026-03-19	5/250	2026-03-20 22:04 by luoyongfeng
[考研] 08工學調(diào)劑 +5	用戶573181 2026-03-20	5/250	2026-03-20 15:47 by xia_2003
[考研] 320求調(diào)劑0856 +3	不想起名字112 2026-03-19	3/150	2026-03-19 22:53 by 學員8dgXkO
[考研] 085601材料工程專碩求調(diào)劑 +10	慕寒mio 2026-03-16	10/500	2026-03-19 15:26 by 丁丁*
[碩博家園] 湖北工業(yè)大學生命科學與健康學院-課題組招收2026級食品/生物方向碩士 +3	1喜春8 2026-03-17	5/250	2026-03-17 17:18 by ber川cool子
[考研] 308求調(diào)劑 +4	是Lupa啊 2026-03-16	4/200	2026-03-17 17:12 by ruiyingmiao
[考研] 一志愿南京大學，080500材料科學與工程，調(diào)劑 +4	Jy? 2026-03-16	4/200	2026-03-17 11:02 by gaoqiong
[考研] 11408 一志愿西電，277分求調(diào)劑 +3	zhouzhen654 2026-03-16	3/150	2026-03-17 07:03 by laoshidan
[考研] 070303 總分349求調(diào)劑 +3	LJY9966 2026-03-15	5/250	2026-03-16 14:24 by xwxstudy

24小時熱門版塊排行榜

[交流] 【求助】請改正錯誤 已有7人參與

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

不好意思，發(fā)錯了

[交流] 【求助】請改正錯誤已有7人參與

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

不好意思，發(fā)錯了