mabongdem
16-09-2009, 16:33
Đề Bài : Tỉnh Thừa Thiên Huế tổ chức Festival 2010 và muốn giới thiệu với du khách hệ thống khách sạn của Tỉnh được tổ chức bằng cấu trúc dữ liệu như sau:
Type Str50 = String[50];
DSPhong = ^Pt1;
Pt1 = Record
TenPhong: Str50;
LoaiPhong: Str50;
DonGia: Real;
Tro: DSPhong;
End;
KhachSan = ^Pt2;
Pt2 = Record
TenKS: Str50;
DiaChi: Str50;
Hang: Byte;
TroPhong: DSPhong;
Trai, Phai: KhachSan;
End;
{2 con trỏ trai,phai là con trỏ của cây nhị phân tìm kiếm)
Hãy thực hiện các yêu cầu sau:
1. Tìm một khách sạn cho trước, nếu không thấy kết quả gán bằng NIL.
Function TimKhachSan(BTenKS: Str50; R: KhachSan): KhachSan;
2. Tính tổng số phòng của một khách sạn cho trước, nếu tên khách sạn không có thì kết quả bằng không.
Function TongSoPhong(BTenKS: Str50; R: KhachSan): Integer;
3. Liệt kê danh sách các khách sạn theo thứ tự Alphabet, thông tin hiển thị bao gồm: Tên khách sạn, địa chỉ, hạng, tổng số phòng của từng khách sạn.
Procedure LietKeKhachSan(R: KhachSan);
4. Liệt kê danh sách phòng của một khách sạn cho trước, thông tin hiển thị bao gồm:
-Dòng 1: <tên khách sạn, hạng, địa chỉ>
-N dòng tiếp theo: (giả sử khách sạn đó có n phòng): <tên phòng, loại phòng, đơn giá>
Procedure LietKePhong(BTenKS: Str50; R: KhachSan);
5. Cập nhật thông tin của một phòng của một khách sạn cho trước, thông tin cập nhật bao gồm: loại phòng, đơn giá. Nếu tên phòng hoặc tên khách sạn không có thì in thông báo “Không cập nhật được”
Procedure CapNhatPhong(BTenKS, BTenPhong: Str50; BLoaiPhong: Str50; BDonGia: Real; Var R: KhachSan);
Bài này khó quá cháu có tìm hiểu phần DSLK với Cây rồi nhưng ko giải được bài này,mong mấy bác giúp đỡ cháu,sắp thi rùi,hix hix
Thân.
Type Str50 = String[50];
DSPhong = ^Pt1;
Pt1 = Record
TenPhong: Str50;
LoaiPhong: Str50;
DonGia: Real;
Tro: DSPhong;
End;
KhachSan = ^Pt2;
Pt2 = Record
TenKS: Str50;
DiaChi: Str50;
Hang: Byte;
TroPhong: DSPhong;
Trai, Phai: KhachSan;
End;
{2 con trỏ trai,phai là con trỏ của cây nhị phân tìm kiếm)
Hãy thực hiện các yêu cầu sau:
1. Tìm một khách sạn cho trước, nếu không thấy kết quả gán bằng NIL.
Function TimKhachSan(BTenKS: Str50; R: KhachSan): KhachSan;
2. Tính tổng số phòng của một khách sạn cho trước, nếu tên khách sạn không có thì kết quả bằng không.
Function TongSoPhong(BTenKS: Str50; R: KhachSan): Integer;
3. Liệt kê danh sách các khách sạn theo thứ tự Alphabet, thông tin hiển thị bao gồm: Tên khách sạn, địa chỉ, hạng, tổng số phòng của từng khách sạn.
Procedure LietKeKhachSan(R: KhachSan);
4. Liệt kê danh sách phòng của một khách sạn cho trước, thông tin hiển thị bao gồm:
-Dòng 1: <tên khách sạn, hạng, địa chỉ>
-N dòng tiếp theo: (giả sử khách sạn đó có n phòng): <tên phòng, loại phòng, đơn giá>
Procedure LietKePhong(BTenKS: Str50; R: KhachSan);
5. Cập nhật thông tin của một phòng của một khách sạn cho trước, thông tin cập nhật bao gồm: loại phòng, đơn giá. Nếu tên phòng hoặc tên khách sạn không có thì in thông báo “Không cập nhật được”
Procedure CapNhatPhong(BTenKS, BTenPhong: Str50; BLoaiPhong: Str50; BDonGia: Real; Var R: KhachSan);
Bài này khó quá cháu có tìm hiểu phần DSLK với Cây rồi nhưng ko giải được bài này,mong mấy bác giúp đỡ cháu,sắp thi rùi,hix hix
Thân.