Các bài tập nâng cao lớp 8 Học sinh giỏi cấp Thành phố. Ôn tập lại tất cả các kiến thức, hay những kiến thức mới. Các bài tập nâng cao lớp 8 Học sinh giỏi cấp Thành phố. Ôn tập lại tất cả các kiến thức, hay những kiến thức mới. Các bài tập nâng cao lớp 8 Học sinh giỏi cấp Thành phố. Ôn tập lại tất cả các kiến thức, hay những kiến thức mới. Các bài tập nâng cao lớp 8 Học sinh giỏi cấp Thành phố. Ôn tập lại tất cả các kiến thức, hay những kiến thức mới.
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ố 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ố ngun 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 tố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 MỤC LỤC 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) 13 else writeln(tu,'/',mau); readln; end 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; 14 begin clrscr; writeln('Nhap vao so thap phan: '); readln(st); 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; 15 writeln('Nhap hon so co dang c a/b: '); write('c= '); readln(c); write('a= '); readln(a); 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