欧美老妇人XXXX-天天做天天爱天天爽综合网-97SE亚洲国产综合在线-国产乱子伦精品无码专区

當前位置: 首頁 > 結構工程師 > 結構工程師答疑精選 > 結構工程師基礎科目(一)答疑精選3

結構工程師基礎科目(一)答疑精選3

更新時間:2009-10-19 15:27:29 來源:|0 瀏覽0收藏0

結構工程師報名、考試、查分時間 免費短信提醒

地區

獲取驗證 立即預約

請填寫圖片驗證碼后獲取短信驗證碼

看不清楚,換張圖片

免費獲取短信驗證碼

  問題內容

  對 下列程序段

  PARAMETER(N=3)

  INTEGER A(N,N)

  READ*,A

  DO 10J=1, N

  20 LS=LS+A(I,J)

  LS=LS/N

  DO 30 I=1,N

  30 A(I,J) =A(I,J) -LS

  10 CONTINUE

  PRING*,A

  END

  若輸入2,4,6,8,10,12,14,16,18

  則程序運行后A(3,2)為?

  用fortran90程序編譯出結果為:14.這道題是否超剛?教材答案是2

  老師回復用fortran90程序編譯出結果為:14.對于程序段,如果同學不會,可以下載fortran進行編譯得出結果。

  老師回復同學如果答案是2,那么你的題目沒有寫完整。

  原題中的

  LS=0

  DO 20 I=1,N

  你沒有打進去。

  原題為:

  PARAMETER (N=3)

  INTEGER A(N,N)

  READ *,A

  DO 10 J=1,N

  LS=0

  DO 20 I=1,N

  20 LS=LS+A(I,J)

  LS=LS/N

  DO 30 I=1,N

  30 A(I,J)=A(I,J)-LS

  10 CONTINUE

  PRINT *,A(3,2)

  END

  答案為2.

  A (3,2)

  DO 10 J=1,N (J=2)

  LS=0

  DO 20 I=1,N

  20 LS=LS+A(I,J) (LS=A(1,2)+A(2,2)+A(3,2)=8+10+12=30)

  LS=LS/N (LS=30/3=10)

  DO 30 I=1,N

  30 A(I,J)=A(I,J)-LS (A(3,2)=12-10=2)

  10 CONTINUE

  PRINT *,A(3,2)

  END

?二級結構工程師

更多信息請訪問結構工程師頻道    結構工程師論壇

分享到: 編輯:環球網校

資料下載 精選課程 老師直播 真題練習

結構工程師資格查詢

結構工程師歷年真題下載 更多

結構工程師每日一練 打卡日歷

0
累計打卡
0
打卡人數
去打卡

預計用時3分鐘

結構工程師各地入口
環球網校移動課堂APP 直播、聽課。職達未來!

安卓版

下載

iPhone版

下載

返回頂部