Chương 18:
THUËT
TO¸N
CH¦¥NG
TR×NH
BẮT ĐẦU
NHẬP DỮ LIỆU
XỬ LÝ SỐ LIỆU
TÍNH NỘI LỰC KHUNG
TỔ HỢP NỘI LỰC
XUẤT KẾT QUẢ
KẾT THÚC
IV.1. Ch-¬ng tr×nh con: Dån t¶i ph©n bè
CTC
DON_TAI_PHAN_BO(
)
Dm (i,j)
Sàn (i,j,1)
Sàn (i,j,2)
S
Tng: n
S
Nh
p: m
i = 1
i = i + 1
RETURN
5
1
–
+
–
+
+
–
2
i <= n
j = 1
j <= m
Sàn (i,j,1).l1 < Sàn (i,j,1).l2
D
m (i,j).TT=D
n_T
i_Tam_Giác( Sàn (i,j,1).TT, Sàn (i,j,1).l1, Sàn
(i,j,1).l2 )
D
m (i,j).HT=D
n_T
i_Tam_Giác( Sàn (i,j,1).HT, Sàn (i,j,1).l1, Sàn
(i,j,1).l2 )
D
m (i,j).TT=D
n_T
i_Hình_Tha
ng( Sàn (i,j,1).TT, Sàn (i,j,1).l1, Sàn
(i,j,1).l2 )
D
m (i,j).HT=D
n_T
i_Hình_Thang( Sàn (i,j,1).HT, Sàn (i,j,1).l1, Sàn
(i,j,1).l2 )
2
1
Sàn (i,j,2).l1 < Sàn (i,j,2).l2
D
m (i,j).TT=D
n_T
i_Tam_Giác( Sàn (i,j,1).TT, Sàn (i,j,1).l1, Sàn
(i,j,1).l
2 )
D
m (i,j).HT=D
n_T
i_Tam_Giác( Sàn (i,j,1).HT, Sàn (i,j,1).l1, Sàn
(i,j,1).l2 )
4
3
+
–
3
D
m (i,j).TT=D
n_T
i_Hình_Thang( Sàn (i,j,1).TT, Sàn (i,j,1).l1, Sàn
(i,j,1).l2 )
D
m (i,j).HT=D
n_T
i_Hình_Thang( Sàn (i,j,1).HT, Sàn (i,j,1).l1, Sàn
(i
,j,1).l2 )
4
j = j + 1
5
IV.2. Ch-¬ng tr×nh con: Dån t¶i tËp trung
CTC
DON_TAI_TAP_TRUNG()
Dm (i,j)
Sàn (i,j,1)
Sàn (i,j,2)
S
Tng: n
S
Nh
p: m
i = 1
i = i + 1
K
T THÚC
5
1
2
i <= n
j = 1
j <= m
Sàn (i,j,1).l1 < Sàn (i,j,1).l2
D
m (i,j).TT=D
n_
T
i_Tam_Giác( Sàn (i,j,1).TT, Sàn (i,j,1).l1, Sàn
(i,j,1).l2 )
D
m (i,j).HT=D
n_T
i_Tam_Giác( Sàn (i,j,1).HT, Sàn (i,j,1).l1, Sàn
(i,j,1).l2 )
4
3
1
k = 1
k <= D
m_Ph
(i,j,2).Count
k = k + 1
j
=
j
+ 1
4
3
5
D
m (i,j).TTTT(k)=D
m_Ph
(i,j,k,2
).TT * 1/2
D
m (i,j).HTTT(k)=D
m_Ph
(i,j,k,2).HT * 1/2
D
m (i,j).TDTT(k)=D
m_Ph
(i,j,k,2).i
m_D
u.X
–
+
IV.3. Ch-¬ng tr×nh con: Dån t¶i h×nh thang
CTC
DON_TAI_HINH_THANG
Ti phân b: q
Kích thc ô sàn: l1, l2
T
i phân b lên dm: qtd
qd = 0
qd = q*l1/2
Beta = 0
Beta = l1/2
qtd = (1
-
2*Beta^2 + Beta^3) * qd
RETURN
IV.4. Ch-¬ng tr×nh con: Dån t¶i tam gi¸c
qdt = 5*qd/8 + qtd
RETURN
CTC
DON_TAI_TAM_GIAC
Ti phân b: q
Kích thc ô sàn: l1, l2
T
i phân b lên dm: qtd
qd = 0
qd = q*l1/2
IV.5. Ch-¬ng tr×nh con: X¸c ®Þnh t-êng
–
Dam_phu[i,j,k].Loai_tuong = 1
Dam_phu[i,j,k].Loai
_tuong = 2
CTC
Gan_tuong(Dam_phu[i,j,k],2)
k < 4
j
<
m
_so_nhip
i
<
n_so_tang
CTC
Xac_dinh_tuong()
Dam_phu[k,m,n]
m_co_nhip
n_so_tang
i = 1
j = 1
k = 1
CTC
Gan_tuong(Dam_phu[i,j,k],1)
RETURN
k = k +
j = j + 1
i = i + 1
–
+
+
+
+
+
–
–
–
IV.6. Ch-¬ng tr×nh con: G¸n t-êng
CTC
Gan_tuong(Dam as Kieu_dam_phu, Loai_tuong as
KT_tang(k), Tuong()
Tai_tuong
Loai_tuong =
1
Tai_tuong =
KT_tang(k)*Tuong[1].Tai_phan_bo
Dam.Tinh_tai = Dam.Tinh_tai + Tai_tuong
Loai_tuong =
2
Tai_tuong =
KT_tang(k)*Tuong[2].Ta
i_phan_bo
Dam.Tinh_tai = Dam.Tinh_tai + Tai_tuong
RETUR
N
–
–
+
+
IV.7. Ch-¬ng tr×nh con: G¸n dÇm phô
–
–
–
–
CTC
Gan_tuong(Dam_phu[i,j,k],1)
k = k +
j = j + 1
i = i + 1
Dam_phu[i,j,k].Loai_tuong = 1
Dam_phu[i,j,k].Loai_tuong = 2
CTC
Gan_tuong(Dam_phu[i,j,k],2)
k < 4
j
<m_so_nhip
i <
CTC
Gan_dam_phu(x As Single, Tang As Integer,
Nhip As Integer, Tren As Boolean)
Dam_phu[k,m,n]
m_co_nhip
n_so_tang
i = 1
j = 1
k = 1
RETURN
+
+
+
+
+
–
IV.8. Ch-¬ng tr×nh con: G¸n t-êng chÝnh
CTC
Gan_tuong_chinh(Dam as Kieu_dam, Loai_tuong as
KT_tang(k), Tuong()
Tai_tuong
Loai_tuong =
1
Tai_tuong =
KT_tang(k)*Tuong[1].Tai_phan_bo
Dam.Tinh_tai = Dam.Tinh_tai + Tai_tuong
Loai_tuong =
2
Tai_tuong =
KT_tang
(k)
*Tuong[2].Tai_phan_bo
Dam.Tinh_tai = Dam.Tinh_tai + Tai_tuong
RETUR
N
–
+
–
+
IV.9. Ch-¬ng tr×nh con: X¸c ®Þnh t-êng chÝnh
+
+
CTC
Xac_dinh_tuong_chinh()
–
CTC
Gan_tuong
_chinh(Dam_chinh
[i,j
]
,1)
Dam_chinh[i,j].Loai_tuong = 2
CTC
Gan_tuong
_chinh
(Dam_
chinh
[i,j],2)
–
–
–
+
j
<
m
_so_nhip
i
<
n_so_tang
RETURN
j = j + 1
i = i + 1
+
Dam_chinh[i,j].Loai_tuong = 1
Dam_
chinh
[n
,m
]
m_so_nhip
n_so_tang
i = 1
j = 1
IV.10. Ch-¬ng tr×nh con: T¹o File OUT
j = j + 1
1
j = 1
CTC
gi_file (Mat_cat
[j])
j
<
S
o_
mat_ca
CTC gi_file (Vat_lieu)
Ten_tai = “TINHTAI”
CTC
gi_file (Ten_tai)
Ten_tai =
“HOATTAI1”
CTC
gi_file (Ten_tai)
Ten_tai = “HOATTAI2”
2
+
–
2
Ten_tai = “GIOTRAI”
CTC
gi_file (Ten_tai)
Ten_tai = “GIOPHAI”
CTC
gi_file (Ten_tai)
RETURN