SKKN Sử dụng kiểu dữ liệu xâu để xử lí các bài toán cần xử lí dữ liệu số lớn

SKKN Sử dụng kiểu dữ liệu xâu để xử lí các bài toán cần xử lí dữ liệu số lớn 1 SÁNG KIẾN KINH NGHIỆM SỬ DỤNG KIỂU DỮ LIỆU XÂU ĐỂ XỬ LÍ CÁC BÀI TOÁN CẦN XỬ LÍ DỮ LIỆU SỐ LỚN I ĐẶT VẤN ĐỀ 1 Lý do chọn s[.]

SÁNG KIẾN KINH NGHIỆM SỬ DỤNG KIỂU DỮ LIỆU XÂU ĐỂ XỬ LÍ CÁC BÀI TỐN CẦN XỬ LÍ DỮ LIỆU SỐ LỚN I ĐẶT VẤN ĐỀ Lý chọn sáng kiến kinh nghiệm: Khi gặp toán có yêu cầu xử lý số nguyên có giá trị lớn Pascal ta thường gặp phải số lỗi: lỗi tràn ngăn xếp stack overflow error; lỗi vượt phạm vi khai báo Range check error; lỗi tràn vùng nhớ Heap Heap overflow error chương trình khơng thực Hằng năm, kỳ thi học sinh giỏi tỉnh thường gặp toán cần xử lý liệu số lớn với số lượng test lớn địi hỏi thí sinh phải tìm cách để xử lí( Nếu khơng sử dụng Free Pascal) Vấn đề đặt phải tìm số phương pháp xử lí số lớn mà tránh gặp phải lỗi gặp Trong phạm vi sáng kiến này, xin giới thiệu số tốn phải xử lí số ngun có giá trị lớn cách lưu trữ (đọc) chúng dạng kiểu liệu xâu Ngoài ra, việc sử dụng kiểu liệu xâu cịn giúp người lập trình có nhiều thuận tiện việc xử lí Điều toán cụ thể mà sáng kiến kinh nghiệm có đệ cập đến Mục đích nghiên cứu: Sáng kiến kinh nghiệm nghiên cứu nhằm mục đích phục vụ cơng tác giảng dạy bồi dưỡng học sinh giỏi trường, học sinh giỏi tỉnh, học sinh thi tin học trẻ Ngoài sáng kiến kinh nghiệm sử dụng làm chuyên đề báo cáo cấp tổ Sáng kiến kinh nghiệm ưu điểm kiểu liệu xâu việc ứng dụng để giải tốn u cầu xử lí liệu số lớn Kiểu liệu xâu kiểu liệu đề cập đầy đủ, chi tiết, sáng tỏ sách giáo khoa tin học 11 tài liệu tham khảo khác Đối tượng nghiên cứu: Kiểu liệu xâu thao tác xử lí xâu Cách vận dụng kiểu liệu xâu để thay kiểu liệu số Một số dạng tập liên quan đến sáng kiến kinh nghiệm Thuật toán để giải số toán tiêu biểu Đối tượng khảo sát , thực nghiệm: Học sinh khối 11 học xong 12 kiểu liệu xâu, học sinh giỏi trường, đội tuyển học sinh giỏi tỉnh, đội tuyển thi tin học trẻ đồng nghiệp Phương pháp nghiên cứu: Đi từ nhu cầu thực tiễn công tác giảng dạy, đặc biệt công tác bồi dưỡng học sinh giỏi Cụ thể qua toán xử lí liệu số lớn, để tìm cách xử lí đơn giản, hiệu Đó cách sử dụng kiểu liệu xâu Vận dụng kiểm tra tính hiệu quả, tính tối ưu phương pháp Từ bước xây dựng nên sáng kiến kinh nghiệm Tóm lại , phương pháp nghiên cứu từ thực tiễn đến lí luận, từ lí luận quay phục vụ thực tiễn Phạm vi kế hoạch nghiên cứu: Sáng kiến kinh nghiệm thực theo kế hoạch ban chuyên môn nhà trường, bắt bầu từ tháng /2016 đến tháng SangKienKinhNghiem.net 5/2017, kết tích luỹ nhiều năm dạy học bồi dưỡng học sinh giỏi tỉnh II NỘI DUNG Cơ sở lí luận: Kiểu liệu xâu dãy hữu hạn kí tự mã ASCII Mỗi kí tự phần tử xâu Số lượng phần tử xâu gọi độ dài xâu Độ dài tối đa xâu 255 Một số nguyên lớn xem “một xâu” mà phần tử kí tự thuộc phạm vi [’0’ ’9’] Ngồi ra, phép so sánh chữ số cịn áp dụng để so sánh kí tự số Do việc ứng dụng kiểu liệu xâu vào xử lí liệu số thuận lợi cho phép xử lí số lớn có số chữ số lên tới 255 số Tuy nhiên, phần tử xâu kí tự nên khơng áp dụng phép tốn số học lên Việc giải đơn giản cách sử dụng hàm, thủ tục xử lí xâu mà học sinh trang bị sẵn Việc sử dụng kiểu liệu xâu để giải tốn có liệu số lớn thường thực qua bước sau: B1 Đọc số dạng xâu; B2 Xử lí phần tử xâu tuỳ vào yêu cầu cụ thể toán; B3 Đưa kết toán Thực trạng giải pháp: Sau toán sử dụng kiểu liệu xâu để giải có so sánh tính hiệu phương pháp với số phương pháp khác Bài toán SỐ ĐƠN ĐIỆU_Bài Đề thi hsg tỉnh lớp 11 bảng A năm học 2013-2014 Số a1, a2, …, aN gọi số đơn điệu < ai+1 > ai+2 > ai+1 < ai+2 (i:=1N-2) Số có chữ số, số có hai chữ số khác gọi số đơn điệu có độ dài 1, Yêu cầu: Viết chương trình xác định số chữ số lớn tạo thành số đơn điệu biểu diễn số cho trước Dữ liệu: Vào từ tệp văn bai1.inp số nguyên dương N (N có số chữ số < 256 ) Dữ liệu ra: Ghi tệp văn bai1.out số nguyên, số chữ số lớn tạo thành đoạn số đơn điệu số N Nếu khơng có đoạn số đơn điệu ghi số VD: Bai1.inp Bai1.out 13243544446666 - Xác định toán:  Input: Số nguyên dương N  Output: Số chữ số lớn tạo thành đoạn số đơn điệu N - Ý tưởng thuật toán: Đọc N dạng xâu s Ta xét tất đoạn biểu diễn N có độ dài giảm dần từ số lượng chữ số N 1(Xét đoạn xâu s có độ dài giảm từ độ dài xâu s SangKienKinhNghiem.net 1) Mỗi đoạn xét thoả mãn điều kiện tốn đưa độ dài đoạn Sử dụng hàm để kiểm tra đoạn có thoả mãn điều kiện tốn hay khơng - Chương trình tham khảo program bai1; const fi='bai1.inp'; fo='bai1.out'; var s:string; i,l:byte; f,g:text; procedure motep; begin assign(f,fi);reset(f); assign(g,fo);rewrite(g); end; function kt(m,n:byte):boolean; var p:word; begin kt:=true; for p:=m to n+m-2 if ((s[p]>=s[p+1]) and (s[p+1]>=s[p+2])) or ((s[p]s[max] then max:=i; End; Procedure Begin End; Begin xuli; readln(f,s); read(f,k); P:=’’; While (k>0) and (length(s)>0) Begin I:=max(k); P:=p+s[i]; Delete(s,1,i); K:=k-i+1; End; If k=0 then p:=p+s; Write(g,‘ so lon nhat tim duoc la: ‘, p); Close(f); close(g); motep; Xuli; End Bài toán Cho số nguyên dương N, tìm biểu diễn nhị phân N Dữ liệu vào: Từ tệp văn Bai7.inp số, số nguyên N Dữ liệu ra: Ghi lên tệp văn Bai7.out biểu diễn nhị phâ số N VD Bai7.inp Bai7.out Bai7.inp Bai7.out 125 01111111 255 11111111 - Xác định toán: + Input: Số nguyên dương N + Output: Biểu diễn nhị phân số N - Ý tưởng thuật toán: Cách 1: Sử dụng mảng chiều để lưu số dư phép chia N cho 2, sau lần chia N gán lại với giá trị N chia Quá trình kết thúc N=0 Sau đưa phần tử mảng theo thứ tự từ phần tử có số lớn đến phần tử có số nhỏ Để xác định số cuối mảng chiều ta dùng biến kiểu nguyên d Ban đầu d:=0, sau lần chia lấy dư N cho ta tăng biến d lên đơn vị Cách Sử dụng biến xâu s để lưu số dư phép chia N cho Ban đầu s:=’’, sau lần lấy số dư phép chia N cho 2, ta chuyển sang kiểu xâu ghép vào biến xâu s Dạng nhị phân N xâu ngược s - Chương trình tham khảo Theo cách program bai7c1; const maxd=100; 11 SangKienKinhNghiem.net fi=’bai7.inp’; fo=’bai7.out’; var N:word; i,d:byte;f,g:text; a:array[1 maxd] of byte; procedure motep; begin assign(f,fi);reset(f); assign(g,fo);rewrite(g); end; procedure xuli; begin readln(f,N); d:=0; while N>0 begin inc(d); a[d]:=N mod 2; N:=N div 2; end; for i:=d downto write(g,a[i]); close(g); close(f); end; Begin motep; Xuli; End Theo cách program bai7c2; const fi=’bai7.inp’; fo=’bai7.out’; var N:word; i:byte; s,x:string; f,g:text; procedure motep; begin assign(f,fi);assign(g,fo); reset(f); rewrite(g); end; procedure xuli; begin read(f,N); s:=''; while N>0 12 SangKienKinhNghiem.net begin i:=N mod 2; N:=N div 2; str(i,x);s:=s+x; end; write(g,s); close(g); close(f); end; Begin motep; Xuli; End Nhận xét: Ta thấy thuật toán tương xâu xem mảng chiều mà phần tử kí tự Tuy nhiên thuật toán ta phải xác định số lượng phần tử thực mảng a, tức xác định giá trị biến d Cịn với thuật tốn khơng cần để xác định số lượng phần tử xâu s ta dùng hàm length(s) Bài toán Cho số nguyên dương N, xếp số biểu diễn N để số lớn Dữ liệu vào: Từ tệp văn Bai8.inp số, số nguyên N Dữ liệu ra: Ghi lên tệp văn Bai8.out số, số xếp VD Bai8.inp Bai8.out 846759624 987665442 - Xác định toán: + Input: Số nguyên dương N + Output: Số lớn xếp biểu diễn số N - Ý tưởng thuật toán: Cách 1: Sử dụng mảng chiều để lưu số có biểu diễn N(Với N nhỏ) Để lấy số có biểu diễn N, ta dùng phép chia N mod 10, sau lần chia N gán lại với giá trị N div 10 Quá trình kết thúc N=0 Sau đưa phần tử mảng theo thứ tự từ tăng dần Để xác định số cuối mảng chiều ta dùng biến kiểu nguyên d Ban đầu d:=0, sau lần chia lấy dư N cho 10, ta tăng biến d lên đơn vị Cách 2: Sử dụng biến xâu s để lưu N( đọc N dạng xâu) Sau ta đưa phần tử xâu s theo thứ tự giảm dần - Chương trình tham khảo Theo cách program bai8c1; const fi=’Bai8.inp’; fo=’Bai8.out’; var N:longint; i,j,d:byte; f,g:text; a:array[1 100] of byte; 13 SangKienKinhNghiem.net procedure motep; begin assign(f,fi); reset(f); assign(g,fo);rewrite(g); end; procedure xuli; begin read(f,N); d:=0; while N>0 begin inc(d); a[d]:=N mod 10; N:=N div 10; end; for j:=9 downto for i:= to d if a[i]=j then write(g,a[i]); close(f); close(g); end; Begin Motep; Xuli; End Theo cách program bai8c2; var N:word; i:byte; j:char; s,x:string; begin write('nhap N='); readln(N); s:=''; while N>0 begin i:=N mod 10; N:=N div 10; str(i,x);s:=s+x; end; write('so lon nhat bieu dien cua N la:'); for j:='9' downto '0' for i:= to length(s) if s[i]=j then write(s[i]); 14 SangKienKinhNghiem.net readln end Nhận xét: Theo cách 1, ta thấy phần tử mảng a theo thứ tự số đảo ngược N giá trị N bị thay đổi (giá trị =0) Việc giữ lại giá trị N thực cách gán giá trị cho biến khác Nhìn chung ý tưởng cách giải khơng khác nhiều Bài toán Số đối xứng số mà ta đọc chữ số từ trước sau hay theo thứ tự ngược lại có kết Cho hai số nguyên dương M, N ( M0 17 SangKienKinhNghiem.net begin inc(d); tong:=tong+(M mod 10)*luythua(d); M:=M div 10; end; N:=tong; write(' gia tri cua N la:',N); readln; end Theo cách program bai10c2; var tong:word; M,N:word; l,j,i:byte; s:string; code,d:integer; function luythua(i:byte):word; var j:byte;lt:word; begin if i=0 then lt:=1 else begin lt:=1; for j:=1 to i lt:=lt*2; end; luythua:=lt; end; begin write('nhap M=');readln(M); str(M,s);tong:=0;L:=length(s); d:=-1; for i:=l downto begin inc(d); val(s[i],j,code); tong:=tong+j*luythua(d); end; N:=tong; write(' gia tri cua N la:',N); readln; end Nhận xét: Theo cách 1, ta thấy chưa xác định số lượng chữ số có M nên lập trình ta phải sử dụng câu lệnh while-do 18 SangKienKinhNghiem.net Còn theo cách 2, sau đổi M sang kiểu liệu xâu thơng qua hàm length(s) ta xác định số chữ số M nên lập trình ta dùng câu lệnh For-do Tuy nhiên theo cách ta phải dùng thêm thủ tục Val(s[i],j,code) Đây thủ tục hay gặp việc giải số toán Với học sinh đội tuyển HSG GV phải trang bị cho HS thủ tục Bài toán 11 Cho số nguyên dương N(N