TAI LIEU BOI DUONG FREE PASCAL

Giáo trình tóm tắt nội dung ôn tập thi HSG môn tin học THCS Nội dung Giáo trình tóm tắt nội dung ôn tập thi HSG môn tin học THCS từ cơ bản đến nâng cao. Giáo trình tóm tắt nội dung ôn tập thi HSG môn tin học THCS Giáo trình tóm tắt nội dung ôn tập thi HSG môn tin học THCS

PHÒNG GIÁO DỤC & ĐÀO TẠO DIÊN KHÁNH TRƯỜNG THCS MẠC ĐĨNH CHI ***    ** CHUYÊN ĐỀ FREE PASCAL LỚP 8+9 (Tài liệu bồi dưỡng học sinh giỏi môn tin học THCS) Chuyên đề Free Pascal THCS Tài liệu lưu hành nội GV:Trần Minh Mẫn GIỚI THIỆU TÓM TẮT TẬP TÀI LIỆU I Làm quen với chương trình Pascal – Khai báo, sử dụng biến – Các thủ tục vào II Cấu trúc lựa chọn: if … then … else Case of III Cấu trúc lặp với số lần lặp biết: For … to … IV Cấu trúc lặp với số lần lặp chưa biết V Dữ liệu kiểu mảng VI Chương trình VII Xâu ký tự VIII Chuyên đề: Tính chia hết- Số nguyên tố Trường THCS Mạc Đĩnh Chi Trang Chuyên đề Free Pascal THCS Tài liệu lưu hành nội GV:Trần Minh Mẫn CHƯƠNG I: CÁC KIỂU DỮ LIỆU CƠ BẢN KHAI BÁO HẰNG, BIẾN, KIỂU, BIỂU THỨC VÀ CÂU LỆNH A LÝ THUYẾT: I CÁC KIỂU DỮ LIỆU CƠ BẢN Kiểu logic: - Từ khóa: BOOLEAN - miền giá trị: (TRUE, FALSE) Kiểu số nguyên 2.1 Các kiểu số nguyên Tên kiểu Phạm vi Dung lượng Shortint byte -128 → 127 Byte byte → 255 Integer byte -32768 → 32767 Word byte → 65535 LongInt byte -2147483648 → 2147483647 2.2 Các phép toán kiểu số nguyên 2.2.1 Các phép toán số học: +, -, *, / (phép chia cho kết số thực) Phép chia lấy phần nguyên: DIV (VD : 34 DIV = 6) Phép chia lấy số dư: MOD (VD: 34 MOD = 4) Kiểu số thực 3.1 Các kiểu số thực: Tên kiểu Phạm vi Dung lượng -45 +38 Single byte 1.5×10 → 3.4×10 -39 +38 Real byte 2.9×10 → 1.7×10 -324 +308 Double byte 5.0×10 → 1.7×10 Extended 10 byte 3.4×10-4932 → 1.1×10+4932 Chú ý: Các kiểu số thực Single, Double Extended yêu cầu phải sử dụng chung với đồng xử lý số phải biên dịch chương trình với thị {$N+} để liên kết giả lập số 3.2 Các phép toán kiểu số thực: +, -, *, / Chú ý: Trên kiểu số thực không tồn phép toán DIV MOD 3.3 Các hàm số học sử dụng cho kiểu số nguyên số thực: SQR(x): x2 FRAC(x): Phần thập phân x ROUND(x): Làm tròn số nguyên x SQRT(x): (x≥0) PRED(n): Giá trị đứng trước n ABS(x): |x| SUCC(n): Giá trị đứng sau n SIN(x): sin(x) ODD(n): Giá trị TRUE n số lẻ COS(x): cos(x) INC(n): Tăng n lên đơn vị (n:=n+1) ARCTAN(x):arctang(x) Giảm n đơn vị (n:=n-1) INT(x): Phần nguyên x DEC(n): TRUNC(x): Trả số nguyên gần với x bé x Kiểu ký tự: - Từ khố: CHAR - Kích thước: byte Để biểu diễn ký tự, ta sử dụng số cách sau đây: • Đặt ký tự cặp dấu nháy đơn Ví dụ 'A', '0' • Dùng hàm CHR(n) (trong n mã ASCII ký tự cần biểu diễn) Ví dụ CHR(65) biễu diễn ký tự 'A' • Dùng ký hiệu #n (trong n mã ASCII ký tự cần biểu diễn) Ví dụ #65 Các phép tốn: =, >, >=, a[jmax]) then j:=jmax; atg:=a[i]; a[i]:=a[jmax]; a[jmax]:=atg; End; For i:=1 to n Writeln(a[i]); Readln; End Trường THCS Mạc Đĩnh Chi Trang 37 Chuyên đề Free Pascal THCS Tài liệu lưu hành nội GV:Trần Minh Mẫn Thực tất thao tác với dạng file văn phần Câu hỏi, ví dụ, tập theo chiều ngược lại, tức thực thao tác ghi Bài 1: Var f:text; m,n:integer; Begin m:=10; n:=4; assign(f, 'son.inf'); Writeln(f, m,' ',n); close(f); assign(f, 'son.inf'); Readln(f, m, n); close(f); Writeln(m:4, n:4); Readln; End reWrite(f); reset(f); Bài 2: Var f:text;m,n:integer; Begin m:=4; n:=5; assign(f, 'sod.inf'); reWrite(f); Writeln(f, m); Writeln(f, n); close(f); assign(f, 'sod.inf'); reset(f); Readln(f, m); Readln(f, n); close(f); Writeln(m); Writeln(n); Readln; End Bài 3: Var f:text; n,i:integer; a:array[1 100] of integer; Begin Write('Nhap so n: ');Readln(n); Writeln('Nhap day n so : '); For i:=1 to n Begin Write('a[',i:2,'] = '); Readln(a[i]); End; assign(f,'data.txt'); rewrite(f); Writeln(f,n); For i:=1 to n Writeln(f,a[i]); close(f); assign(f, 'data.txt'); reset(f); Readln(f, n); For i:=1 to n Readln(f,a[i]); close(f); For i:=1 to n Writeln(a[i]); Readln; End Trường THCS Mạc Đĩnh Chi Trang 38 Chuyên đề Free Pascal THCS Tài liệu lưu hành nội GV:Trần Minh Mẫn CHƯƠNG VIII CHUYÊN ĐỀ CHIA HẾT – SỐ NGUYÊN TỐ A BÀI TOÁN: Bài : Nhập vào số nguyên dương n Hãy in số nguyên tố nhỏ lớn n VD: Nhập n = 10 Kết in số 11 Giải thuật: Gán i := n ; Thực i nguyên tố việc tăng i lên Var n,i:integer; Function NT(n:integer):Boolean; Var ok: Boolean; i: integer; Begin ok:=true; for i:=2 to n-1 if (n mod i)= then ok:=ok and false; if n < then NT:=false else NT:=ok; End; BEGIN Write('Nhap n: ');Readln(n); i:=n; Repeat i:=i+1; Until NT(i); Write('So nguyen to nho nhat lon hon ',n, 'la: ',i); Readln; End Bài : Nhập số tự nhiên n (n lặp: Nếu n chia hết cho i in i gán lại n:= n div i Ngược lại tăng i lên var n,i: integer; Begin Write('Nhap so can phan tich: ');Readln(n); i:=2; Write('Ket qua phan tich:',n,'='); While n>1 Begin if n mod i = then Begin Write(i,'.'); n:= n div I; End else i:=i+1; End; Readln; End Bài 3: Tìm số tự nhiên nhỏ n mà sau làm phép phân tích thừa số ngun tố có nhiều nhân tử VD: n=9 Các số có nhiều nhân tử là: = 2.2.2 Var n, Max, so, i:byte; Function PTNT(n:integer):byte; Var i,p:byte; Begin i:=2; p:=0; While n>1 if (n mod i)=0 then Trường THCS Mạc Đĩnh Chi Trang 39 Chuyên đề Free Pascal THCS Tài liệu lưu hành nội GV:Trần Minh Mẫn Begin p:=p+1; n:=n div i end else i:=i+1; PTNT:=p; End; Procedure PT(n:integer); Var i:byte; Begin i:=2; While n>1 if (n mod i)=0 then Begin Write(i,'.'); n:=n div i end else i:=i+1; End; BEGIN Write('Nhap so n: ');Readln(n); Max:=0; For i:= to n if PTNT(i)>=Max then Begin Max:=PTNT(i); So:=i End; Write('So ',So,' co nhieu uoc nhat,',so,' = '); PT(So); Readln; End Bài 4: Viết chương trình cho phép phân tích số thừa số nguyên tố ghi kết dạng tích lũy thừa Ví dụ: 300 = 2^2.3.5^2 Thuật toán: Dùng mảng để lưu lũy thừa Mảng có giá trị phần tử ban đầu Nếu n chia hết cho i tăng M[i] lên Khi in kiểm tra: Nếu M[i] >0 in i^M[i] Var M: array[1 1000] of byte; i: byte; n: integer; Begin For i:=1 to 1000 M[i]:=0; Write('Nhap so n: ');Readln(n); i:=2; While n>1 if (n mod i = 0) then begin M[i]:=M[i]+1; n:=n div I; End else i:=i+1; For i:=1 to 1000 if M[i]>0 then Begin If M[i]>1 then Write(i,'^',M[i],'.') else Write(i,'.'); End; Readln; End Bài 5: Mọi số tự nhiên viết dạng tổng hai số nguyên tố Viết chương trình thực tách số tự nhiên thành tổng hai số nguyên tố Var i,n:integer; Function NT(n:integer):Boolean; Trường THCS Mạc Đĩnh Chi Trang 40 Chuyên đề Free Pascal THCS Tài liệu lưu hành nội GV:Trần Minh Mẫn Var ok: Boolean; i:integer; Begin ok:=true; For i:=2 to n-1 if (n mod i) = then ok:=ok and false; if n>=2 then NT:=ok else NT:=false; End; BEGIN Write('Nhap so n: ');Readln(n); For i:=2 to n div if (NT(i) and NT(n-i)) then Writeln(n,'=',i,'+',n-i); Readln; END Bài 6: Hai số tự nhiên A, B coi hữu nghị số tổng ước số số ngược lại Lập trình tìm chiếu lên hình cặp số hữu nghị phạm vi từ đến 10000 (Lưu ý: số ước số số số khơng coi ước số nó) Program Cap_so_huu_nghi; Var a,b,n,i:integer; Function TU(a:integer):integer; Var Tg,i:integer; Begin Tg:=0; For i:=1 to a-1 if (a mod i = 0) then Tg:=Tg + i; TU:=Tg; End; BEGIN Write('Nhap so n: ');Readln(n); For a:=1 to n Begin b:=TU(a); if TU(b)=a then Writeln(a,'-',b); end; Readln; End Thì ra, 220 ngồi thân ra, cịn có 11 ước số 1, 2, 4, 5, 10, 11, 20, 44, 55 110 Tổng 11 ước số vừa 284 Cũng vậy, 284 ngồi thân nó, ước số khác là: 1, 2, 4, 71, 142, tổng chúng vừa 220 Cụ thể, + + + + 10 + 11 + 20 + 22 + 44 + 55 + 110 = 284 + + + 71 + 142 = 220 Trường THCS Mạc Đĩnh Chi Trang 41 Chuyên đề Free Pascal THCS Tài liệu lưu hành nội GV:Trần Minh Mẫn MỘT SỐ BÀI TẬP THAM KHẢO Bài 1: Nhập cạnh cho biết là: Tam giác hay không? Tam giác thường, vuông, đều, cân? Bài 2: Đảo ngược xâu kí tự nhập vào Bài 3: Giải PT bậc (bài tập cổ điển) Bài 4: Tìm số lớn dãy n phần tử Bài 5: Sắp xếp dãy số nhập vào theo thứ tự tăng dần Bài 6: Nhập ma trận vào, in hình theo hàng cột tìm phần tử nhỏ ma trận Bài 7: Nhập vào dãy n số, sau in số dương dịng, số âm dịng Bài 8: Tìm ước chung lớn số dương Bài 9: Tính trung bình cộng riêng số dương, âm nhập vào từ mảng Bài 10: Tính e^x Exp(x)= + (x^1)/(1!) + (x^2)/(2!) + (x^n)/(n!) Với độ xác ABS( (x^n)/(n!) ) < 0.0001 Bài 11: Chọn hoa: Nhân ngày 8/3 minh đến cửa hàng bán hoa để mua hoa tặng mẹ Mẹ minh thích hoa lan, cửa hàng có n (n ≤ 20) giò phong lan đẹp đánh số từ đến n, giò phong lan đẹp nên minh phân vân khơng biết chọn giị phong lan Minh muốn mua tặng mẹ k (k ≤ n) giị phong lan Em tìm giúp minh tất cách chọn input: Tệp chonhoa.inp gồm dòng chứa số nguyên n, k output: đưa hình tất cách chọn tổng số cách chọn Ví dụ: Input: N = 4; k = output: 1 2 3 4 Tổng số cách chọn: Bài 12: Phân tích số: Cho số tự nhiên n (n ≤ 400) Hãy cho biết có cách phân tích số n thành tổng dãy số nguyên dương, cách phân tích hốn vị tính cách Ví dụ: Với n=5, có cách phân tích: = + + + + = + + + = + + = + + 5 = + = + = Bài 13: Có n thành phố đánh số thứ tự 1, 2, …, n Giữa hai thành phố có đường trực tiếp khơng có Cho trước ma trận kề A = (aij) chứa liệu đường trực tiếp, aij độ dài đường trực tiếp từ thành phố i đến thành phố j, aij = hai thành phố khơng có đường trực tiếp Tìm độ dài đường ngắn từ thành phố đến thành phố n, cho biết đường qua thành phố Bài 14: Nhập vào số n (5