Đang tải... (xem toàn văn)
Đề thi, hướng dấn làm các bài trong đề thi và bộ test dùng để chấm điểm. Chỉ cần tải đề về làm rồi dùng chương trình Themis để chấm điểm. Nếu không làm được thì đọc hướng dẫn làm các bài và chương trình tôi đã viết.
Bài 1: Viết hàm kiểm tra tính nguyên tố dùng sàng nguyên tố để làm const fi='Bai1.inp'; fo='Bai1.out'; var f:text; d,n,x:longint; {============================} function NTO(n:longint):boolean; var i:longint; begin if n0 then inc(dem); writeln(f,dem); for c:='A' to 'Z' if d[c]>0 then writeln(f,c,' ',d[c]); for c:='a' to 'z' if d[c]>0 then writeln(f,c,' ',d[c]); for c:='0' to '9' if d[c]>0 then writeln(f,c,' ',d[c]); close(f); end Bài 3: Dùng phương pháp duyệt điểm tìm kiếm nhị phân để làm Cách 1: Tìm nhị phân const fi='Bai3.inp'; fo='Bai3.out'; var f:text; i,r:longint; res,d,c,g,vt,n:int64; a:array[1 300000]of longint; begin assign(f,fi); reset(f); readln(f,n,r); for i:=1 to n read(f,a[i]); close(f); res:=0; for i:=1 to n-1 begin d:=i+1; c:=n; vt:=n+1; while da[i]+r then begin vt:=g; c:=g-1; end else d:=g+1; end; res:=res+n-vt+1; end; assign(f,fo); rewrite(f); writeln(f,res); close(f); end Cách 2: Dùng phương pháp duyệt điểm const fi='Bai3.inp'; fo='Bai3.out'; var f:text; d:array[1 300000] of longint; j,n,r,i:longint; dem:int64; begin assign(f,fi); reset(f); readln(f,n,r); for i:=1 to n read(f,d[i]); close(f); dem:=0; i:=1; j:=2; while (i