Giáo trình môn học Lập trình Pascal gồm có 6 chương với những nội dung chính sau: Làm quen ngôn ngữ lập trình pascal, các thành phần cơ bản, các cấu trúc điều khiển, hàm và thủ tục, dữ liệu kiểu tập hợp, mảng và bản ghi, dữ liệu kiểu chuỗi. Mời các bạn cùng tham khảo để biết thêm các nội dung chi tiết.
MỤC LỤC Chương Làm quen ngôn ngữ lập trình Pascal Giới thiệu khái niệm lập trình 1.1 Ngôn ngữ Pascal 1.2 Turbo Pascal Làm quen môi trường phát triển phần mềm 2.1 Khởi động Turbo Pascal 2.2 Các thao tác thường sử dụng Turbo Pascal Chương 10 Các thành phần 10 Hệ thống từ khóa kí hiệu dùng ngơn ngữ lập trình 10 1.1 Bộ chữ viết 10 1.2 Từ khóa 10 1.3 Tên 11 Các kiểu liệu bản: kiểu số, ký tự, chuỗi, 12 2.1 Kiểu Logic 12 2.2 Kiểu số nguyên 12 Hằng, biến, hàm, phép toán biểu thức 15 3.1 Khai báo 15 3.2 Khai báo biến 15 3.3 Định nghĩa kiểu: 16 3.4 Biểu thức 16 Các lệnh, khối lệnh 17 4.1 Câu lệnh đơn giản 17 4.2 Câu lệnh có cấu trúc 17 4.3 Các lệnh nhập xuất liệu 17 Thực thi chương trình, nhập liệu, nhận kết 19 5.1 Các bước lập chương trình Pascal 19 5.2 Cấu trúc chung chương trình Pascal 19 Chương 22 Các cấu trúc điều khiển 22 Các lệnh cấu trúc lựa chọn 22 1.1 Lệnh cấu trúc rẽ nhánh 22 1.2 Lệnh cấu trúc lựa chọn 23 1.3 Các lệnh vòng lặp 26 Lệnh lặp với số lần lặp không xác định 29 2.1 Dạng 1: 29 2.2 Dạng 2: 30 Chương 33 Hàm thủ tục 33 Khái niệm chương trình 33 Các hàm thủ tục ngơn ngữ lập trình 34 2.1 Hàm (Function) 34 2.2 Thủ tục (Procedure) 38 Write(‘ ’,i); Readln; End b Dạng Ý nghĩa: Tương tự dạng 1, sau lần lặp biến giảm đơn vị (biến:=PRED (biến)) Ví dụ: Liệt kê số nguyên dương ước số số cho trước Var I,n:Interger; Begin Write(‘Nhập vào số:’); Readln(n); Writeln(‘Dưới liệt kê ước số số bạn vừa nhập’); For i:=n Downto Do If n Mod i=0 Then Write(‘ ’,i); Readln; End Mở rộng vấn đề: Không giống với ngôn ngưc khác, Pascal không kiểm tra (biến >cuối) câu lệnh FOR … To … Do để kết thúc vòng lặp mà kiểm tra (biến = cuối) để thực lần lặp cuối Vì lẽ việc can thiệp vào biến đếm gây cố “Vịng lặp vơ tận” Ví dụ sau cho thấy rõ điều Program Lapvotan; Use Crt, Dos; Var Bien:byte; CtrlBreak:Boolean; - Phép so sánh = (bằng) Hai tập hợp A B (A = B cho kết True) chúng có phần tử đôi (không kể thứ tự phần tử tập hợp) - Ngược lại với phép so sánh so sánh khác, tức phần tử A B không đôi Nếu A = B cho kết TRUE A B cho kết FALSE ngược lại - Phép so sánh = B cho kết True phần tử B có A 1.3 Viết đọc liệu tập hợp Đối với liệu kiểu tập hợp ta viết đọc vào lệnh Read, Readln, Write, Writeln Tuy nhiên ta lập trình thực thao tác Ví dụ sau nhập vào tập hợp kiểu Char in lên hình tập hợp vừa nhập Type CHUCAI = SET OF CHAR; Var cc: CHUCAI; i, n: Integer; ch: Char; Begin Write(‘ Tập hợp có phần tử? ‘); Readln(n); cc := []; For i := to n Begin Write(‘ Phần tử thứ ‘ ,i, ’ là: ’); Readln(ch); cc:= cc + [ch]; - Phép so sánh = (bằng) Hai tập hợp A B (A = B cho kết True) chúng có phần tử đơi (không kể thứ tự phần tử tập hợp) - Ngược lại với phép so sánh so sánh khác, tức phần tử A B không đôi Nếu A = B cho kết TRUE A B cho kết FALSE ngược lại - Phép so sánh = B cho kết True phần tử B có A 1.3 Viết đọc liệu tập hợp Đối với liệu kiểu tập hợp ta viết đọc vào lệnh Read, Readln, Write, Writeln Tuy nhiên ta lập trình thực thao tác Ví dụ sau nhập vào tập hợp kiểu Char in lên hình tập hợp vừa nhập Type CHUCAI = SET OF CHAR; Var cc: CHUCAI; i, n: Integer; ch: Char; Begin Write(‘ Tập hợp có phần tử? ‘); Readln(n); cc := []; For i := to n Begin Write(‘ Phần tử thứ ‘ ,i, ’ là: ’); Readln(ch); cc:= cc + [ch]; - Phép so sánh = (bằng) Hai tập hợp A B (A = B cho kết True) chúng có phần tử đôi (không kể thứ tự phần tử tập hợp) - Ngược lại với phép so sánh so sánh khác, tức phần tử A B không đôi Nếu A = B cho kết TRUE A B cho kết FALSE ngược lại - Phép so sánh = B cho kết True phần tử B có A 1.3 Viết đọc liệu tập hợp Đối với liệu kiểu tập hợp ta viết đọc vào lệnh Read, Readln, Write, Writeln Tuy nhiên ta lập trình thực thao tác Ví dụ sau nhập vào tập hợp kiểu Char in lên hình tập hợp vừa nhập Type CHUCAI = SET OF CHAR; Var cc: CHUCAI; i, n: Integer; ch: Char; Begin Write(‘ Tập hợp có phần tử? ‘); Readln(n); cc := []; For i := to n Begin Write(‘ Phần tử thứ ‘ ,i, ’ là: ’); Readln(ch); cc:= cc + [ch]; Cho kết chuỗi ghép từ chuỗi St1, St2, St3,…, Stn theo thứ tự truyền vào hàm Kết giống phép cộng chuỗi m Hàm Pos(Obj,St) Cho kết vị trí Obj chuỗi St Nếu khơng tìm thấy hàm trả kết Var St, Obj: String[20]; Begin St := ‘TURBO PASCAL 7.0’; Obj := ‘PASCAL’; Write(Pos(Obj, St)); End Kết quả: 2.2 Truy xuất ký tự chuỗi Ta truy xuất ký tự chuỗi thơng qua tên biến, tương tự việc truy xuất mảng, dĩ nhiên kiểu ký tự chuỗi Char Giã sử ta có biến St biến kiểu string St[i] (i số nguyên thoả