第一篇：結(jié)構(gòu)力學(xué)上機(jī)實(shí)驗(yàn)報(bào)告
結(jié)構(gòu)力學(xué)上機(jī)實(shí)驗(yàn)報(bào)告
姓名：
學(xué)號(hào)：
指導(dǎo)老師：肖方紅
1．作圖示剛架的FN、FS、M圖，已知各桿截面均為矩形，柱截面寬0.4m,高0.4m, 大跨梁截面寬0.35m,高0.85m，小跨梁截面寬0.35m,高0.6m，各桿E=3.0×104 MPa。10分
解：統(tǒng)一單位力kN長度m那么彈性模量單位為kPa。輸入輸出數(shù)據(jù)如下：
表一：1題輸入數(shù)據(jù)
******************************************************************************************* *
* *
sjl1 gangjia 2011.10.24
* *
* ******************************************************************************************* 3e7 1
0.16
213e-5 2
0.16
213e-5
0.2975
1791e-5 2
0.2975
1791e-5 4
0.21
63e-4 5
0.21
63e-4 5
0.16
213e-5 8
0.16
213e-5 7
0.16
213e-5 9
0.16
213e-5 0
0 0
4.5 0
7.7 7.2 7.7 7.2 4.5 11 7.7 11 4.5 7.2 0 11 0 11 0 12 0 13 0 81 0 82 0 83 0 91 0 92 0 93 0 1 6
0
0
-15 7 1
4.5 2
3.2 3-196 7.2 4-36
7.2 5-196 3.8 6-36
3.8 6-26
2.7 表二：1題輸出數(shù)據(jù)
Input Data File Name: sjl1.txt
Output File Name: sjl1out.txt
************************************************************************ *
*
sjl1 gangjia 2011.10.24
*
************************************************************************
The Input Data
The General Information
E
NM
NJ
NS
NLC
3.000E+07
The Information of Members
member start end
A
I
1.600000E-01
2.130000E-03
1.600000E-01
2.130000E-03
2.975000E-01
2.975000E-01
2.100000E-01
2.100000E-01
1.600000E-01
1.600000E-01
1.600000E-01
1.600000E-01
The Joint Coordinates
joint
X
Y
.000000
.000000
.000000
4.500000
.000000
7.700000
7.200000
7.700000
7.200000
4.500000
11.000000
7.700000
11.000000
4.500000
7.200000
.000000
11.000000
.000000
The Information of Supports
IS
VS
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
1.791000E-02 1.791000E-02 6.300000E-03 6.300000E-03 2.130000E-03 2.130000E-03 2.130000E-03 2.130000E-03
Loading Case 1
The Loadings at Joints
NLJ=
joint
FX
FY
FM
.000000
.000000
-15.000000
The Loadings at Members
NLM=
member type
VF
DST
20.000000
4.500000
20.000000
3.200000
-196.000000
7.200000
-36.000000
7.200000
-196.000000
3.800000
-36.000000
3.800000
-26.000000
2.700000
The Results of Calculation
The Joint Displacements
joint
u
v
rotation
3.076236E-21
-7.549352E-20
-7.540649E-21
4.636735E-03
-7.077518E-04
-4.359988E-04
5.924037E-03
-1.134844E-03
-3.169292E-03
5.813626E-03
-2.178472E-03
1.834783E-03
4.684030E-03
-1.341626E-03
1.384534E-05
5.788766E-03
-5.408925E-04
4.571795E-04
4.685631E-03
-3.674969E-04
-4.586878E-05
3.967738E-21
-1.431068E-19
-8.907750E-21
3.856026E-21
-3.919967E-20
-8.741193E-21
The Terminal Forces
member
FN
FS start
754.935194
75.762357
end
-754.935194
14.237643 start
640.638123
-72.863183
end
-640.638123
136.863184
M 109.156485
29.274120-96.133965-239.428195 start
136.863184
640.638123
239.428195
end
-136.863184
770.561840
-707.153563 start
-58.625540
114.297071
66.859844
end
58.625540
144.902922
-177.040903 start
41.214402
484.706696
517.753681
end
-41.214402
260.093294
-90.988284 start
-2.654138
30.896570
-29.106007
end
2.654138
131.903429
-142.007053 start
1255.268536
95.648782
116.676201
end
-1255.268536
start
1431.068027
end
-1431.068027
start
260.093294
end
-260.093294 start
391.996723
end
-391.996723
鋼架的FN圖：
-95.648782
39.677380
-39.677380
41.214402
-41.214402
38.560264
-38.560264
189.399883 89.077501 89.470709 55.897795 75.988284 87.411931 86.109258
鋼架的Fs圖：
鋼架的M圖：
2、計(jì)算圖示桁架各桿的軸力。已知A=2400mm2,E=2.0×105 MPa。5分
解：該桁架各節(jié)點(diǎn)均為鉸結(jié)，為了使計(jì)算簡便，所有節(jié)點(diǎn)均作為鋼節(jié)點(diǎn)，為此在輸入數(shù)據(jù)時(shí)，各桿截面二次矩取很小的值，本題取1×10-20 本題有30根桿件，17個(gè)節(jié)點(diǎn)，輸入輸出數(shù)據(jù)如下：
表三：2題輸入數(shù)據(jù)
************************************************************************** *
*
*
sjl2 gangjia 2011.10.24
* *
* ************************************************************************** 2e8 1
24e-4
1e-20 1
24e-4
1e-20 2
24e-4
1e-20 2
24e-4
1e-20 3
24e-4
1e-20 5
24e-4
1e-20 3
24e-4
1e-20 3
24e-4
1e-20 4
24e-4
1e-20 6
24e-4
1e-20 4
24e-4
1e-20 6
24e-4
1e-20 7
24e-4
1e-20 7
24e-4
1e-20 8
24e-4
1e-20 9
24e-4
1e-20 9
24e-4
1e-20 11
24e-4
1e-20 10
24e-4
1e-20 11
24e-4
1e-20 11
24e-4
1e-20 12
24e-4
1e-20 15
24e-4
1e-20 15
24e-4
1e-20 12
24e-4
1e-20 14
24e-4
1e-20 13
24e-4
1e-20 14
24e-4
1e-20 15
24e-4
1e-20 17
24e-4
1e-20 0
0 0 1
3.75 2
3.5 1
4.75 2
5.5 3
5.25 3
6.25 4 5
6.25 5
5.25 6
5.5 7
4.75 7
3.75 6
3.5 8 8
0 11
0 12
0 171
0 172
0 9 2 0-12 0 5 0-5
0 6 0-5
0 8 0-5
0 9 0-5
0 10 0-5
0 12 0-5
0 13 0-5
0 16 0-12 0 0
表四：2題輸出數(shù)據(jù)
Input Data File Name: sjl2.txt
Output File Name: sjl2out.txt
************************************************************************ *
*
sjl2 gangjia 2011.10.24
*
************************************************************************
The Input Data
The General Information
E
NM
NJ
NS
NLC
2.000E+08
The Information of Members
member start end
A
I
2.400000E-03
1.000000E-20
2.400000E-03
1.000000E-20
2.400000E-03
1.000000E-20
2.400000E-03
1.000000E-20
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
2.400000E-03
The Joint Coordinates
joint
X
Y
.000000
.000000
.000000
4.000000
1.000000
3.750000
2.000000
3.500000
1.000000
4.750000
1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20 1.000000E-20
1.000000E-20
1.000000E-20
1.000000E-20
1.000000E-20
1.000000E-20
2.000000
5.500000
3.000000
5.250000
3.000000
6.250000
4.000000
7.000000
5.000000
6.250000
5.000000
5.250000
6.000000
5.500000
7.000000
4.750000
7.000000
3.750000
6.000000
3.500000
8.000000
4.000000
8.000000
.000000
The Information of Supports
IS
VS
.000000
.000000
171
.000000
172
.000000
Loading Case 1
The Loadings at Joints
NLJ=
joint
FX
FY
.000000
-12.000000
.000000
-5.000000
.000000
-5.000000
.000000
-5.000000
.000000
-5.000000
.000000
-5.000000
.000000
-5.000000
.000000
-5.000000
.000000
-12.000000
The Loadings at Members
NLM=
0
The Results of Calculation
FM.000000.000000.000000.000000.000000.000000.000000.000000.000000
The Joint Displacements
joint
u
v
rotation
-5.714286E-22
-2.950000E-21
-5.676597E-05
1.682251E-04
-1.625000E-04
-1.236830E-04
1.583218E-04
-2.705629E-04
-3.193943E-05
1.833298E-04
-2.161644E-04
2.716851E-05
2.265671E-04
-2.809795E-04
-4.829399E-05
1.786882E-04
-2.578310E-04
2.349593E-05
1.918510E-04
-2.279964E-04
1.336072E-04
-2.384131E-04
1.857079E-18
-1.009603E-04
-1.336072E-04
-2.384131E-04
-1.918510E-04
-2.279964E-04
-1.786882E-04
-2.578310E-04
-2.265671E-04
-2.809795E-04
-1.583218E-04
-2.705629E-04
-1.833298E-04
-2.161644E-04
-1.682251E-04
-1.625000E-04
5.714286E-22
-2.950000E-21
The Terminal Forces
member
FN
start
19.500000
end
-19.500000 start
11.517511
end
-11.517511 start
9.375000
end
-9.375000 start
-7.730823
end
7.730823 start
-5.153882
end
5.153882 start
9.375000
end
-9.375000 start
5.000000
end
-5.000000 start
-5.038911
end
5.038911 start
10.000000
end
-10.000000
start
-2.576941
end
2.576941
4.762947E-05 1.067515E-04 9.122545E-19-1.067515E-04-4.762947E-05-2.349593E-05 4.829399E-05 3.193943E-05-2.716851E-05 1.236830E-04 5.676597E-05
FS
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
.000000
M.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000.000000
start
1.439689
.000000
.000000
end
-1.439689
.000000
.000000
start
9.375000
.000000
.000000
end
-9.375000
.000000
.000000
start
5.000000
.000000
.000000
end
-5.000000
.000000
.000000
start
-3.599222
.000000
.000000
end
3.599222
.000000
.000000
start
9.375000
.000000
.000000
end
-9.375000
.000000
.000000
start
9.375000
.000000
.000000
end 10
-9.375000
.000000
.000000
start
-3.599222
.000000
.000000
end 11
3.599222
.000000
.000000
start 11
5.000000
.000000
.000000
end 10
-5.000000
.000000
.000000
start 10
9.375000
.000000
.000000
end 12
-9.375000
.000000
.000000
start 11
-2.576941
.000000
.000000
end 12
2.576941
.000000
.000000
start 11
1.439689
.000000
.000000
end 15
-1.439689
.000000
.000000
start 12
9.375000
.000000
.000000
end 13
-9.375000
.000000
.000000
start 15
10.000000
.000000
.000000
end 12
-10.000000
.000000
.000000
start 15
-5.153882
.000000
.000000
end 14
5.153882
.000000
.000000
start 12
-5.038911
.000000
.000000
end 14
5.038911
.000000
.000000
start 14
5.000000
.000000
.000000
end 13
-5.000000
.000000
.000000
start 13
9.375000
.000000
.000000
end 16
-9.375000
.000000
.000000
start 14
-7.730823
.000000
.000000
end 16
7.730823
.000000
.000000
start 15
11.517511
.000000
.000000
end 17
-11.517511
.000000
.000000
start 17
19.500000
.000000
.000000
end 16
-19.500000
.000000
.000000
鋼架軸力圖（其中拉力為正，壓力為負(fù)）：
3．作圖示連續(xù)梁的FS、M圖，已知各梁截面面積A=6.5m2,慣性矩I=5.50m4，各桿E=3.45×104MPa。5分
解：該結(jié)構(gòu)為一超靜定結(jié)構(gòu)，輸入輸出數(shù)據(jù)如下：
表五：3題輸入數(shù)據(jù)
************************* *
* * sjl3 lxl 2011.10.24
* *
* ************************* 345e5 1
6.5
5.5 2
6.5
5.5 3
6.5
5.5 0
0 40
0 80
0 120
0 11
0 12
0 22
0 32
0 42
0 0 4 1
-10.5
2
-10.5
2
-320
3
-10.5
表六：3題輸出數(shù)據(jù)
Input Data File Name: sjl3.txt
Output File Name: sjl3out.txt
*************************
*
*
* sjl3 lxl 2011.10.24
*
*
*
*************************
The Input Data
The General Information
E
NM
NJ
NS
NLC
3.450E+07
The Information of Members
member start end
A
I
6.500000E+00
5.500000E+00
6.500000E+00
5.500000E+00
6.500000E+00
5.500000E+00
The Joint Coordinates
joint
X
Y
.000000
.000000
40.000000
.000000
80.000000
.000000
120.000000
.000000
The Information of Supports
IS
VS
.000000
.000000
.000000
.000000
.000000
Loading Case 1
The Loadings at Joints
NLJ=
0
The Loadings at Members
NLM=
member type
VF
DST
-10.500000
40.000000
-10.500000
40.000000
-320.000000
20.000000
-10.500000
40.000000
The Results of Calculation
The Joint Displacements
joint
u
v
rotation
0.000000E+00
6.600000E-21
-5.480896E-05
0.000000E+00
-6.600000E-21
-3.794466E-05
0.000000E+00
-6.600000E-21
3.794466E-05
0.000000E+00
6.600000E-21
5.480896E-05
The Terminal Forces
member
FN
FS
M start
.000000
144.000000
.000000
end
.000000
276.000000
-2640.000000 start
.000000
370.000000
2640.000000
end
.000000
370.000000
-2640.000000 start
.000000
276.000000
2640.000000
end
.000000
144.000000
.000000
連續(xù)梁的Fs圖：
連續(xù)梁的M圖：
第二篇：結(jié)構(gòu)力學(xué)上機(jī)心得
結(jié)構(gòu)力學(xué)學(xué)習(xí)心得
結(jié)構(gòu)力學(xué)的學(xué)習(xí)馬上就要結(jié)束了，本學(xué)期學(xué)的主要是漸進(jìn)法、矩陣位移法和平面剛架靜力分析程序設(shè)計(jì)，相比上學(xué)期的畫內(nèi)力圖和計(jì)算這學(xué)期貌似任務(wù)比較輕，需要?jiǎng)邮值牟欢?，但理解上難度較大。上學(xué)期學(xué)的是比較基礎(chǔ)的理論分析，只能計(jì)算大略的值和細(xì)小部分結(jié)構(gòu)，因?yàn)榘磳?shí)際結(jié)構(gòu)計(jì)算的話是手算不能實(shí)現(xiàn)的計(jì)算量太大，這學(xué)期把計(jì)算用編程的方法賦予給計(jì)算機(jī)計(jì)算，大大減少了人的勞動(dòng)量。矩陣位移法，通過單元分析和整體分析把一個(gè)結(jié)構(gòu)化整為零，編程程序簡單而且通用性強(qiáng)，針對(duì)不同的題只需要對(duì)相關(guān)參數(shù)進(jìn)行修改就可計(jì)算。我們的編程是用的VB語言，大一學(xué)的如果不應(yīng)用的話就把知識(shí)忘光了，這次的上機(jī)課給了我們一個(gè)應(yīng)用所學(xué)的機(jī)會(huì)。
我們分成小組做任務(wù)，整體程序比較長，在組長的帶領(lǐng)下我們分塊寫程序，然后整合到一起。這是個(gè)需要每個(gè)人都嚴(yán)謹(jǐn)認(rèn)真負(fù)責(zé)的過程，只有每一段程序都合格，整體程序才能無錯(cuò)通過調(diào)試，在這次任務(wù)當(dāng)中我們組長表現(xiàn)的特別有擔(dān)當(dāng)，雖然有好幾個(gè)同學(xué)的程序都出了錯(cuò)，需要做調(diào)試修改，他都沒有怨言的進(jìn)行了整合，在他的帶領(lǐng)下我們組才能順利完成老師布置的任務(wù)。
整個(gè)結(jié)構(gòu)力學(xué)的學(xué)習(xí)就快要結(jié)束了，我覺得上學(xué)期的知識(shí)非常多，學(xué)的也客觀，通過練習(xí)就能掌握；這學(xué)期的課比較枯燥，特別是在講程序的編寫的時(shí)候，如果條件允許的話我建議以后編程部分的課都到機(jī)房上，在老師講的同時(shí)讓同學(xué)們?cè)陔娔X上實(shí)際操作，這樣我覺得學(xué)習(xí)效果會(huì)比后期讓學(xué)生再抄書上的程序要好。以后在工作中進(jìn)行的計(jì)算都是要使用程序軟件的，如果學(xué)校能夠把以后會(huì)用到或者很通用的工作軟件在課程當(dāng)中教授給學(xué)生的話我想這是非常好的。總結(jié)這一年的學(xué)習(xí)，非常感謝李華老師的辛勤付出和對(duì)我們的悉心照顧，課程有結(jié)束的時(shí)候，師生情誼永遠(yuǎn)存在。
第三篇：結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告1
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
班級(jí) 12土木2班
姓名
學(xué)號(hào)
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
實(shí)驗(yàn)報(bào)告一
實(shí)驗(yàn)名稱
在求解器中輸入平面結(jié)構(gòu)體系
一實(shí)驗(yàn)?zāi)康?/p>
1、了解如何在求解器中輸入結(jié)構(gòu)體系
2、學(xué)習(xí)并掌握計(jì)算模型的交互式輸入方法；
3、建立任意體系的計(jì)算模型并做幾何組成分析；
4、計(jì)算平面靜定結(jié)構(gòu)的內(nèi)力。二 實(shí)驗(yàn)儀器
計(jì)算機(jī)，軟件：結(jié)構(gòu)力學(xué)求解器
三 實(shí)驗(yàn)步驟
圖2-4-3 是剛結(jié)點(diǎn)的連接示例，其中圖2-4-3a 中定義了一個(gè)虛擬剛結(jié)點(diǎn)和桿端的連接碼； 各個(gè)桿端與虛擬剛結(jié)點(diǎn)連接后成為圖2-4-3b 的形式，去除虛擬剛結(jié)點(diǎn)后的效果為圖2-4-3c 所示的剛結(jié)點(diǎn)；求解器中顯示的是最后的圖2-4-3c。圖2-4-4 是組合結(jié)點(diǎn)的連接示例，同理，無需重復(fù)。鉸結(jié)點(diǎn)是最常見的結(jié)點(diǎn)之一，其連接示例在圖2-4-5 中給出。這里，共有四種連接方式，都等效于圖2-4-5e 中的鉸結(jié)點(diǎn)，通常采用圖2-4-5a 所示方式即可。值得一提的是，如果將三個(gè)桿件固定住，圖2-4-5b~d 中的虛擬剛結(jié)點(diǎn)也隨之被固定不動(dòng)，而圖2-4-5a 中的虛擬剛結(jié)點(diǎn)仍然存在一個(gè)轉(zhuǎn)動(dòng)自由度，可以繞結(jié)點(diǎn)自由轉(zhuǎn)動(dòng)。這是一種結(jié)點(diǎn)轉(zhuǎn)動(dòng)機(jī)構(gòu)，在求解器中會(huì)自動(dòng)將其排除不計(jì)①。結(jié)點(diǎn)機(jī)構(gòu)實(shí)際上也潛存于經(jīng)典的結(jié)構(gòu)力學(xué)之中，如將一個(gè)集中力矩加在鉸結(jié)點(diǎn)上，便可以理解為加在了結(jié)點(diǎn)機(jī)構(gòu)上（猶如加在可自由轉(zhuǎn)動(dòng)的銷釘上），是無意義的。
綜上所述，求解器中單元對(duì)話框中的“連接方式”是指各桿端與虛擬剛結(jié)點(diǎn)的連接方式，而不是桿件之間的連接方式。這樣，各桿件通過虛擬剛結(jié)點(diǎn)這一中介再和其他桿件間接地連接。這種處理的好處是可以避免結(jié)點(diǎn)的重復(fù)編碼（如本書中矩陣位移法中所介紹的），同時(shí)可以方便地構(gòu)造各種
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
復(fù)雜的組合結(jié)點(diǎn)。
另外，在定義位移約束時(shí)，結(jié)點(diǎn)處的支座約束也是首先加在虛擬剛結(jié)點(diǎn)上，再通過虛擬剛結(jié)點(diǎn)施加給其他相關(guān)的桿端。
N,1,0,0 解 輸入后的結(jié)構(gòu)如圖2-4-6b所示，N,2,0,1 命令數(shù)據(jù)文檔如下，其中左邊和右
N,3,1,1 邊分別為中、英文關(guān)鍵詞命令數(shù)據(jù)
N,4,1,0 文檔。結(jié)點(diǎn),1,0,0 結(jié)點(diǎn),2,0,1 結(jié)點(diǎn),3,1,1 結(jié)點(diǎn),4,1,0 結(jié)點(diǎn),5,1,2 結(jié)點(diǎn),6,2.5,0 結(jié)點(diǎn),7,2.5,2.5 單元,1,2,1,1,0,1,1,1
N,5,1,2 N,6,2.5,0 N,7,2.5,2.5 E,1,2,1,1,0,1,1,1 E,2,3,1,1,1,1,1,0 E,4,3,1,1,0,1,1,1 E,3,5,1,1,1,1,1,1
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
單元,2,3,1,1,1,1,1,0 單元,4,3,1,1,0,1,1,1 單元,3,5,1,1,1,1,1,1 單元,5,7,1,1,1,1,1,0 單元,6,7,1,1,1,1,1,0 結(jié)點(diǎn)支承,1,4,0,0,0 結(jié)點(diǎn)支承,4,4,0,0,0 結(jié)點(diǎn)支承,6,6,0,0,0,0 END
E,5,7,1,1,1,1,1,0 E,6,7,1,1,1,1,1,0 NSUPT,1,4,0,0,0 NSUPT,4,4,0,0,0 NSUPT,6,6,0,0,0,0 END
(1)結(jié)點(diǎn)定義(2)單元定義
(3)結(jié)點(diǎn)支承定義
四、上機(jī)體會(huì)：通過這么多次上機(jī)操作，已經(jīng)熟練的掌握力學(xué)求解器的使用。能夠運(yùn)用求解器去分析結(jié)構(gòu)的構(gòu)造，為以后的學(xué)習(xí)工作提供便利。
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
實(shí)驗(yàn)報(bào)告二
實(shí)驗(yàn)名稱
用求解器求解靜定結(jié)構(gòu)的內(nèi)力分析
一實(shí)驗(yàn)?zāi)康?/p>
1、了解如何在求解器中輸入結(jié)構(gòu)體系
2、學(xué)習(xí)并掌握計(jì)算模型的交互式輸入方法；
3、建立任意體系的計(jì)算模型并做幾何組成分析；
4、計(jì)算平面靜定結(jié)構(gòu)的內(nèi)力。二 實(shí)驗(yàn)儀器
計(jì)算機(jī)，軟件：結(jié)構(gòu)力學(xué)求解器 三 實(shí)驗(yàn)步驟
例3-11-1 試用求解器求解圖3-11-1a、b中靜定結(jié)構(gòu)的內(nèi)力。解先輸入結(jié)構(gòu)體系，其中圖3-11-1a和b 中結(jié)構(gòu)的差別僅在于結(jié)點(diǎn)5的水平坐標(biāo)不同。輸入的數(shù)據(jù)文檔如下（參見圖3-11-1）：
TITLE,例3-11-1 結(jié)點(diǎn),1,0,0 結(jié)點(diǎn),4,6,0 結(jié)點(diǎn)填充,1,4,2,2,1 C case(a)結(jié)點(diǎn),5,8,0 C case(b)C 結(jié)點(diǎn),5,10,0 結(jié)點(diǎn)生成,1,4,2,4,1,0,-1.5 單元,1,2,1,1,0,1,1,1 單元,2,3,1,1,1,1,1,0 單元,3,4,1,1,0,1,1,1 單元,4,5,1,1,1,1,1,0 單元,2,6,1,1,0,1,1,1 單元,6,7,1,1,1,1,1,0 單元,7,8,1,1,0,1,1,1 單元,8,4,1,1,1,1,1,0 結(jié)點(diǎn)支承,1,1,0,0 結(jié)點(diǎn)支承,5,1,0,0 結(jié)點(diǎn)支承,7,3,0,0,0 單元荷載,1,1,1,1/2,90 單元荷載,4,1,1,1/2,90
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
輸入結(jié)構(gòu)后，繼續(xù)進(jìn)行如下操作：
1)選擇菜單“求解”、“內(nèi)力計(jì)算”，求解器打開“內(nèi)力計(jì)算”對(duì)話框，在“內(nèi)力顯示”組中選“結(jié) 構(gòu)”，然后可在下面表格中看到桿端內(nèi)力值。
2)在“內(nèi)力類型”組中選“彎矩”，可在觀覽器中看到彎矩圖。3)在“內(nèi)力類型”組中選“剪力”，可在觀覽器中看到剪力圖。4)在“內(nèi)力類型”組中選“軸力”，可在觀覽器中看到軸力圖。
5)可單擊觀覽器中的“加大幅值”或“減小幅值”按鈕調(diào)節(jié)圖形幅值；或者選“設(shè)置菜單”中的“顯示幅度設(shè)置”，然后在對(duì)話框中給定具體的顯示幅度值。
趣的現(xiàn)象，圖 3-11-1a、b 所示結(jié)構(gòu)的最右邊一跨梁相當(dāng)于一個(gè)簡支梁的受力狀態(tài)，整個(gè)內(nèi)力圖除
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
以上求得圖3-11-1a、b 所示結(jié)構(gòu)的內(nèi)力圖分別如圖3-11-2 和3-11-3 所示從內(nèi)力圖可以看出一個(gè)有了最右邊一跨梁有所區(qū)別以外，其余部分的內(nèi)力圖都是一樣的。讀者可以驗(yàn)證，無論最右邊一跨梁的長度如何，只要集中荷載作用在跨中，其余部分的內(nèi)力就不會(huì)改變。
四、上機(jī)體會(huì)：通過這么多次上機(jī)操作，已經(jīng)熟練的掌握力學(xué)求解器的使用。能夠運(yùn)用求解器去分析結(jié)構(gòu)的構(gòu)造，用求解器求解一般靜定結(jié)構(gòu)，為以后的學(xué)習(xí)工作提供便利。
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
實(shí)驗(yàn)報(bào)告三
實(shí)驗(yàn)名稱
用求解器計(jì)算結(jié)構(gòu)的影響線
一實(shí)驗(yàn)?zāi)康?/p>
1、了解如何在求解器中輸入結(jié)構(gòu)體系
2、學(xué)習(xí)并掌握用求解器計(jì)算結(jié)構(gòu)的影響線；
3、建立任意體系的計(jì)算模型并做幾何組成分析；
4、討論靜定結(jié)構(gòu)影響線的求解器計(jì)算方法。二 實(shí)驗(yàn)儀器
計(jì)算機(jī)，軟件：結(jié)構(gòu)力學(xué)求解器 三 實(shí)驗(yàn)步驟
例4-7-1 試求解圖3-11-1a中結(jié)構(gòu)在豎直荷載作用下桿件(2)和(6)中點(diǎn)彎矩、剪力和軸力的影響線。
解先輸入結(jié)構(gòu)體系，輸入的數(shù)據(jù)文檔見圖3-11-1。在該命令文檔中END命令之前，插入一空行，以備插入命令用。下面以桿件(2)中點(diǎn)的彎矩影響線為例，進(jìn)一步說明做法。按上一節(jié)做法打開“影響線求解參數(shù)”對(duì)話框。在單位荷載數(shù)據(jù)欄中，類型選為“力”，方向選“向下”。在截面內(nèi)力框中，單元碼選2，距桿端1選“1/2”L處，內(nèi)力類型選“彎矩”。單擊應(yīng)用、關(guān)閉后，可在命令文檔中見到命令行：“影響線參數(shù),-2,2,1/2,3”。其中關(guān)鍵詞“影響線參數(shù)”后邊的-2代表單位荷載沿y軸方向（豎直的），指向y軸的反方向（即向下）；再后面的2代表第2個(gè)單元；1/2表示截面位置；3代表彎矩。桿件(2)和(6)中點(diǎn)彎矩、剪力和軸力的影響線計(jì)算所需的命令行分別為：
桿件(2): 影響線參數(shù),-2,2,1/2,3 影響線參數(shù),-2,2,1/2,2 影響線參數(shù),-2,2,1/2,1
桿件（6）
影響線參數(shù),-2,6,1/2,3 影響線參數(shù),-2,6,1/2,2 影響線參數(shù),-2,6,1/2,1
后一條命令。
為計(jì)算影響線，依次選菜單：“求解”、“影響線”。在打開的“影響線”對(duì)話框的最上部，可以看到影響線的一些參數(shù)。在“影響線顯示”數(shù)據(jù)欄里，選“結(jié)構(gòu)”后，便可在觀覽器中看到相應(yīng)的影響線的圖形，具體的數(shù)值可以從“單元影響線分析”數(shù)據(jù)框中獲得。各影響線圖形如圖4-7-1和4-7-2所示。求解器最新版本（v2.0.2以上）對(duì)影響線計(jì)算增加了一項(xiàng)很實(shí)用的新功能，即不必退出“影響線”對(duì)話框，即可改變指定桿件上的截面位置和內(nèi)力類型，只需在“選項(xiàng)”欄中按需選
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
擇即可。下面再討論如何使用影響線圖形。影響線圖形中任一桿件中任一點(diǎn)的縱距，表示單位荷載作用在該點(diǎn)時(shí)指定截面處的內(nèi)力值。影響線的縱距值的量取規(guī)則為荷載類型 豎直荷載 水平荷載 單位力矩
整體豎直方向 整體水平方向 桿件垂直方向
正值標(biāo)在上方 正值標(biāo)在左方 正值標(biāo)在局部坐標(biāo)y的正方向
標(biāo)距方向 正負(fù)號(hào)
為了簡單，取量綱一的量1=d。這是一個(gè)間接荷載下的結(jié)構(gòu)影響線問題。用求解器求解時(shí)，可以建立一個(gè)等效的計(jì)算模型，如圖4-7-4a所示。輸入的數(shù)據(jù)命令從略，計(jì)算出來的影響線形狀如圖4-7-3b所示。注意，由于單位荷載作用在上層的水平桿件上，因此應(yīng)取上層桿件的圖形作為影響線
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
圖，而下面的圖形是單位荷載作用在下面梁上時(shí)的影響線。
四、上機(jī)體會(huì)：通過這么多次上機(jī)操作，已經(jīng)熟練的掌握力學(xué)求解器的使用。能夠運(yùn)用求解器去分析結(jié)構(gòu)的構(gòu)造，為以后的學(xué)習(xí)工作提供便利。
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
實(shí)驗(yàn)報(bào)告四
實(shí)驗(yàn)名稱
用求解器進(jìn)行位移計(jì)算
一實(shí)驗(yàn)?zāi)康?/p>
1、了解如何用求解器進(jìn)行位移計(jì)算
2、學(xué)習(xí)并掌握計(jì)算模型的交互式輸入方法；
3、建立任意體系的計(jì)算模型并做幾何組成分析；
4、計(jì)算平面靜定結(jié)構(gòu)的內(nèi)力。二 實(shí)驗(yàn)儀器
計(jì)算機(jī)，軟件：結(jié)構(gòu)力學(xué)求解器
三 實(shí)驗(yàn)步驟
1.輸入材料性質(zhì)
在“編輯器”中依次選擇菜單“命令”、“材料性質(zhì)”便可打開材料性質(zhì)對(duì)話框。選擇相同材料性質(zhì)的單元范圍，再選擇或輸入所需的桿件剛度性質(zhì)（質(zhì)量和極限彎矩可以空缺），然后單擊“應(yīng)用”按鈕將命令寫到命令文檔中去。若還有單元?jiǎng)偠任炊x，可在對(duì)話框中繼續(xù)輸入新的數(shù)據(jù)，再“應(yīng)用”，直至定義完畢，單擊“關(guān)閉”退出。
注意，若前后兩個(gè)命令行中的定義有重復(fù)和沖突時(shí)，則以后面的定義為準(zhǔn)，亦即前面的定義被后面的定義覆蓋和取代。
2.輸入溫度改變
在“編輯器”中依次選擇菜單“命令”、“溫度改變”，可打開溫度改變對(duì)話框。與上面類似，選擇相同溫度改變的單元范圍，再按照提示選擇或輸入所需的各項(xiàng)參數(shù)，然后單擊“應(yīng)用”按鈕將命令寫到命令文檔中去。若還要繼續(xù)定義，可在對(duì)話框中輸入新的數(shù)據(jù)，再“應(yīng)用”，直至定義完畢，單擊“關(guān)閉”退出。
溫度改變須提供截面高度，輸入時(shí)要注意同結(jié)構(gòu)其他的尺寸采用統(tǒng)一單位。
例5-7-1 試用求解器求解例5-4。
解 本例力和尺寸單位統(tǒng)一采用kN和單元,6,7,1,1,0,1,1,0 cm。輸入的數(shù)據(jù)文檔如下（圖5-7-1a）： 單元,7,4,1,1,0,1,1,0 TITLE, 例5-7-1 變量定義,L=1200,P=39 變量定義,Ah1=18*24,Ah2=18*18,Ag=3.8 變量定義,Eh=3000,Eg=20000,EAg=Eg*Ag 變量定義,EAh1=Eh*Ah1,EAh2=Eh*Ah2 結(jié)點(diǎn),1,0,0 結(jié)點(diǎn),2,0.278*L,0 結(jié)點(diǎn),3,0.722*L,0 結(jié)點(diǎn),4,L,0 結(jié)點(diǎn),6,L/2,L/6 結(jié)點(diǎn)填充,1,6,1,5,1 結(jié)點(diǎn)填充,6,4,1,7,1 單元,1,2,1,1,0,1,1,0
單元,2,5,1,1,0,1,1,0 單元,3,7,1,1,0,1,1,0 單元,2,6,1,1,0,1,1,0 單元,3,6,1,1,0,1,1,0 結(jié)點(diǎn)支承,1,1,0,0 結(jié)點(diǎn)支承,4,2,0,0,0 結(jié)點(diǎn)荷載,5,1,39,-90 結(jié)點(diǎn)荷載,6,1,39,-90 結(jié)點(diǎn)荷載,7,1,39,-90
單元材料性質(zhì),1,2,3*EAg,1,0,0,-1 單元材料性質(zhì),3,3,2*EAg,1,0,0,-1 單元材料性質(zhì),10,11,EAg,1,0,0,-1 單元材料性質(zhì),4,7,EAh1,1,0,0,-1
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
單元,3,4,1,1,0,1,1,0 單元,2,3,1,1,0,1,1,0 單元,1,5,1,1,0,1,1,0 單元,5,6,1,1,0,1,1,0
單元材料性質(zhì),8,9,EAh2,1,0,0,-1 END 由于本例與抗彎剛度無關(guān)，因此輸入了單位值。輸入結(jié)構(gòu)體系后，繼續(xù)如下操作：
1)選擇菜單“求解”、“位移計(jì)算”，打開“位移計(jì)算”對(duì)話框；
2)“位移顯示”欄中選“結(jié)構(gòu)”，在觀覽器中便可以看到變形圖，如圖5-7-2b所示； 3)在下面的“桿端位移值”的表格里，找到單元5的第2個(gè)端點(diǎn)的豎向位移； 4)再在“乘以系數(shù)”下拉框中選0.01，則可以看出結(jié)點(diǎn)6的豎向位移為：
例5-7-2 試用求解器求解例5-13。
解本例尺寸單位統(tǒng)一采用cm。輸入的數(shù)據(jù)文檔如下（圖5-7-2）： TITLE,例5-7-2 變量定義,A=600,H=60 結(jié)點(diǎn),1,0,0 結(jié)點(diǎn),2,0,A 結(jié)點(diǎn),3,A,A 單元,1,2,1,1,1,1,1,1
圖5-7-2
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
單元,2,3,1,1,1,1,1,1 結(jié)點(diǎn)支承,1,6,0,0,0,0 單元材料性質(zhì),1,2,1,1,0,0,-1 單元溫度改變,1,2,5,-10,0.00001,H END
4上機(jī)體會(huì)：通過這么多次上機(jī)操作，已經(jīng)熟練的掌握力學(xué)求解器的使用。能夠運(yùn)用求解器進(jìn)行位移計(jì)算，為以后的學(xué)習(xí)工作提供便利。
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
實(shí)驗(yàn)報(bào)告五
實(shí)驗(yàn)名稱
用求解器進(jìn)行力法計(jì)算
一實(shí)驗(yàn)?zāi)康?/p>
1、了解如何用求解器進(jìn)行力法計(jì)算
2、學(xué)習(xí)并掌握計(jì)算模型的交互式輸入方法；
3、建立任意體系的計(jì)算模型并做幾何組成分析；
4、計(jì)算平面靜定結(jié)構(gòu)的內(nèi)力。二 實(shí)驗(yàn)儀器
計(jì)算機(jī)，軟件：結(jié)構(gòu)力學(xué)求解器
三 實(shí)驗(yàn)步驟
求解器可以求解一般的平面超靜定結(jié)構(gòu)的位移和內(nèi)力。超靜定結(jié)構(gòu)的計(jì)算通常與結(jié)構(gòu)各桿件的剛度有關(guān)。由于前面已經(jīng)介紹了如何輸入各桿件的材料性質(zhì)，因此超靜定結(jié)構(gòu)的求解無需引入新的輸入命令；在位移計(jì)算的基礎(chǔ)上，直接選擇“求解”菜單中的“內(nèi)力計(jì)算”、“位移計(jì)算”或“位移內(nèi)力”等菜單即可。對(duì)此這里不再贅述。
為了加深和加強(qiáng)力法的概念，本節(jié)討論如何用求解器進(jìn)行力法的輔助計(jì)算。傳統(tǒng)上，將力法的基本體系取為靜定結(jié)構(gòu)，主要是因?yàn)殪o定結(jié)構(gòu)容易擺弄和計(jì)算，手算時(shí)尤其如此。其實(shí)，只要計(jì)算上無困難（譬如用求解器求解），超靜定結(jié)構(gòu)同樣可以被用作基本體系。
例6-11-1 試用求解器求解圖6-11-1中的二次超靜定剛架。取結(jié)點(diǎn)3水平支桿反力為基本未知力，各桿長相等，剛度參數(shù)如下
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告
解力單位為kN，尺寸單位為m。依題意，取基本體系如圖6-11-2a所示，此基本體系是超靜定的。圖6-11-2b和圖6-11-2c分別給出了僅荷載作用和僅單位未知力作用下的計(jì)算簡圖。圖6-11-2a~6-11-2c的命令文檔列在了計(jì)算簡圖的下面，其中后兩個(gè)文檔只在個(gè)別給出的命令處有區(qū)別。
TITLE,例6-11-1 結(jié)點(diǎn),1,0,0 結(jié)點(diǎn),2,0,4 結(jié)點(diǎn),3,4,4 單元,1,2,1,1,1,1,1,1 單元,2,3,1,1,1,1,1,1 結(jié)點(diǎn)支承,1,6,0,0,0,0 結(jié)點(diǎn)支承,3,2,0,0 結(jié)點(diǎn)荷載,2,1,20,0 單元荷載,2,3,24,0,1,90 單元材料性質(zhì),1,1,5.2E6,1.25E5,0,0,-1 單元材料性質(zhì),2,2,4.5E6,1.2E5,0,0,-1 END
.........結(jié)點(diǎn)支承,3,1,0,0...............結(jié)點(diǎn)荷載,3,-1,1,180 C......結(jié)
點(diǎn)
荷
載,2,3,24,0,1,90
首先計(jì)算荷載作用下結(jié)點(diǎn) 3 水平位移PΔ。輸入圖 6-11-2b 下面的命令文檔后，在“求解” 菜單下選“位移計(jì)算”打開位移計(jì)算對(duì)話框。在“位移顯示”欄中選“結(jié)構(gòu)”，可看到對(duì)話框下端表格中給出了桿端位移。找到單元2 的第2 個(gè)桿端的位移的值。為了獲得較多的有效數(shù)字，在“乘以系數(shù)”下拉框中選0.000 001，由此得到。u m 26 924 22 0.0= PΔ
類似地計(jì)算單位未知力作用下結(jié)點(diǎn)3 的水平位移，得。由以上結(jié)果有11 δ m 651076 000.011= δ kN285 29.907 11 ? ? δ Δ P X。最后將荷載和求出的基本未知力共同作用在基本結(jié)構(gòu) 上，用求解器求解，得變形圖、彎矩圖如圖6-11-3 所示?？梢钥闯?/p>
結(jié)構(gòu)力學(xué)實(shí)驗(yàn)報(bào)告，結(jié)點(diǎn)3 確實(shí)沒有水平位移，說明位移協(xié)調(diào)條件已得到滿足。
四、上機(jī)體會(huì)：通過這么多次上機(jī)操作，已經(jīng)熟練的掌握力學(xué)求解器的使用。能夠運(yùn)用用求解器進(jìn)行力法計(jì)算，為以后的學(xué)習(xí)工作提供便利。
第四篇：上機(jī)實(shí)驗(yàn)報(bào)告格式
請(qǐng)各位同學(xué)按照下列格式寫：否則按照0分記
上機(jī)實(shí)驗(yàn)報(bào)告格式
Matlab學(xué)習(xí)第？次上機(jī)實(shí)驗(yàn)報(bào)告（第？次）
姓名：？？？班級(jí):???上機(jī)時(shí)間：？？？？？？
1.上機(jī)內(nèi)容
2.建模及算法分析
3.程序
4.小結(jié)
5.參考文獻(xiàn)
將文檔發(fā)到我的郵箱里面
learn_matlab@163.com
第五篇：上機(jī)實(shí)驗(yàn)報(bào)告
一． 題目1． 建立一個(gè)學(xué)生檔案，內(nèi)容包括學(xué)號(hào)，姓名，年齡，性別，數(shù)學(xué)，物理和英語3門功課成績。要求實(shí)現(xiàn)以下功能：1)數(shù)據(jù)輸入；2)查詢某個(gè)學(xué)生的成績；3)按平均排列輸出；4)統(tǒng)計(jì)某門課各分?jǐn)?shù)段人數(shù)；5)刪除某個(gè)學(xué)生記錄；2． 編程實(shí)現(xiàn)對(duì)二位數(shù)進(jìn)行加，減，乘運(yùn)算，每運(yùn)行一次程序做10道題，完成后給出成績（每題10分）。二． 設(shè)計(jì)思想和模塊劃分1.1．先定義所需要的條件，例如，姓名，學(xué)號(hào)，性別，三門功課的成績，平均分等。2．輸入姓名，學(xué)號(hào)，性別，年齡，三門功課的成績后，就輸出相應(yīng)的姓名，學(xué)號(hào)，性別，年齡，三門功課的成績。3．打印表頭；4．在求出平均分，并打印出平均分。5．在查找學(xué)生，并打印出學(xué)生的相關(guān)資料；并按照平均分的高低排列；6．在統(tǒng)計(jì)學(xué)生各科成績是否》=60分，如果是就是通過，否就是沒通過，最后打印出最后的結(jié)果。7．刪除學(xué)生，選中刪除的學(xué)生，如果確定要，那么該學(xué)生的一切記錄就變?yōu)?；2．1．隨機(jī)調(diào)用函數(shù)，產(chǎn)生兩個(gè)其值為10到99的隨機(jī)整數(shù)分別放在c,d中用作運(yùn)算時(shí)的運(yùn)算數(shù)。2．隨機(jī)調(diào)用函數(shù)，產(chǎn)生一個(gè)值為1到3 的隨機(jī)整數(shù)放入b中，用來選擇不同的運(yùn)算。根據(jù)b的值選擇不同的運(yùn)算。當(dāng)b=1時(shí)，去進(jìn)行c+d的運(yùn)算練習(xí)；當(dāng)b＝2 時(shí)，去進(jìn)行c-d的運(yùn)算練習(xí)；當(dāng)b=3時(shí)，去進(jìn)行c×d的運(yùn)算練習(xí)。每完成一個(gè)算題就給出是否正確的信息。3．根據(jù)答案正確與否統(tǒng)計(jì)。正確時(shí)，顯示’right’;錯(cuò)誤時(shí)，顯示’wrong’。4．步驟1.2.3.4.重復(fù)10次。5．輸出學(xué)生成績。三． 運(yùn)行結(jié)果1.Input the 1 student :num:03name:wfage:18sex:fmath:98phy:75eng:65Input the 2 student :num:06name:scage:17sex:fmath:78phy:45eng:65Input the 3 student :num:09name:ytage:17sex:mmath:69phy:75eng:501.readin 2.finds 3.del 4.tj 5.exit1-----------------------------table----num name age sex math phy eng ave------3 wf 18 f 98.0 75.0 65.0 79.3------9 yt 17 m 69.0 75.0 50.0 64.7-------6 sc 17 f 78.0 45.0 65.0 62.7-------1.readin 2.finds 3.del 4.tj 5.exit2Into number:3---num name age sex math phy eng ave---3 wf 18 f 98.0 75.0 65.0 79.3----1.readin 2.finds 3.del 4.tj 5.exit3Into number:6---num name age sex math phy eng ave---6 sc 17 f 78.0 45.0 65.0 62.6---true? Y/Ny1----------------table------------------num name age sex math phy eng ave----3 wf 18 f 98.0 75.0 65.0 79.3-----9 yt 17 m 69.0 75.0 50.0 64.7-----0 0 0 f 0.0 0.0 0.0 0.0-----1.readin 2.finds 3.del 4.tj 5.exit4 1.input the math 2.input the phy 3.input the eng 1math: pass num is :3 no pass num is :02.32+82=114right!97*15=1455right!99-58=41right!76-66=10right!58+13=71right!37+49=86right!99+52=151right!49*69=5462wrong!73-38=31wrong!86+34=120right!mark is 80四． 主要錯(cuò)誤改正方法1.在本題的編寫過程中常出現(xiàn)begin 和end 不配對(duì)，只要始它們的個(gè)數(shù)相同就可以了，就可以了。在程序中常出現(xiàn)的’unknown identifier’沒有定義的錯(cuò)誤，只要在程序前加上定義，就可以了。還有就是type mismatch’的類型不匹配，只要根據(jù)前后內(nèi)容，重新定義，就可以了。2.在本題編寫中，題目要求是兩個(gè)兩位數(shù)運(yùn)算，如果寫成c:=random(100)在運(yùn)行過程中，就會(huì)出現(xiàn)一位數(shù)運(yùn)算，只要把它寫成c:=random(90)+10，就可以了。五． 實(shí)習(xí)小結(jié)1．第一題的程序編寫比較復(fù)雜，需要較多的定義，因而在后面的程序部分，就常出現(xiàn)標(biāo)識(shí)符重復(fù)，而導(dǎo)致的類型不匹配。還有就是每個(gè)部分編好后，上下不能連接，而無法調(diào)用。2．第二題較第一題簡單，和書上的例題類似，所以，比較簡單，但從中也出現(xiàn)一些不問題。以上兩大題中出現(xiàn)的問題，要在同學(xué)的幫助下，才能完成?？偟膩碚f兩題程序比較困難六． 程序清單1.program twins;const m=3;n=3;typestudent=recordnum:integer;name:string[3];age:integer;sex:char;s:array[1..n] of real;math,eng,phy:real;ave:real;end;sarr=array[1..m] of student;ta=array [1..m] of student;f=string[6];varstu:sarr;ct:ta;k,d:integer;procedure readin(var stu:sarr);const wrong='0<=data<=100 ,again!';var j,i:integer;a:student;beginwriteln;writeln('Input ',m,' num name sex math phy eng',' of student.');for j:=1 to m dobeginwriteln;writeln('Input the ',j,' student :');with a dobeginwrite('num:');readln(num);write('name:');readln(name);write('age:');readln(age);write('sex:');readln(sex);while(sex<>'m')and(sex<>'f')dobeginwrite('sex:');readln(sex)end;for i:=1 to n do begincase i of1:begin write('math:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('math:');readln(s[i]);end;end;2:begin write('phy:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('phy:');readln(s[i]);end;end;3:begin write('eng:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('eng:');readln(s[i]);end;end;end;end;stu[j]:=a;end;writeln;end;end;procedure ave(var stu:sarr);var j,i:integer;k:real;beginfor j:=1 to m dobegink:=0;with stu[j] dobeginfor i:=1 to n do k:=k+s[i];ave:=k/nend;end;end;procedure px(var stu:sarr);var tm:ta;j,i,p:integer;beginfor j:=1 to m dobeginp:=j;for i:=j+1 to m doif stu[i].ave>stu[p].ave then p:=i;tm[1]:=stu[p];stu[p]:=stu[j];stu[j]:=tm[1];end;end;procedure head(ct:ta);var i:integer;beginwrite(' ');for i:=1 to 72 do write('-');writeln;write('',' num':4,' ','name':9,' ','age':8,' ','sex':5,' ','math':6,' ','phy':9,' ','eng':8,' ');writeln('ave':6,' ');write(' ');for i:=1 to 72 do write('-');writeln;with ct[1] dobeginwrite('',num:7,' ',name:8,' ',age:8,' ',sex:5,' ');for i:=1 to n do write(s[i]:7,' ');write(ave:10,' ');writeln;end;write(' ');for i:=1 to 72 do write('-');writeln;end;procedure find(var stu:sarr);var n,i:integer;u:boolean;beginu:=true;while u dobeginwrite('Into number:');readln(n);for i:=1 to m dobeginif stu[i].num=n then beginct[1]:=stu[i];u:=false;d:=iend;end;end;end;procedure del(var stu:sarr);var i:integer;b:char;beginhead(ct);write('true? Y/N');readln(b);if b='y' then begin write('1');with stu[d] dobeginnum:=0;name:='0';age:=0;sex:='f';for i:=1 to n do s[i]:=0;ave:=0end;endelseend;procedure tj(var stu:sarr);var w1,q1,q2,num,j:integer;h1,h2,h3:boolean;beginh1:=false;h2:=false;h3:=false;q1:=0;q2:=0;writeln(' ':30,'1.input the math 2.input the phy 3.input the eng ');readln(w1);case w1 of1:h1:=true;2:h2:=true;3:h3:=true;end;if h1 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].math>=60 thenq1:=q1+1elseq2:=q2+1;writeln('math:');end;if h2 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].phy>=60 thenq1:=q1+1elseq2:=q2+1;writeln('phy:');end;if h3 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].eng>=60 thenq1:=q1+1elseq2:=q2+1;writeln('eng:');end;end;end;end;writeln(' ':5,'pass num is :',q1);writeln(' ':5,'no pass num is :',q2);end;procedure head1(var stu:sarr);var j,i:integer;beginwriteln('----------------table--------------':60);writeln;write(' ');for i:=1 to 72 do write('-');writeln;write('',' num':4,' ','name':9,' ','age':8,' ','sex':5,' ','math':6,' ','phy':9,' ','eng':8,' ');writeln('ave':6,' ');write(' ');for i:=1 to 72 do write('-');writeln;for j:=1 to m do beginwith stu[j] dobeginwrite('',num:7,' ',name:8,' ',age:8,' ',sex:5,' ');for i:=1 to n do write(s[i]:7:1,' ');write(ave:10:1,' ');writeln;end;write(' ');for i:=1 to 72 do write('-');writeln;end;end;beginreadin(stu);ave(stu);k:=0;while k<>5 dobeginwriteln('1.readin 2.finds 3.del 4.tj 5.exit');read(k);readln;while(k<>1)and(k<>2)and(k<>3)and(k<>4)and(k<>5)dobeginwriteln(' mistake,please again');read(k)end;case k of1: begin px(stu);head1(stu)end;2: begin find(stu);head(ct)end;3: begin find(stu);del(stu);px(stu);head1(stu)end;4: begin tj(stu);end;5: writeln('exit!');end;end;end..2.program shadow;var a,b,c,d,e:integer;right:boolean;procedure s1;beginwriteln('right!');right:=trueend;procedure s2;beginwriteln('wrong!');right:=falseend;procedure s3(x,y:integer);var h:integer;beginwrite(x,'+',y,'=');readln(h);if h=x+y then s1else s2 end;procedure s4(x,y:integer);var h,w:integer;beginif x
點(diǎn)擊咨詢 