 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1578 | 回復(fù): 10 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
kathy2008木蟲 (正式寫手)
|
[交流]
【求助】請(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)問(wèn)高手如何改正。謝謝。 |
回復(fù)此樓» 猜你喜歡
299求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑
已經(jīng)有6人回復(fù)
-
300求調(diào)劑，材料科學(xué)英一數(shù)二
已經(jīng)有8人回復(fù)
-
招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑
已經(jīng)有5人回復(fù)
-
070305高分子化學(xué)與物理 304分求調(diào)劑
已經(jīng)有7人回復(fù)
-
289求調(diào)劑
已經(jīng)有13人回復(fù)
-
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分
已經(jīng)有9人回復(fù)
-
081200-11408-276學(xué)碩求調(diào)劑
已經(jīng)有6人回復(fù)
-
調(diào)劑求院校招收
已經(jīng)有5人回復(fù)
-
調(diào)劑310
已經(jīng)有8人回復(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)化問(wèn)題
已經(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ù)
- 【求助】?jī)蓚�(gè)A類錯(cuò)誤
已經(jīng)有15人回復(fù)
- 【求助】Ph計(jì)校正錯(cuò)誤怎么辦
已經(jīng)有24人回復(fù)
yfx2003
金蟲 (著名寫手)
- 應(yīng)助: 7 (幼兒園)
- 金幣: 1434.3
- 紅花: 4
- 帖子: 1777
- 在線: 62.9小時(shí)
- 蟲號(hào): 1037371
- 注冊(cè): 2010-06-07
- 專業(yè): 計(jì)算機(jī)科學(xué)的基礎(chǔ)理論
3樓2010-08-31 08:45:26
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ā)到這論壇上來(lái)了。我是指運(yùn)行彭國(guó)輪Fortran95 的源程序時(shí)報(bào)錯(cuò)的。文件名為ex0921.for.因?yàn)橛龅胶脦讉�(gè)類似的問(wèn)題，所以請(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 |
4樓2010-08-31 09:53:37
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ì)算模擬
5樓2010-08-31 10:06:47
6樓2010-09-02 19:49:43
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +6 | 崔wj 2026-03-26 | 6/300 |
|
|---|---|---|---|---|
|
[碩博家園] 求調(diào)劑 330分 085600材料與化工 +3 | gqhhh 2026-03-22 | 3/150 |
|
|
|
[考研] 本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑 +7 | AZMK 2026-03-28 | 11/550 |
|
|
|
[考研] 304求調(diào)劑 +6 | 曼殊2266 2026-03-27 | 6/300 |
|
|
|
[考研] 材料277求調(diào)劑 +7 | min3 2026-03-24 | 7/350 |
|
|
|
[考研] 085405 考的11408求各位老師帶走 +3 | Qiu學(xué)ing 2026-03-28 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +4 | 零八# 2026-03-27 | 4/200 |
|
|
|
[考研] 材料與化工085600，總分304，本科有兩篇sci參與，求調(diào)劑 +10 | 幸運(yùn)的醬醬 2026-03-22 | 12/600 |
|
|
|
[考研] 一志愿211，335分，0856，求調(diào)劑院校和導(dǎo)師 +4 | 傾____蕭 2026-03-27 | 5/250 |
|
|
|
[考研] 求調(diào)劑，一志愿 南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩 +4 | @taotao 2026-03-26 | 5/250 |
|
|
|
[考研] 求調(diào)劑 一志愿 本科 北科大 化學(xué) 343 +6 | 13831862839 2026-03-24 | 7/350 |
|
|
|
[考研] 352求調(diào)劑 +4 | 大米飯！ 2026-03-22 | 4/200 |
|
|
|
[考研] 289求調(diào)劑 +17 | 碩星赴 2026-03-23 | 17/850 |
|
|
|
[考研] 334分 一志愿武理 材料求調(diào)劑 +4 | 李李不服輸 2026-03-26 | 4/200 |
|
|
|
[考研] 297求調(diào)劑 +6 | 田洪有 2026-03-26 | 6/300 |
|
|
|
[考研] 一志愿上海交大生物與醫(yī)藥專碩324分，求調(diào)劑 +6 | jiajunX 2026-03-22 | 6/300 |
|
|
|
[考研] 一志愿南航材料專317分求調(diào)劑 +5 | 炸呀炸呀炸薯?xiàng)l 2026-03-23 | 5/250 |
|
|
|
[考研] 277分求調(diào)劑，跨調(diào)材料 +3 | 考研調(diào)劑lxh 2026-03-24 | 3/150 |
|
|
|
[考研]
 085404電子信息284分求調(diào)劑
+4
|
13659058978 2026-03-24 | 4/200 |
|
|
|
[考研] 341求調(diào)劑(一志愿湖南大學(xué)070300) +5 | 番茄頭--- 2026-03-22 | 6/300 |
|