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

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

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

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

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

kathy2008

木蟲 (正式寫手)

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

[交流] 【求助】請(qǐng)改正錯(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),

請(qǐng)問高手如何改正。謝謝。

回復(fù)此樓

» 猜你喜歡

346求調(diào)劑一志愿070303有機(jī)化學(xué) 已經(jīng)有9人回復(fù)
085601 329分調(diào)劑已經(jīng)有5人回復(fù)
289求調(diào)劑已經(jīng)有4人回復(fù)
367求調(diào)劑已經(jīng)有6人回復(fù)
271求調(diào)劑已經(jīng)有4人回復(fù)
085600，321分求調(diào)劑已經(jīng)有3人回復(fù)
化學(xué)工程085602 305分求調(diào)劑已經(jīng)有35人回復(fù)
282求調(diào)劑不挑專業(yè) 求收留已經(jīng)有5人回復(fù)
求調(diào)劑已經(jīng)有7人回復(fù)
334分一志愿武理-080500 材料求調(diào)劑已經(jīng)有6人回復(fù)

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

請(qǐng)教 fortran 運(yùn)行錯(cuò)誤的原因已經(jīng)有13人回復(fù)
高手請(qǐng)進(jìn) 幫忙糾正中譯英錯(cuò)誤感謝已經(jīng)有2人回復(fù)
小弟想投單晶學(xué)報(bào)E，但有三個(gè)G類錯(cuò)誤，請(qǐng)各位大蝦們不吝賜教。。。已經(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的回帖

xgfbj

鐵桿木蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 8172.9
紅花: 1
帖子: 523
在線: 218小時(shí)
蟲號(hào): 205185
注冊(cè): 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的回帖

查看全部 11 個(gè)回答

yfx2003

金蟲 (著名寫手)

應(yīng)助: 7 (幼兒園)
金幣: 1434.3
紅花: 4
帖子: 1777
在線: 62.9小時(shí)
蟲號(hào): 1037371
注冊(cè): 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í)
蟲號(hào): 558502
注冊(cè): 2008-05-15
性別: GG
專業(yè): 材料物理化學(xué)

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

"座號(hào)","中文","英文","數(shù)學(xué)","自然","社會(huì)","總分"
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í)
蟲號(hào): 96063
注冊(cè): 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的回帖

查看全部 11 個(gè)回答

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

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

[考研] 085601 329分調(diào)劑 +5	yzsa12 2026-03-31	5/250	2026-03-31 14:48 by 記事本2026
[考研] 理學(xué)07化學(xué) 303求調(diào)劑 +7	睿08 2026-03-27	7/350	2026-03-31 12:46 by 無際的草原
[考研] 機(jī)械學(xué)碩總分317求調(diào)劑�。。�！ +5	Acaciad 2026-03-25	5/250	2026-03-31 12:04 by 北風(fēng)之神.
[考研] 一志愿浙江大學(xué)工科動(dòng)力工程370,數(shù)一121,專業(yè)課135，現(xiàn)在能去哪里 +3	080700調(diào)劑 2026-03-30	4/200	2026-03-31 12:00 by KLMY666
[考研] 求調(diào)劑 +4	圖鑒212 2026-03-30	4/200	2026-03-31 10:20 by cal0306
[考研] 總分322求生物學(xué)/生化與分子/生物信息學(xué)相關(guān)調(diào)劑 +6	星沉uu 2026-03-26	7/350	2026-03-31 10:19 by GdShizy
[考研] 南京大學(xué)化學(xué)調(diào)劑 +11	景隨風(fēng) 2026-03-29	16/800	2026-03-31 10:14 by herarysara
[考研] 085600，專業(yè)課化工原理，320分求調(diào)劑 +6	大饞小子 2026-03-29	6/300	2026-03-31 10:03 by 氯化亞硝酰
[考研] 083000學(xué)碩274求調(diào)劑 +12	Li李魚 2026-03-26	12/600	2026-03-31 10:01 by cal0306
[考研] 308求調(diào)劑 +8	墨墨漠 2026-03-25	8/400	2026-03-31 09:15 by dgd2013
[考研] 一志愿中海洋320化學(xué)工程與技術(shù)學(xué)碩求調(diào)劑 +8	披星河 2026-03-30	8/400	2026-03-31 08:53 by lbsjt
[考研] 085701環(huán)境工程求調(diào)劑 +11	多久上課 2026-03-27	12/600	2026-03-30 21:21 by 研究僧導(dǎo)導(dǎo)
[考研] 各位老師好，我的一志愿為北京科技大學(xué)085601材料專碩 +10	Koxui 2026-03-28	10/500	2026-03-30 19:33 by 源_2020
[考研] 328求調(diào)劑 +8	嗯滴的基本都 2026-03-27	8/400	2026-03-30 17:20 by Wang200018
[考研] 317分一志愿南理工材料工程本科湖工大求調(diào)劑 +12	芋泥小鈴鐺 2026-03-28	12/600	2026-03-30 17:06 by wangjy2002
[考研] 化學(xué)0703 調(diào)劑 306分一志愿211 +8	26要上岸 2026-03-28	8/400	2026-03-30 16:39 by herarysara
[考研] 085602 化工專碩 338分求調(diào)劑 +12	路癡小琪 2026-03-27	12/600	2026-03-28 15:41 by L135790
[考研] 265求調(diào)劑 +8	小木蟲085600 2026-03-27	8/400	2026-03-27 22:16 by 無際的草原
[考研] 070300化學(xué)求調(diào)劑 +4	起個(gè)名咋這么難 2026-03-27	4/200	2026-03-27 21:39 by 83503孫老師
[考研] 348求調(diào)劑 +4	小懶蟲不懶了 2026-03-27	5/250	2026-03-27 12:47 by 果果媽咪

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

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

kathy2008

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

» 猜你喜歡

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

xgfbj

yfx2003

kathy2008

yalefield

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

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

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