當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

kathy2008

木蟲 (正式寫手)

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

[交流] 【求助】請改正錯誤已有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)行后，報錯如下：
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ù)此樓

» 猜你喜歡

309求調(diào)劑已經(jīng)有8人回復(fù)
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷已經(jīng)有8人回復(fù)
求調(diào)劑已經(jīng)有5人回復(fù)
求化學(xué)調(diào)劑已經(jīng)有5人回復(fù)
085600，材料與化工321分求調(diào)劑已經(jīng)有10人回復(fù)
0703 化學(xué) 求調(diào)劑，一志愿山東大學(xué) 342 分已經(jīng)有5人回復(fù)
一志愿南開大學(xué)0710生物學(xué)359求調(diào)劑已經(jīng)有3人回復(fù)
085600，專業(yè)課化工原理，320分求調(diào)劑已經(jīng)有4人回復(fù)
材料與化工272求調(diào)劑已經(jīng)有16人回復(fù)
290求調(diào)劑已經(jīng)有3人回復(fù)

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

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

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

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

kathy2008

木蟲 (正式寫手)

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

如果自己會改正錯誤，就不會發(fā)到這論壇上來了。我是指運(yùn)行彭國輪Fortran95 的源程序時報錯的。文件名為ex0921.for.因為遇到好幾個類似的問題，所以請高手指點(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的回帖

查看全部 11 個回答

yfx2003

金蟲 (著名寫手)

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

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

不知道這個 //干嘛

贊一下(1人)

回復(fù)此樓

Signyournicknamehere

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

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

yalefield

金蟲 (文壇精英)

老漢一枚

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

★ ★
小木蟲(金幣+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('陳同學(xué)', 180.0, 75.0),

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

Syntax error
“句法錯誤：”

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小時
蟲號: 961093
注冊: 2010-03-04
性別: GG
專業(yè): 海洋工程

★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖交流
nono2009(金幣+1):鼓勵應(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的回帖

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

[考研] 290求調(diào)劑 +3	dfffsar 2026-03-29	3/150	2026-03-29 22:38 by 毛毛毛阿莫2
[考研] 【求調(diào)劑】085601材料工程專碩 \| 總分272 \| +7	腳滑的守法公民 2026-03-27	7/350	2026-03-29 20:21 by dophin1985
[考研] 2026年華南師范大學(xué)歡迎化學(xué)，化工，生物，生醫(yī)工等專業(yè)優(yōu)秀學(xué)子加入！ +3	llss0711 2026-03-28	6/300	2026-03-29 10:26 by llss0711
[考研] 330分求調(diào)劑 +5	qzenlc 2026-03-29	5/250	2026-03-29 07:37 by 無際的草原
[考研] 11408軟件工程求調(diào)劑 +3	Qiu學(xué)ing 2026-03-28	3/150	2026-03-28 21:50 by zhq0425
[考研] 085602 化工專碩 338分求調(diào)劑 +12	路癡小琪 2026-03-27	12/600	2026-03-28 15:41 by L135790
[考研] 一志愿廈門大學(xué)化學(xué)學(xué)碩307求調(diào)劑 +10	y7czhao 2026-03-26	10/500	2026-03-28 14:23 by 唐沐兒
[考研] 299求調(diào)劑 +7	嗯嗯嗯嗯2 2026-03-27	7/350	2026-03-28 13:09 by 唐沐兒
[考研] 292求調(diào)劑 +14	鵝鵝鵝額額額額?/a> 2026-03-25	15/750	2026-03-28 08:45 by WYUMater
[考研] 275求調(diào)劑 +10	jjjjjjjjjjl 2026-03-27	10/500	2026-03-27 23:47 by barnett0632
[考研] 266分求材料化工冶金礦業(yè)等專業(yè)的調(diào)劑 +4	哇呼哼呼哼 2026-03-26	4/200	2026-03-27 17:02 by zhyzzh
[考博] 26申博 +3	加油沖啊！ 2026-03-26	3/150	2026-03-27 15:38 by cls512
[考研] 085600材料與化工調(diào)劑 +10	A-哆啦Z夢 2026-03-23	16/800	2026-03-27 15:13 by caszguilin
[考研] 考研化學(xué)308分求調(diào)劑 +10	你好明天你好 2026-03-23	12/600	2026-03-27 14:43 by shangxh
[考研] 求調(diào)劑 +3	劉柯@ 2026-03-24	4/200	2026-03-27 11:28 by shangxh
[考研] 調(diào)劑求收留 +7	果然有我 2026-03-26	7/350	2026-03-27 00:26 by wxiongid
[考研] 334分一志愿武理-080500 材料求調(diào)劑 +4	李李不服輸 2026-03-25	4/200	2026-03-25 21:26 by 星空星月
[考研] 生物技術(shù)與工程 +3	1294608413 2026-03-25	4/200	2026-03-25 18:02 by 1294608413
[考研] 一志愿武理085500機(jī)械專業(yè)總分300求調(diào)劑 +3	an10101 2026-03-24	7/350	2026-03-25 00:00 by 山鬼0-
[考研] 一志愿山東大學(xué)藥學(xué)學(xué)碩求調(diào)劑 +3	開開心心沒煩惱 2026-03-23	4/200	2026-03-24 00:06 by 開開心心沒煩惱