BÀI TẬP TIN HỌC Tin học & Nhà trường Tập III 151 – 200
TRẦN SĨ TÙNG –«— BÀI TẬP TIN HỌC Tin học & Nhà trường Tập III 151 – 200 2013 Tin học & Nhà trường Phần 1: ĐỀ BÀI Bài 151/2003 – Người nông dân táo Một người nơng dân đến gặp đức vua nói: ″Xin đức vua ban cho táo vườn Thượng uyển ngài″ Nhà vua đồng ý Người nông dân đến vườn thấy muốn vào vườn phải qua cổng gác cổng có người lính canh Người nơng dân tiến đến người lính canh thứ nói: – ″Đức vua cho lấy táo vườn″ – ″Được, anh hái đi, phải đưa cho nửa số táo anh hái thêm nữa″, người lính canh trả lời Hai người lính canh nói với người nông dân Hỏi người nông dân phải hái táo để khỏi vườn đưa cho người lính canh số táo họ yêu cầu, lại quả? Bài 152/2003 – Chia kẹo Có N gói kẹo, gói thứ i có A[i] kẹo Yêu cầu: Hãy tìm cách chia gói kẹo thành phần cho độ chênh lệch tổng số kẹo hai phần 0) and (HB[i] + HR[i] = n) then begin chon:=i; mau:='B'; HB[i]:=0; break; end else if (CW[i] > 0) and (CW[i] + CW[i] = n) then begin chon:=–i; mau:='W'; CW[i]:=0; break; end else if (CB[i] > 0) and (CB[i] + CR[i] = n) then begin chon:=–i; mau:='B'; CB[i]:=0; break; end end; if chon then Xuli(chon,mau); until chon = 0; end; {*––––––––––––––––––––––––––––––*} procedure Output; var i:integer; begin {Dien not cac hang, cac cot con` trong'} for i:=1 to n begin if H[i] = then if SW < n then begin GhiKq('W',i,'L'); inc(SW); end else if SB < n then begin GhiKq('B',i,'L'); inc(SB); end; if C[i] = then if SW < n then begin GhiKq('W',i,'C'); inc(SW); end else if SB < n then begin GhiKq('B',i,'C'); inc(SB); end; end; {kiem tra xem co' xep dan duoc bang giay khong} assign(f,fo); rewrite(f); if (SW = n) and (SB=n) then begin 125 126 Tin học & Nhà trường for i:=d downto Writeln(f,KQ[i].X,' ',KQ[i].K,' ',KQ[i].Y); end else writeln('Khong phu duoc'); close(f); end; {*––––––––––––––––––––––––––––––*} BEGIN ReadFile; Process; Output; END Giải 200/2004 – Cờ domino Tư tưởng thuật toán: Đây toán Quay lui – Đệ quy thuộc loại “Bề mặt làm việc” thuật toán bảng hay lưới nút nhiệm vụ ta “gắn” đối tượng vào cho thích hợp Nhiều năm “lưới” dạng thông dụng cho Đệ quy kỳ thi Tin học, “bề mặt làm việc” dừng mức chưa đến mức độ khó Chúng ta hy vọng sớm có tốn với điểm nút khơng gian hay chiều! Quay lại với tốn, thấy khơng có điểm đặc biệt hay nhạy cảm chương trình bạn viết, hầu hết bạn làm Có thể nói Domino kỳ dễ, khơng có điểm “sát thủ” kỳ trước (như “Cờ vây” chẳng hạn) Cũng tiếc cho bạn làm chưa ĐRKN nêu thuật toán toán vài kỹ xảo nhỏ viết chương trình, khơng có nhiều điều để nhận xét thêm tốn này! Tại vị trí bàn cờ chưa đặt quân, ta lấy quân cờ quân chưa đặt có trùng số với bàn, “thử để” vào Q trình “thử” cài đặt Đệ quy – Quay lui việc chọn vị trí bàn cờ, lấy quân, đặt quân thực thông qua mảng đánh dấu Các quân cờ quy ước số sẵn, chẳng hạn quân cờ có số 2–4 quân cờ 16 Tốt hết “quy ước” lại chúng chương trình, có bạn khai báo hằng, có bạn dùng vịng lặp tạo qn cờ Các cách tốt mục đích để tạo thuận tiện chương trình thực Đệ quy Nếu giỏi tốn (!) bạn tìm cách liên hệ biểu thức từ số quân cờ thành số quân cờ, thử xem! Các mảng dùng gồm có mảng để lưu đầu vào yêu cầu, mảng đánh dấu bàn cờ mảng đánh dấu quân, mảng chiều có kích thước nhỏ Riêng mảng đánh dấu bàn cờ đệ quy nên có phần nới rộng mảng gọi “lính canh” Các bạn thấy mảng chương trình bạn Thuận đăng bên Chú ý cuối trường hợp tốn khơng có nghiệm – tất bạn đề nói khơng có test (!) Có điều thú vị số bạn cho số kết “kỳ lạ”, số bạn không viết file kết quả, số bạn để file rỗng tốt số bạn ghi số –1 file kết (đương nhiên bạn thích ghi hay làm được) Chương trình bạn Lê Đình Thuận – nhân vật quen thuộc Đề kỳ này: Program Domino; Const fi = 'Domino.Inp'; fo = 'Domino.Out'; Tin học & Nhà trường Var a : Array [1 7,1 8] of byte; b : Array [1 8,1 9] of byte; V : Array [0 6,0 6] of Byte; T : array [1 28] of boolean; {*––––––––––––––––––––––––––––––*} Procedure Readf; Var f : text; i,j : Byte; Begin Assign(f,fi); Reset(f); For i:=1 to begin for j:=1 to read(f,A[i,j]); Readln(f); end; Close(f); End; {*––––––––––––––––––––––––––––––*} procedure Init; var i,j,k : Byte; begin fillchar(b,sizeof(b),0); for i:=1 to b[i,9] := 29; {linhcanh} for j:=1 to b[8,j] := 29; {tao bang ma so} k:=0; for i:=0 to for j:=i to begin inc(k); V[i,j]:=k; end; for i:=1 to for j:=i–1 downto v[i,j]:=v[j,i]; fillchar(t,sizeof(t),true); end; Procedure Writef; Var f : Text; i,j : byte; Begin Assign(f,fo); Rewrite(f); For i:=1 to begin for j:=1 to write(f,b[i,j]:3); writeln(f); end; Close(f); Halt; 127 128 End; {*––––––––––––––––––––––––––––––*} Procedure Try(i,j:Byte); var k : byte; Begin {tim o tiep theo chua duyet} While b[i,j] Begin inc(j); if j>8 then begin inc(i); j:=1; end; if i>7 then Writef; End; for k:=0 to if (b[i+k,j+1–k] = 0) and t[v[a[i,j],a[i+k,j+1–k]]] then begin b[i,j]:=v[a[i,j],a[i+k,j+1–k]]; b[i+k,j+1–k]:=b[i,j]; t[b[i,j]]:=false; try(i,j); t[b[i,j]]:=true; b[i+k,j+1–k]:=0; b[i,j]:=0; end; End; {*––––––––––––––––––––––––––––––*} Procedure WriteNo; Var f : Text; i,j : byte; Begin Assign(f,fo); Rewrite(f); Writeln(f,'–1'); Close(f); End; {*––––––––––––––––––––––––––––––*} BEGIN readf; Init; Try(1,1); WriteNo; END Tin học & Nhà trường ... nhất, học sinh mang số đứng sau ghế thứ 2, học sinh mang số đứng sau ghế thứ 3, tiếp tục học sinh mang số Học sinh mang số xếp đứng sau học sinh mang số 1, học sinh mang số xếp đứng sau học sinh mang... sinh lớp học Một lớp học gồm 30 học sinh, học sinh đánh số từ đến 30 Đây hình ảnh vài học sinh lớp: Thầy giáo họ dùng ghế xếp thành vòng tròn xếp học sinh quanh vòng tròn theo cách sau: Học sinh... vv…Các học sinh lại tiếp tục xếp theo cách tất học sinh lớp đứng sau ghế đứng sau học sinh khác Bạn cho biết: – Có học sinh đứng sau ghế? Tin học & Nhà trường 17 – Những học sinh đứng sau học sinh