计算机在土木工程中的应用课设,计算机在土木工程中的应用编程试题

悠悠 2022-10-12 04:07 191阅读 0赞

![a7f4a3f590493a1e451dd952a488fd7c.gif][] 计算机在土木工程中的应用编程试题

(10页)

![e8038648c0043117f7c606e74ccc50cc.png][]

本资源提供全文预览，点击全文预览即可全文预览,如果喜欢文档就下载吧，查找使用更方便哦！

9.9 积分

第一题(1)程序：10 READN20 1= 130 SUM = 040 PRO = 150 FOR I = 1 TO N60 PRO = PRO \* I70 SUM = SUM + PRO80 NEXT I90 PRINT nDATA:M; I - 1100 PRINT HSUM=H; SUM110 DATA 10120 END输出结果：++卄+++++THE YITIYIANSWER+++卄++卄+++++++++N= 20+++++++++SUM 2.561327E+18第一题(2)程序：10READA, B, N, M20 AX = .000130S = 040 Y1 二A\*N + E50 YN 二 A \* M + B60 JP = (M ?N)/AX70 FOR J = 1 TO JP80 YJ=A \*( N + J\*AX) + B82 YJ1 二 A\*(N + (J+ 1)\*AX) + B85 SA=(YJ + YJl)\*AX/287 S = SA + S90 NEXT J100 PRINT110 PRINT "FUNCTION"; A; ”X+”； B; HWHEN X=(”; N; M; ”) ”;112 PRINT115 PRINT n S="; S;120 DATA 2,0,0,3130 END输岀结果：++++++++THE YITIER ANSWER卄++++++FUNCTION 4X+7 ,WHEN X=( 2,8 )++卄++\*S= 162.0023第二题程序：10 READN20 SUM = 025 PRINT nDU- FEN MIAO"30 FOR I = 1 TO N40 READ A(I, 1), A(I, 2), A(I, 3)45 PRINT A(I, 1), A(l, 2), A(I, 3)50 A(I, 1) = (A(I, 1) + A(I, 2) / 60 + A(I, 3)/ 3600)60 SUM = SUM + A(I, 1)70 NEXT I80 FL=(N-2)\* 18090 FB = SUM ? FL91 F = (60 / 3600) \* SQR(N)100 IF ABS(FB) < ABS(F) THEN 110110BI = -FB/N120 FOR I = 1 TO N130AX(I) = A(I, 1) + BI140 NEXT IAX(I)H150 PRINT "I -D- BI 160 FOR I = 1 TO N170 PRINT I, A(I, 1), BI, AX(I)175 NEXT I180 END185 DATA 5190 DATA 87,51,12200 DATA 150,20,12210 DATA 125,06,42220 DATA 87,29,12230 DATA 89,13,42输出结果：++卄+THE ERTIANSWRE+++++DU============FEN============MIAO90 41 18120 30 12152 34 4192 34 17I============D============BI============AX(I)1 90.68833 ?24.08527 66.603062 120.5033 ?24.08527 96.41806152.578 ?24.08527 128.492892.57139 ?24.0852768.48611第三题程序：10 DIM FCI(6)20 FCI(l) = 7.2: FCI(2) = 9.6: FCI⑶二 11.9: FCI(4) = 14.3: FCI(5) = 16.7: FCI(6)=19.630 SUM = FCI(l) + FCI(2) + FCI(3) + FCI ⑷ + FCI(5) + FCI(6)40 FCM = SUM / 650 PRINT nFCM="; FCM60 A= (FCI( 1)? FCM)八 2 + (FCI(2)? FCM) A2 + (FCI(3)? FCM) A2 + (FCI(4)?FCM)人 2 + (FCI(5) - FCM)人 2 + (FCI(6) - FCM) A 270 QC = SQR(A/5)80 PRINT nQC=n; QC90 READ N100 NUM = 0110 FOR I = 1 TON120 IF5< ABS(FCI(I)? 2 \* QC) THEN 140130 NUM = NUM + 1140 NEXT I150 PRINT nNUM=H; NUM160 END170 DATA 6输岀结果：============the santi answer==================JG=======J= 37.5W= 37.5Y=0FAILURE IS 12 27.537.5 0FAILURE IS 24 7.537.5 0笫四题程序：100 READ Q, M, N, J, B105 DATA 40,1.5,0.025,0.0003,10.10110D = .5:B2 = 0:E = .05120B1 =B2130H = Bl135 GOSUB 350140 Fl =F150 B2 = B1 +D160 GOSUB 350170 F2 = F180 IF F > 0 THEN 120200H = .5\*(Bl + B2)210 GOSUB 350220 IFF>0THEN 260230 F2 = F240 B2 = H250 GOTO 300260 Fl =F270 Bl =H300 IFABS(B2 ? B1)![4d91c43bfc72ca913299809b07b4968f.gif][]  天天文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。

[a7f4a3f590493a1e451dd952a488fd7c.gif]: /images/20221005/a36105027e2245b29149ec6975804699.png
[e8038648c0043117f7c606e74ccc50cc.png]: /images/20221005/1e09925ba8f54397b54efe741b053c81.png
[4d91c43bfc72ca913299809b07b4968f.gif]: /images/20221005/51b3fda15b384e479abbc616fd2e8648.png