版塊導(dǎo)航: 正在加載中...

登錄注冊

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

24小時(shí)熱門版塊排行榜

返回列表

kathy2008

木蟲 (正式寫手)

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

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

本人在運(yùn)行一程序，內(nèi)有一段程序如下：
program ex1009
use func
implicit none
type(person), target :: p(5) = (/ person("陳同學(xué)", 180.0, 75.0),
                                 person("黃同學(xué)", 170.0, 65.0),
         person("劉同學(xué)", 175.0, 80.0),
         person("蔡同學(xué)", 182.0, 78.0),
         person("許同學(xué)", 178.0, 70.0) /)
   type(pperson) :: pt(5)

運(yùn)行后，報(bào)錯(cuò)如下：
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('陳同學(xué)', 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('黃同學(xué)', 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("劉同學(xué)", 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("蔡同學(xué)", 182.0, 78.0),

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

回復(fù)此樓

» 猜你喜歡

354求調(diào)劑已經(jīng)有9人回復(fù)
化學(xué)工程321分求調(diào)劑已經(jīng)有22人回復(fù)
考研調(diào)劑已經(jīng)有3人回復(fù)
326求調(diào)劑已經(jīng)有8人回復(fù)
333求調(diào)劑已經(jīng)有7人回復(fù)
一志愿東華大學(xué)控制學(xué)碩320求調(diào)劑已經(jīng)有3人回復(fù)
考研化學(xué)學(xué)碩調(diào)劑，一志愿985 已經(jīng)有7人回復(fù)
0703化學(xué)調(diào)劑已經(jīng)有15人回復(fù)
0703化學(xué)調(diào)劑，六級已過，有科研經(jīng)歷已經(jīng)有14人回復(fù)
326求調(diào)劑已經(jīng)有4人回復(fù)

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

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

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

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

yalefield

金蟲 (文壇精英)

老漢一枚

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

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

請自己改正錯(cuò)誤

回復(fù)此樓

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

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

yfx2003

金蟲 (著名寫手)

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

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

不知道這個(gè) //干嘛

贊一下(1人)

回復(fù)此樓

Signyournicknamehere

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

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

kathy2008

木蟲 (正式寫手)

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

如果自己會改正錯(cuò)誤，就不會發(fā)到這論壇上來了。我是指運(yùn)行彭國輪Fortran95 的源程序時(shí)報(bào)錯(cuò)的。文件名為ex0921.for.因?yàn)橛龅胶脦讉€(gè)類似的問題，所以請高手指點(diǎn)。程序如下：
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ù)學(xué)","自然","社會","總分"
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

贊一下

回復(fù)此樓

4樓2010-08-31 09:53:37

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

yalefield

金蟲 (文壇精英)

老漢一枚

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

★ ★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖交流
余澤成(金幣+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('陳同學(xué)', 180.0, 75.0),

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

Syntax error
“句法錯(cuò)誤：”

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

贊一下(2人)

回復(fù)此樓

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

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

鼻涕牛

金蟲 (初入文壇)

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

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

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

贊一下(2人)

回復(fù)此樓

縱浪大化中，不喜亦不懼。應(yīng)盡便須盡，無復(fù)獨(dú)多慮

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

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

xgfbj

鐵桿木蟲 (正式寫手)

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

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

不懂。。。。。。

回復(fù)此樓

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

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

鼻涕牛

金蟲 (初入文壇)

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

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

type(person), target :: p(5) = (/ person("陳同學(xué)", 180.0, 75.0),
                                 person("黃同學(xué)", 170.0, 65.0),
                                                            person("劉同學(xué)", 175.0, 80.0), &
                                                            person("蔡同學(xué)", 182.0, 78.0), &
                                                            person("許同學(xué)", 178.0, 70.0) /)

本文來自: 小木蟲論壇 http://www.gaoyang168.com/bbs/viewthread.php?tid=2348595&pid=2148561&page=1#pid2148561

贊一下(1人)

回復(fù)此樓

縱浪大化中，不喜亦不懼。應(yīng)盡便須盡，無復(fù)獨(dú)多慮

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

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

鼻涕牛

金蟲 (初入文壇)

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

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

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

type(person), target :: p(5) = (/ person("陳同學(xué)", 180.0, 75.0), &
                                 person("黃同學(xué)", 170.0, 65.0), &
                                    person("劉同學(xué)", 175.0, 80.0), &
                                    person("蔡同學(xué)", 182.0, 78.0), &
                                    person("許同學(xué)", 178.0, 70.0) /)
本文來自: 小木蟲論壇 http://www.gaoyang168.com/bbs/viewthread.php?tid=2348595&pid=2148561&page=1#pid2148561

贊一下(1人)

回復(fù)此樓

縱浪大化中，不喜亦不懼。應(yīng)盡便須盡，無復(fù)獨(dú)多慮

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

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

wb_ice

金蟲 (小有名氣)

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

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

引用回帖:

Originally posted by kathy2008 at 2010-08-31 09:53:37:
如果自己會改正錯(cuò)誤，就不會發(fā)到這論壇上來了。我是指運(yùn)行彭國輪Fortran95 的源程序時(shí)報(bào)錯(cuò)的。文件名為ex0921.for.因?yàn)橛龅胶脦讉€(gè)類似的問題，所以請高手指點(diǎn)。程序如下：
module typedef
type student
...

首先 type定義的類型的元素是6個(gè)，還有就是你還不會用換行符&。還有最后求平均時(shí)，沒有使用“/”。

[ Last edited by wb_ice on 2010-9-3 at 15:20 ]

贊一下(2人)

回復(fù)此樓

10樓2010-09-03 15:13:21

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

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

返回列表

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

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

[考研] 297求調(diào)劑 +3	喜歡還是不甘心 2026-03-20	3/150	2026-03-21 18:33 by 學(xué)員8dgXkO
[考研] 296求調(diào)劑 +4	www_q 2026-03-20	4/200	2026-03-21 17:26 by 學(xué)員8dgXkO
[考研] 277材料科學(xué)與工程080500求調(diào)劑 +6	自由煎餅果子 2026-03-16	6/300	2026-03-21 17:21 by 學(xué)員8dgXkO
[考研] 一志愿西安交通大學(xué)材料工程專業(yè) 282分求調(diào)劑 +8	楓橋ZL 2026-03-18	10/500	2026-03-21 15:29 by Shawn0911
[考研] 307求調(diào)劑 +3	wyyyqx 2026-03-17	3/150	2026-03-21 03:20 by JourneyLucky
[考研] 265求調(diào)劑 +3	Jack?k?y 2026-03-17	3/150	2026-03-21 03:17 by JourneyLucky
[考研] 華東師范大學(xué)-071000生物學(xué)-293分-求調(diào)劑 +3	研究生何瑤明 2026-03-18	3/150	2026-03-21 01:30 by JourneyLucky
[考研] 一志愿華南師大 070300（化學(xué)）304分求調(diào)劑 +3	0703武芊慧雪304 2026-03-18	3/150	2026-03-21 00:48 by JourneyLucky
[考研] 304求調(diào)劑 +6	曼殊2266 2026-03-18	6/300	2026-03-21 00:32 by JourneyLucky
[考研] 一志愿西北大學(xué) ，070300化學(xué)學(xué)碩，總分287，雙非一本，求調(diào)劑。 +4	晨昏線與星海 2026-03-19	4/200	2026-03-20 22:15 by JourneyLucky
[考研] 0817 化學(xué)工程 299分求調(diào)劑有科研經(jīng)歷有二區(qū)文章 +22	rare12345 2026-03-18	22/1100	2026-03-20 20:39 by zhukairuo
[考研] 材料學(xué)求調(diào)劑 +4	Stella_Yao 2026-03-20	4/200	2026-03-20 20:28 by ms629
[考研] 一志愿南理工085701環(huán)境302求調(diào)劑院校 +3	葵梓衛(wèi)隊(duì) 2026-03-20	3/150	2026-03-20 19:28 by zhukairuo
[考研] 086500 325 求調(diào)劑 +3	領(lǐng)帶小熊 2026-03-19	3/150	2026-03-20 18:38 by 盡舜堯1
[考博] 申博26年 +3	八6八68 2026-03-19	3/150	2026-03-19 19:43 by nxgogo
[考研] 288求調(diào)劑，一志愿華南理工大學(xué)071005 +5	ioodiiij 2026-03-17	5/250	2026-03-19 18:22 by zcl123
[考研] 一志愿蘇州大學(xué)材料工程（085601）專碩有科研經(jīng)歷三項(xiàng)國獎(jiǎng)兩個(gè)實(shí)用型專利一項(xiàng)省級立項(xiàng) +6	大火山小火山 2026-03-16	8/400	2026-03-17 15:05 by 無懈可擊111
[考博] 26申博 +4	八6八68 2026-03-16	4/200	2026-03-17 13:00 by 輕松不少隨
[考研] 302求調(diào)劑 +4	小賈同學(xué)123 2026-03-15	8/400	2026-03-17 10:33 by 小賈同學(xué)123
[考研] 327求調(diào)劑 +6	拾光任染 2026-03-15	11/550	2026-03-15 22:47 by 拾光任染

24小時(shí)熱門版塊排行榜

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

» 猜你喜歡

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

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

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

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