Trương Lê Bảo Linh CÁC DẠNG BÀI PASCAL I Số học 1 Kiểm tra số nguyên tố 2 Kiểm tra số chính phương 3 Kiểm tra số hoàn hảo 4 Kiểm tra số song tố 5 Phân tích ra thừa số nguyên tố 6 In ra dãy Fibonnacci[.]
Trương Lê Bảo Linh CÁC DẠNG BÀI PASCAL I Số học: Kiểm tra số nguyên tố Kiểm tra số phương Kiểm tra số hồn hảo Kiểm tra số song tố Phân tích thừa số nguyên tố In dãy Fibonnacci Giai thừa số nguyên Tích lũy thừa Tìm UC, UCLN, BCNN 10 In số lớn (Max) số nhỏ (Min) 11.Thay đổi vị trí số lớn (Max) số nhỏ (Min) 12 Cộng, trừ, nhân, chia phân số 13 Rút gọn phân số 14 Sắp xếp theo vị trí tăng dần, giảm dần 15 Đổi số thập phân qua phân số 16 Biến đổi hỗn số thành phân số ngược lại II Xâu string: In tổng chữ số Đếm xem có ký tự chữ, ký tự số In từ có nhiều chữ Trộn hai mảng tạo thành mảng mới, xếp vị trí tăng dần, giảm dần Chuẩn hóa xâu ( chuyển xâu sang dạng: chữ viết hoa (đối với họ tên chữ đầu từ viết hoa), xóa dấu cách thừa, xóa dấu cách đầu cuối, v.v…) Kiểm tra xâu đối xứng, số đối xứng Xóa ký tự thứ k xâu III Các hàm xâu Chi tiết IV Các toán tổng hợp phức tạp: Mã hóa, giải mã xâu ( theo yêu cầu đề bài) Tìm số nguyên tố xâu st: Đây nè :)) V Các đề thi mẫu: Đề mẫu& đáp án (nếu có) Bài làm Trương Lê Bảo Linh I MỤC LỤC SỐ HỌC Kiểm tra số nguyên tố: Kiểm tra số phương: Kiểm tra số hoàn hảo: Kiểm tra số song tố: Phân tích thừa số nguyên tố: In dãy Fibonnacci: Giai thừa số nguyên: Tĩnh lũy thừa: Tìm UC, UCLN, BCNN In số lớn (Max) số nhỏ (Min): Thay đổi vị trí số lớn (Max) số nhỏ (Min) Cộng, trừ, nhân, chia phân số 10 Rút gọn phân số: .13 Sắp xếp theo vị trí tang dần, giảm dần: 14 Chuyển số thập phân qua phân số: 14 Biến đổi hỗn số thành phân số ngược lại 15 II XÂU STRING: .16 In tổng chữ số 16 Đếm xem có ký tự chữ, ký tự số 17 In từ có nhiều chữ 18 Trộn hai mảng tạo thành mảng mới, xếp vị trí tăng dần, giảm dần 18 Chuẩn hóa xâu ( chuyển xâu sang dạng: chữ viết hoa (đối với họ tên chữ đầu từ viết hoa), xóa dấu cách thừa, xóa dấu cách đầu cuối, v.v…) 18 Kiểm tra xâu đối xứng, số đối xứng 19 Xóa ký tự thứ k xâu ( nhỏ ) 19 Trương Lê Bảo Linh I SỐ HỌC Kiểm tra số nguyên tố: Function snt(n:longint):boolean; Var i:longint; Begin Snt:=false; If nb then a:=a-b else b:=b-a; ucln:=b; tu:=tu div ucln; mau:=mau div ucln; if mau=1 then writeln(tu) else writeln(tu,'/',mau); readln; end 15 Trương Lê Bảo Linh Sắp xếp theo vị trí tang dần, giảm dần: uses crt; var i,j,tam,n:longint; a:array[1 1000] of longint; begin clrscr; writeln('Nhap n: '); readln(n); for i:=1 to n readln(a[i]); for i:=1 to n-1 for j:=i+1 to n if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end; for i:=1 to n write(a[i]:3); writeln; for i:=n downto write(a[i]:3); readln; end Chuyển số thập phân qua phân số: Uses crt; var a,c,tu,mau,tu2,mau2,ucln:real; dem,i,d,j,b,code:longint; st,st2:string; begin clrscr; writeln('Nhap vao so thap phan: '); readln(st); 16 Trương Lê Bảo Linh for i:=1 to length(st) if st[i]='.' then for j:=i+1 to length(st) inc(dem); val(st,a,code); c:=exp(dem*ln(10)); d:=round(c); tu:=a*d; mau:=d; tu2:=tu; mau2:=mau; while tumau if tu>mau then tu:=tu-mau else mau:=mau-tu; ucln:=mau; tu2:=round(tu2) div round(ucln); mau2:=round(mau2) div round(ucln); writeln(tu2:0:0,'/',mau2:0:0); readln; end Biến đổi hỗn số thành phân số ngược lại uses crt; var a,b,c,tu,mau:longint; begin clrscr; writeln('Nhap hon so co dang c a/b: '); write('c= '); readln(c); write('a= '); readln(a); 17 Trương Lê Bảo Linh write('b= '); readln(b); tu:=a+c*b; mau:=b; writeln(tu,'/',mau); readln; end uses crt; var a,b,c:longint; begin clrscr; writeln('Nhap phan so A/B: '); readln(a,b); if b=0 then begin writeln('Nhap lai phan so A/B vi B=0: '); readln(a,b); end; if a