Tài liệu GIAI DE THI

GIẢI ĐỀ THI CÁC NĂM Laptrinh_Hieu 24 Bài giải chỉ mang tính chất tham khảo. Không phải là đáp án của trường. ĐỀ THI NĂM 2004 1. Câu 1 function ti(n:word):word; begin if n<10 then ti := n else ti := (n mod 10) + ti(n div 10); end; 2. Câu 2 Câu b,c xem bài 14 và đáp án phần Danh sách móc nối. {Câu a} procedure load_file; var f: text; so:word; r: tro; begin assign(f,'solieu.dat'); {$I-} reset(f); close(f); {$I+} if IOResult <> 0 then begin writeln('khong tim thay'); readln; halt; end else begin p := nil; reset(f); while not eof(f) do begin read(f,so); new(r); r^.gtri := so; r^.tiep := p; p := r; end; close(f); end; end; 3. Câu 3 {Câu a} function tim(t: tro; n: word): string; begin if t = nil then begin tim:= ''; writeln('Khong tim thay'); end else if t^.soao = n then tim := t^.ten else if (T^.soao < n) then tim := tim(T^.r, n) else tim := tim(T^.l, n); end; {Câu a} function dem(t:tro):word; begin if t = nil then dem := 0 else dem := 1+ dem(t^.l)+ dem (t^.r); end; {Câu a} procedure bosung(var t: tro; n: word; tenct: string); begin if t = nil then begin new(t); t^.soao := n; t^.ten := tenct; t^.l := nil; t^.r := nil; end else if n = t^.soao then writeln(n, ' da co') else if n > t^.soao then bosung(t^.r,n,tenct) else bosung(t^.l,n,tenct); end; 4. Câu 4 Xem bài tập phần Đồ thị GIẢI ĐỀ THI CÁC NĂM Laptrinh_Hieu 25 ĐỀ THI NĂM 2006 1. Câu 1 type tro = ^nut; nut = record gtri: byte; tiep: tro; end; mang = array[1 100] of byte; var n: word; procedure np_mang(n: word); var top,i: word; a: mang; begin top :=0; while n>0 do begin top := top+1; a[top] := n mod 2; n := n div 2; end; for i:= top downto 1 do write(a[i]); writeln; end; procedure np_ds(n: word); var l,p:tro; begin l:= nil; while n>0 do begin new(p); p^.gtri := n mod 2; p^.tiep := l; l := p; n := n div 2; end; p:=l; while p<>nil do begin write(p^.gtri); p := p^.tiep; end; writeln; end; procedure np(n: word); begin if n=1 then write(1) else begin np(n div 2); write(n mod 2); end; end; begin write('n = '); readln(n); np_mang(n); np_ds(n); np(n); readln; end. 2. Câu 2 Câu b dùng thuật toán Dijstra program de2006_2; type mang=array[1 100,1 100] of word; mang1 = array[1 100] of word; var a: mang; n: word; mien: mang1; {Đánh dấu vùng liên thông} procedure try(j,dem: word); var i:integer; begin mien[j] := dem; for i:=1 to n do if (mien[i] = 0) and (a[j,i]>0) then begin try(i,dem); end; end; {Tìm đỉnh đầu tiên của miền thứ m} function tim_dinh(m: word): word; var i: word; begin for i:=1 to n do if mien[i] = m then begin tim_dinh := i; exit; end; tim_dinh := 0; end; procedure bosung; var i,j,dem: word; begin {xac dinh mien lien thong} fillchar(mien,100,0); dem := 0; for i:=1 to n do if mien[i] = 0 then begin dem := dem+1; try(i,dem); end; GIẢI ĐỀ THI CÁC NĂM Laptrinh_Hieu 26 if dem >1 then begin for i:=2 to dem do begin j := tim_dinh(i); a[1,j] := 1; a[j,1] := 1; {M[1] = 1 ??} end; end; end; 3. Câu 3 program de2006_3; type tros = ^sach; sach = record tens: string; namxb:word; tiep: tros; end; trotg = ^tacgia; tacgia = record matg: word; tentg: string; sachtg: tros; trai,phai: trotg; end; var T : trotg; oten: string; osach: tros; procedure xuat; {Hiện kết quả tìm kiếm} var p: tros; begin write(oten); p := osach; while p<> nil do begin write('ten sach: ',p^.tens); writeln('nxb: ',p^.namxb); p := p^.tiep; end; end; procedure liet_ke(t: trotg; ma: word); begin if t = nil then writeln('Khong tim thay'); else if t^.matg = ma then begin oten := t^.tentg; osach := t^.sachtg; xuat; end else if ma > t^.matg then liet_ke(t^.phai, ma) else liet_ke(t^.trai, ma); end; procedure loai_bo(var t: trotg); var r,p: trotg; begin if t <> nil then begin {Thăm nút = loại bỏ gốc} if t^.sachtg = nil then begin p := t; if t^.trai = nil then t := t^.phai else begin {Tìm nút cực phải của T} r := t^.trai; while r^.phai <> nil do r := r^.phai; {Chỉnh lại các mối nối} r^.phai := t^.phai; t := t^.trai; end; dispose(p); end; loai_bo(t^.trai); loai_bo(t^.phai); end; end; procedure bo_sung(var t: trotg; ma: word; tg,ten: string; nam: word); var s: tros; r,p: trotg; ok: boolean; begin if t = nil then begin {Tạo mới 1 tác giả} new(s); s^.tens := ten; s^.namxb := nam; s^.tiep := nil; new(t); t^.matg := ma; t^.tentg := tg; t^.sachtg := s; t^.trai := nil; t^.phai := nil; end else begin {Tìm nút P mà P^.Trai = NIL hoặc P^.Phai = NIL} p := t; ok := true; while (p^.matg <> ma) and ok do begin if ma > p^.matg then GIẢI ĐỀ THI CÁC NĂM Laptrinh_Hieu 27 if p^.phai <> nil then p := p^.phai else ok := false else if p^.trai <> nil then p := p^.trai else ok := false end; {Không tìm thấy P như trên. Nghĩa là OK = True } if p^.matg = ma then begin {Kiểm tra sách đã có chưa?} s:= p^.sachtg; while (s <> nil) or ((s^.tens<>ten ) and (s^.namxb<> nam)) do s := s^.tiep; if s = nil then begin new(s); s^.tens := ten; s^.namxb := nam; s^.tiep := p^.sachtg; p^.sachtg := s; end; end else {Đã tìm thấy P như trên} begin new(s); s^.tens := ten; s^.namxb := nam; s^.tiep := nil; new(r); r^.matg := ma; r^.tentg := tg; r^.sachtg := s; {Lựa chọn đưa vào trái hay phải} if ma > p^.matg then p^.phai := r else p^.trai := r; end; end; end; ĐỀ 2005 CÂU 3A procedure timten(trokhach: khach; n: word); var t:khach; begin if trokhach = nil then writeln('khong tim thay') else if trokhach^.sdt = n then begin write(trokhach^.ten); write(trokhach^.sonha); writeln(trokhach^.duong); end else if n > trokhach^.sdt then timten(trokhach^.phai,n) else timten(trokhach^.trai,n); end; Lời nhắn của tác giả: Đối tượng của tài liệu này là các sinh viên năm thứ 4, chuẩn bị thi tốt nghiệp. Tuy nhiên tất cả các bạn sinh viên năm thứ 2, 3, 4 đều có thể dùng được. Môn Phương pháp lập trình là sự kết hợp của môn Cấu trúc dữ liệu và giải thuật với môn Ngôn ngữ lập trình Pascal (hoặc C/C ++ ) Sinh viên của các khoá từ trước đến nay thường rất ít khi cài đặt các thuật toán trong môn CTDL&GT nên thường bị bối rối khi chuẩn bị thi tốt nghiệp. Vì vậy nên số lượng sinh viên rớt tốt nghiệp vẫn còn cao. Các sinh viên khoá sau lấy đây là một bài học, nhưng đừng làm theo. Vừa học môn CTDL&GT vừa cài đặt các thuật toán đã học là một thói quen tốt, nó sẽ giúp cho bạn học tốt hơn môn học này, đồng thời ôn lại môn NNLT, chuẩn bị tốt cho kỳ thi tốt nghiệp cuối khoá. Khi nào không cài đặt được các thuật toán trong sách CTDL&GT thì có thể bạn sẽ cần tham khảo tài liệu này. Lưu ý: Tài liệu này chưa được tổ chức nào kiểm duyệt và bảo trợ. Huế, tháng 5 năm 2008. Nguyễn Viết Hiếu . := tim(T^.l, n); end; {Câu a} function dem(t:tro):word; begin if t = nil then dem := 0 else dem := 1+ dem(t^.l)+ dem (t^.r); end; {Câu a} procedure bosung(var. var i,j,dem: word; begin {xac dinh mien lien thong} fillchar(mien,100,0); dem := 0; for i:=1 to n do if mien[i] = 0 then begin dem := dem+1; try(i,dem);