Chương trình mẫu Free Pascal

PASCAL - Th ằ ng h i não Bài vi ết ph ục v ụcho vi ệc ôn t ập Pascal nhanh chóng cho b ạn thi tin h ọc ki ểu Tổ ng Quan - X ấ u mà đẹp • • • • • • • • Pascal không phân bi ệt hoa th ườ n g B đầu định danh ph ải Kí t ựch ữ, không cho phép kí hi ệu địn h danh (tr ừ_ ) VD: BAI_NAY_MEO_BIET_LAM, bainayMeoBietLam, bai3eoThemLam M ỗi câu l ệnh k ết thúc b ằng " ; ", kh ối l ệnh m ởđầu bang " begin " k ế t thúc bang "end" C ấu trúc m ột ch ươ n g trình Pascal chu ẩn program Bai3MeoBietLam; uses crt; begin {Méo biết chứa gì} end Mọi biến phải khai báo đầu chươ ng trình với từ khoá var const (đ/v số) C Ơ cmn B ẢN (nh ững tr ẻ trâu h ọc) Biến Hằng const SauChin = 69; var SauChin, SinChau : integer = 69; • Khai báo hàm (sau var): : < kiểu > [< = ]; Giá trị khởi tạo có không • Khai báo : const = ; • Các kiểu cmn lieu: thằng ngon Tên Kiểu | Phạm Vi | Ý cmn Nghĩa -+ -+ -BYTE | 255 | Số tự nhiên INTEGER | -32768 32767 | Số Nguyên CHAR | 256 Kí tự ASCII | Kí tự đơn STRING | Max = 256 Char | Chuỗi (Mảng kí tự) BOOLEAN | TRUE/FALSE | Luận lý REAL | 2,9x10^-39 1,7x10^38 | Số Thực LONGINT | -2147483648 2147483647 | Số Nguyên CARDINAL | 4294967295 | Số Tự Nhiên INT64 | -2^63 2^63 - | Số Nguyên //Lưu ý: INT64 dùng cho biến đếm for • Mảng: : array [ < > < max > ] of ; Toán Tử := gán (bác Wirth vui tính v**l) + - * / div (chia lấy nguyên) mod (chia lấy dư) > < >= in không xuống dòng & xuống dòng read (); readln(); -> nhập input không cần enter cần enter sqr -> bình phương sqrt -> bậc hai abs -> lấy trị tuyệt đối odd(x); xét x có số lẻ ko chr(x); -> trả kí tự thứ x ascii ord(x); -> trả thứ tự x ascii round(x); -> làm tròn CHUYÊN MÔN (nh ững th ằng thi h ọc) Thủ Tục Hàm • Thủ Tục: procedure [ ([var] : ) ]; var : ; begin { bla bla } end; • Hàm: cần trả trị, ta dùng exit(); function [ ([var] : ) ] : ; var : ; begin { bla bla } end; Thao Tác Tệp assign(, ); -> gán file rewrite(); -> tạo file để ghi reset(); -> đọc file append(); -> ghi file (file có sẵn) close(); -> đóng file để đọc liệu file ta dùng lệnh: eof(); -> file có kết thúc chưa eoln(); -> dòng đọc kết thúc chưa Sâu delete(, , ); insert(, , ); copy( , , ); length(); -> trả độ dài sâu (áp dung cho mảng đc ;) ) pos(,); -> trả vị trí xuất string strvar upcase(); / lowcase(); StrToInt(); -> cast chuỗi thành số, cần dùng uses SysUtils; PASCAL - Th ằng h ại não part Bài viết phục vụ cho việc ôn tập Pascal nhanh chóng cho bạn thi tin học kiểu Lưu ý: giải thuật cần thuộc lòng tác giả viết mã, hên xui mã giả Các Gi ải Thu ật C B ản Kiểm tra nguyên tố function isPrime (n: longint): boolean; var g: longint; begin if n=1 then exit(false) else for g:=2 to trunc(sqrt(n)) if n mod g = then exit(false); exit(true); end; Ước chung lớn function uc(a,b: longint):longint; var t: longint; begin while b>0 begin a:= a mod b; t:=a; a:=b; b:=t; //get mod and swap end; exit(a); end; Bội chung nhỏ function bc(a,b: longint):longint; begin exit( (a*b) div uc(a,b) ); end; Số fibonacci function fib(n: longint):longint; begin if n