jisuanji(DOC可编).docVIP

《计算机在土木工程中的应用》 大作业 学 院: 工学院 班 级： 11级土木工程（1）班 姓 名： 马 进 学 号： 20117010123 时 间： 2013年冬 《计算机在土木工程中的应用》课程考查题 一、数学相关编程 1、编写求解1!+2!+………+n!的程序，并运行程序，输出结果。 2、结合习题2.6，编写一个辛普森法积分程序，并运行程序，输出结果。 二、测量学相关编程： 在角度平差计算中，由于测量产生的误差为：，如果时，各内角修正值为：,实测角度进过修正后为：，试编关于角度平差计算程序，要求输出实测角编号I及角度，修正值，修正后角度。并以所学测量书上相关例题运行程序，并输出结果。 三、混凝土相关编程： 设检查混凝土强度测得n个强度值，已知统计公式： 平均值 均方差 若规定某强度小于()为不合格，试设计一程序，当输入后，可求出、及打印出不合格的个数。 四、水力学相关编程： 明渠渠道断面计算课本计算程序为深度h为已知，求底宽b，试编写已知b，求深度h的计算程序。 平面桁架结构程序应用： 试编制程序计算如图所示桁架的内力，杆件截面均为A，弹性模量E=2.06×105N/mm2，设A=1.0 六、平面刚架结构程序应用： 已知如刚架结构，根据平面刚架内力分析程序写出（图二）的数据语句（data语句），横梁和柱的I=1.5E-2m4，A=0.3 m2，E=1E6kN/m2。 一（1）一、数学相关编程 输出数据：N: 5 SUM= 153 一（2） 10 READ A, B, N, M 20 AX = .0001 30 S = 0 40 Y1 = A * N + B 50 YN = A * M + B 60 JP = (M - N) / AX 70 FOR J = 1 TO JP 80 YJ = A * (N + J * AX) + B 82 YJ1 = A * (N + (J + 1) * AX) + B 85 SA = (YJ + YJ1) * AX / 2 87 S = SA + S 90 NEXT J 100 PRINT 110 PRINT FUNCTION; A; X+; B; ,; WHEN X=(; N; ,; M; ) ; 112 PRINT 115 PRINT S=; S; 120 DATA 2,1,1,3 130 END 输出数据： FUNCTION 2 X+ 1 ,WHEN X=( 1 , 3 ) S= 10.00041 二、测量学相关编程： 10 READ N 20 SUM = 0 25 PRINT DU-------------FEN-----------MIAO 30 FOR I = 1 TO N 40 READ A(I, 1), A(I, 2), A(I, 3) 45 PRINT A(I, 1), A(I, 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 I 80 FL = (N - 2) * 180 90 FB = SUM - FL 91 F = (60 / 3600) * SQR(N) 100 IF ABS(FB) ABS(F) THEN 110 110 BI = -FB / N 120 FOR I = 1 TO N 130 AX(I) = A(I, 1) + BI 140 NEXT I 150 PRINT I-------------------D---------------BI--------------------AX(I) 160 FOR I = 1 TO N 170 PRINT I, A(I, 1), BI, AX(I) 175 NEXT I 185 DATA 5 190 DATA 88,41,12 200 DATA 140,30,12 210 DATA 134,16,42 220 DATA 88,19,12 230 DATA 88,13,42 240 END 输出数据： DU-------------FEN-----------MIAO 88 41 12 140 30 12 134 16 42 88 19 12 88 13 42 I-----------------