Danh hiệu của Pascal được bắt đầu bằng một chữ cái, sau đó có thể là các chữ cái, chữ số hay là dấu nối, không được có khoảng trắng và độ dài tối đa cho phép là 127.. Một chương trình Pa
Trang 1Bài 1: Tổng quan về Pascal
I GIỚI THIỆU:
Pascal là tên của một ngôn ngữ lập trình cấp cao thông dụng, được giáo sưNiklaus Wirth ở trường Ðại học Kỹ thuật Zurich (Thụy sĩ) thiết kế và công bố vào năm 1970 Niklaus Wirth đặt tên cho ngôn ngữ này là Pascal để tưởng nhớ đến nhà Toán học và Triết học Pháp ở thế kỷ 17 là Blaise Pascal, người đã phát minh ra một máy tính cơ khí đơn giản đầu tiên của con người Ðến nay, ngôn ngữ Pascal đã phát triển đến phiên bản Turbo Pascal 7
II CÁC PHẦN TỬ CƠ BẢN CỦA NGÔN NGỮ PASCAL
- Từ khóa chung: PROGRAM, BEGIN, END, PROCEDURE, FUNCTION
- Từ khóa để khai báo: CONST, VAR, TYPE, ARRAY, STRING, RECORD, SET, FILE, LABEL
- Từ khóa của lệnh lựa chọn: IF THEN ELSE, CASE OF
- Từ khóa của lệnh lặp: FOR TO DO, FOR DOWNTO DO, WHILE
DO,
REPEAT UNTIL
- Từ khóa điều khiển: WITH, GOTO, EXIT, HALT
- Từ khóa toán tử: AND, OR, NOT, IN, DIV, MOD
Trang 24 Danh hiệu tự đặt
Trong Pascal để đặt tên cho các biến, hằng, kiểu, chương trình con ta dùng các danh hiệu (identifier) Danh hiệu của Pascal được bắt đầu bằng một chữ cái, sau
đó có thể là các chữ cái, chữ số hay là dấu nối, không được có khoảng trắng và
độ dài tối đa cho phép là 127
Ví dụ 6.1: Sau đây là các danh hiệu: x; S1; Delta; PT_bac_2
Pascal không phân biệt chữ thường và chữ hoa trong một danh hiệu
Ví dụ 6.2: aa và AA là một; XyZ_aBc và xyZ_AbC là một
Khi viết chương trình ta nên đặt các danh hiệu sao cho chúng nói lên các ý nghĩacủa đối tượng mà chúng biểu thị Ðiều này giúp chúng ta viết chương trình dễ dàng và người khác cũng dễ hiểu nội dung chương trình
III/ VÍ Dụ Về KHUNG CHƯƠNG TRÌNH MẫU:
PROGRAM Hello; { Dòng tiêu đề }
USES Crt; { Lời gọi sử dụng các đơn vị chương trình }
VAR Name : string; { Khai báo biến }
PROCEDURE Input; { Có thể có nhiều Procedure và Function }
Begin
ClrScr; { Lệnh xóa màn hình }
Write(' ‘Hello ! What is your name ? ‘');Readln(Name);
End;
Trang 3Input;
Writeln (' ‘Welcome to you, ‘, Name') ;
Writeln (' ‘Today, we study PASCAL PROGRAMMING ‘');
* Phần khai báo dữ liệu:
Trước khi sử dụng biến nào phải khai báo biến đó, nghĩa là xác định rõ xem biến
đó thuộc kiểu dữ liệu nào Một chương trình Pascal có thể có một số hoặc tất cả các khai báo dữ liệu sau:
CONST : khai báo hằng
TYPE : định nghĩa kiểu dữ liệu mới
VAR : khai báo các biến
* Phần khai báo chương trình con:
Phần này mô tả một nhóm lệnh được đặt tên chung là một chương trình con để khi thân chương trình chính gọi đến thì cả nhóm lệnh đó được thi hành
Phần này có thể có hoặc không tùy theo nhu cầu
* Phần thân chương trình:
Phần thân chương trình là phần quan trọng nhất và bắt buộc phải có, phần này luôn nằm giữa 2 từ khoá là BEGIN và END Ở giữa là lệnh mà các chương trìnhchính cần thực hiện Sau từ khóa END là dấu chấm (.) để báo kết thúc chương trình
* Dấu chấm phẩy ( ; ):
Dấu ; dùng để ngăn cách các câu lệnh của Pascal và không thể thiếu được
* Lời chú thích:
Trang 4Lời chú thích dùng để chú giải cho người sử dụng chương trình nhớ nhằm trao đổi thông tin giữa người và người, máy tính sẽ không để ý đến lời chú thích này.Lời chú thích nằm giữa ký hiệu: { } hoặc (* *)
Bài 2: CÁC KHAI BÁO HẰNG, BIẾN, KIỂU, BIỂU THỨC,
1 Hằng (constant)
a Ðịnh nghĩa: Hằng là một đại lượng có giá trị không đổi trong quá trình chạy
chương trình Ta dùng tên hằng để chương trình được rõ ràng và dễ sửa đổi
a Ðịnh nghĩa : Biến là một cấu trúc ghi nhớ có tên (đó là tên biến hay danh
hiệu của biến) Biến ghi nhớ một dữ liệu nào đó gọi là giá trị (value) của biến Giá trị của biến có thể được biến đổi trong thời gian sử dụng biến Sự truy xuất của biến nghĩa là đọc giá trị hay thay đổi giá trị của biến được thực hiện thông qua tên biến
Ví dụ 6.5: Readln (x) ;
Writeln (x) ;
x := 9 ; Biến là một cấu trúc ghi nhớ dữ liệu vì vậy nó phải tuân theo qui định của kiểu
dữ liệu một biến phải thuộc một kiểu dữ liệu nhất định
b Cách khai báo
VAR <Tên biến> : <Kiểu biến> ;
Ví dụ 6.6: VAR a : Real ;
Trang 5b, c : Integer ; TEN : String [20]
X : Boolean ; Chon : Char ; Cần khai báo các biến trước khi sử dụng chúng trong chương trình Khai báo một biến là khai báo sự tồn tại của biến đó và cho biết nó thuộc kiểu gì
3 Kiểu (Type)
a Ðịnh nghĩa : Ngoài các kiểu đã định sẵn, Pascal còn cho phép ta định nghĩa các kiểu dữ liệu khác từ các kiểu căn bản theo qui tắc xây dựng của Pascal
b Cách khai báo
TYPE <Tên kiểu> = <Mô tả xây dựng kiểu> ;
Ví dụ 6.7: TYPE SoNguyen = Integer ;
Diem = Real;
Tuoi = 1 100 ;Color = (Red, Blue, Green) ; Thu = (Sun, Mon, Tue, Wed, Thu, Fri, Sat) ;
và khi đã khai báo kiểu gì thì ta có quyền sử dụng để khai báo biến như ở ví dụ sau:
Ví dụ 6.8: VAR i, j : SoNguyen ;
Dtb : Diem ;
T : tuoi ; Mau : Color ; Ngay_hoc : Thu;
4 Biểu thức (Expression)
a Ðịnh nghĩa : Một biểu thức là một công thức tính toán bao gồm các phép toán,hằng, biến, hàm và các dấu ngoặc
Ví dụ 6.9: 5 + A * SQRT(B) / SIN(X)
Trang 6(A AND B) OR C
b Thứ tự ưu tiên
Khi tính giá trị của một biểu thức, ngôn ngữ Pascal qui ước thứ tự ưu tiên của các phép toán từ cao đến thấp như sau:
Mức ưu tiên: Các phép toán:
1 Biểu thức trong ngoặc đơn ( )
c Qui ước tính thứ tự ưu tiên
Khi tính một biểu thức có 3 qui tắc về thứ tự ưu tiên như sau:
Qui tắc 1 : Các phép toán nào có ưu tiên cao hơn sẽ được tính trước
Qui tắc 2 : Trong các phép toán có cùng thứ tự ưu tiên thì sự tính toán sẽ được thực hiện từ trái sang phải
Qui tắc 3 : Phần trong ngoặc từ trong ra ngoài được tính toán để trở thành một giá trị đơn
d Kiểu của biểu thức
Là kiểu của kết quả sau khi tính biểu thức
Ví dụ 6.11: Biểu thức sau được gọi là biểu thức Boolean:
not (('a'>'c') and ('c'>'C')) or ('B'='b') có giá trị TRUE
Bài 3: CÁC THỦ TỤC XUẤT / NHẬP
Trang 71 Câu lệnh (statement)
a Trong một chương trình Pascal, sau phần mô tả dữ liệu là phần mô tả các câu lệnh Các câu lệnh có nhiệm vụ xác định các công việc mà máy tính phải thực hiện để xử lý các dữ liệu đã được mô tả và khai báo
b Câu lệnh được chia thành câu lệnh đơn giản và câu lệnh có cấu trúc
(xem phần bài đọc thêm)
- Câu lệnh đơn giản
+ Vào dữ liệu : Read, Readln + Ra dữ liệu : Write, Writeln + Lệnh gán : :=
+ Lời gọi chương trình con (gọi trực tiếp tên của chương trình con) + Xử lý tập tin : RESET, REWRITE, ASSIGN
- Câu lệnh có cấu trúc + Lệnh ghép : BEGIN END + Lệnh chọn : IF THEN ELSE CASE OF
+ Lệnh lặp : FOR TO DO REPEAT UNTIL
* Cách viết:
Trang 8- Lưu trữ các giá trị khác nhau vào một ô nhớ tại những thời điểm khác nhau
- Một quá trình tính toán có thể coi như là một quá trình làm thay đổi giá trị của một (hay một số) ô nhớ nào đó, cho đến khi đạt được giá trị cần tìm
b Lệnh ghép (Compound statement)
Một nhóm câu lệnh đơn được đặt giữa 2 chữ BEGIN và END sẽ tạo thành một câu lệnh ghép Trong Pascal ta có thể đặt các lệnh ghép con trong các lệnh ghép lớn hơn bao ngoài của nó và có thể hiểu tương tự như cấu trúc ngoặc đơn ( ) trong các biểu thức toán học
Trang 9Bài 4: CÁC KIỂU DỮ LIỆU CƠ SỞ: INTEGER, REAL, BOOLEAN, CHAR
1 Khái niệm
Dữ liệu (data) là tất cả những gì mà máy tính phải xử lý
Theo Niklaus Wirth: CHƯƠNG TRÌNH = THUẬT TOÁN + CẤU TRÚC DỮ LIỆU
Một kiểu dữ liệu (data type) là một qui định về hình dạng, cấu trúc và giá trị của
dữ liệu cũng như cách biểu diễn và cách xử lý dữ liệu
Trong Pascal các kiểu dữ liệu gồm các loại sau:
- Kiểu đơn giản (Simple type): bao gồm kiểu số nguyên (Integer), kiểu số thực (Real), kiểu logic (Boolean), kiểu ký tự (Char)
- Kiểu có cấu trúc (Structure type): bao gồm mảng (Array), chuỗi (String), bản ghi (Record), tập hợp (Set), tập tin (File)
- Kiểu chỉ điểm (pointer):
Trong chương này, chúng ta chỉ xét các kiểu dữ liệu đơn giản
2 Kiểu số nguyên (Integer type)
a Kiểu số nguyên (thuộc Z) chứa trong Turbo Pascal
Ðược định nghĩa với các từ khóa sau:
b Các phép toán số học đối với số nguyên: +, -, *, /, DIV (Chia lấy phần
nguyên), MOD (Chia lấy phần dư), SUCC (n) (lấy n + 1), PRED (n) (lấy n – 1),ODD (n) (TRUE nếu n lẻ và FALSE nếu n chẵn )
Trang 103 Kiểu số thực (Real type)
Ở Turbo Pascal, kiểu số thực thuộc tập hợp R chứa trong 6 bytes, được định nghĩa với từ khóa REAL: R =([2.9 x 10-39 , 1.7 x 1038 ]
Hay viết theo dạng số khoa học: R = ( [2.9E-39, 1.7E38]
Số thực có thể viết theo kiểu có dấu chấm thập phđn bình thường hoặc viết theo kiểu thập phđn có phần mũ vă phần định trị
Câc phĩp toân số học cơ bản +, -, * , /dĩ nhiín được sử dụng trong kiểu real Bảng dưới đđy lă câc hăm số học cho kiểu số thực:
ABS (x) : lấy giâ trị tuyệt đối của số x
SQR (x) : lấy bình phương trị số x
SQRT(x) : lấy căn bậc 2 của trị số x
SIN(x) : lấy sin của x
COS (x) : lấy cos của x
ARCTAN (x) : arctang (x)
LN (x) : lấy logarit nepe của trị x (e ( 2.71828)
EXP (x) : ex
TRUNC (x) : lấy phần nguyín lớn nhất không vượt quâ trị số x
ROUND (x) : lăm tròn giâ trị của x, lấy số nguyín gần x nhất
4 Kiểu logic (Boolean)
Một dữ liệu thuộc kiểu BOOLEAN lă một đại lượng được chứa trong 1 byte ở Turbo Pascal vă chỉ có thể nhận được một trong hai gía trị logic lă TRUE (đúng)
vă FALSE (sai)
Qui ước: TRUE > FALSE
Câc phĩp toân trín kiểu Boolean:
· Phĩp AND (vă) chỉ cho kết quả lă TRUE khi cả 2 toân hạng lă TRUE
· Phĩp OR (hoặc) chỉ cho kết quả lă FALSE khi cả 2 toân hạng lă FALSE
Trang 11· Phép XOR (hoặc triệt tiêu) luôn cho kết quả là TRUE khi cả 2 toán hạng
là khác nhau và ngược lại
Các phép toán quan hệ cho kết quả kiểu Boolean:
5 Kiểu ký tự (Char type)
Tất cả các dữ liệu viết ở dạng chữ ký tự được khai báo bởi từ khóa CHAR Một ký tự được viết trong hai dấu nháy đơn ( ) Ðể tiện trao đổi thông tin cần phải sắp xếp, đánh số các ký tự, mỗi cách sắp xếp như vậy gọi là bảng mã Bảng
mã thông dụng hiện nay là bảng mã ASCII (xem lại chương 3)
Ðể thực hiện các phép toán số học và so sánh, ta dựa vào giá trị số thứ tự mã ASCII của từng ký tự, chẳng hạn: 'A' < 'a' vì số thứ tự mã ASCII tương ứng là
65 và 97
Trong Turbo Pascal mỗi ký tự được chứa trong 1 byte
Các hàm chuẩn liên quan đến kiểu ký tự:
ORD(x): Cho số thứ tự của ký tự x trong bảng mã
CHR(n) hay #n : Cho ký tự có số thứ tự là n
PRED(x) : Cho ký tự đứng trước x
SUCC(x) : Cho ký tự đứng sau x
Trang 12Bài 5: MỘT SỐ CẤU TRÚC ĐIỀU KHIỂN
I/ CấU TRÚC Rẽ NHÁNH :
1 Câu lệnh IF THEN và IF THEN ELSE
Chú ý:
- Ðiều kiện là một biểu thức Boolean
- Nếu <Công việc>sau THEN hoặc ELSE có nhiều hơn một lệnh thì ta phải gói lại trong BEGIN END;
- Toàn bộ lệnh IF THEN ELSE xem như 1 lệnh đơn
Writeln (' Căn số bậc 2 của , a : 2 : 2 , la , SQRT(a) :10 : 3 ');
Writeln (' Nhấn ENTER để thoát ') ;
Readln; {Dừng màn hình để xem kết quả}
END
Ghi chú:
Trong chương trình trên, a ta thấy có dạng a :m :n với ý nghĩa m là số định khoảng mà phần nguyên của a sẽ chiếm chỗ và n là khoảng cho số trị phần thập phân của a
Trang 132/ Câu lệnh CASE OF
* Cách viết, ý nghĩa:
CASE <Biểu thức > OF Xét giá trị của biểu thức chọn
GT1 : Công việc 1 ; Nếu có giá trị 1 (GT1) thì thi hành Công việc 1
- Lệnh CASE OF có thể không có ELSE
- Biểu thức chọn là kiểu rời rạc như Integer, Char, không chọn kiểu Real
- Nếu muốn ứng với nhiều giá trị khác nhau của biểu thức chọn vẫn thi hành mộtlệnh thì giá trị đó có thể viết trên cùng một hàng cách nhau bởi dấu phẩy (,) : Giá trị k1, k2, , kp : Lệnh k ;
Readln;
END
Trang 15logic của điều kiện là Ðúng hay Sai thì chương trình sẽ thực hiện Công việc tương ứng
· Nếu Sai thì chuyển xuống dưới cấu trúc WHILE DO
Writeln (' Trung bình là =' , average : 10 : 3 ) ;
Writeln (' Nhấn Enter để thoát ' ) ;
Trang 16Bài 1: (3,5đ) Nhập vào 3 số nguyên In ra màn hình số lớn nhất.
Bài 2: (3,5đ) Nhập vào một số nguyên Tìm các ước của số đó.
Bài 3: (4đ) Nhập vào một số nguyên dương n và tính S = 1 1 1 1
1 2 3 + + + +n
Trang 17Bài 4: (4đ) Kiểm tra một số nguyên n nhập vào có phải là số nguyên tố hay
không
Bài 5: (5đ) Tìm UCLN và BCNN của 2 số nguyên a và b nhập từ bàn phím.
Lưu ý: Các bài làm lưu trên thư mục gốc ổ đĩa D:\ với tên tương ứng là
BL1.PAS, BL2.PAS, BL3.PAS, BL4.PAS, BL5.PAS.
ĐỀ 3:
Bài 1: (3đ) Lãi suất tiết kiệm ngân hàng là t%/ tháng (t nhậo từ bàn phím)
a/ Nhập số vốn ban đầu n và số tháng cần gởi k tính tổng số tiền cả vốn lẫn lãi nhận được sau k tháng
b/ Nhập số vốn ban đầu n và số tiền cần nhận m Tính số tháng cần gởi.c/ Nhập số tiền cần nhận m và số tháng gởi k Tính số vốn cần gởi ban đầu
Bài 2: (2đ) Kiểm tra xem 2 số nguyên dương nhập vào có phải là 2 số nguyên tố
cùng nhau hay không
Bài 3: (3đ) Nhập vào một số thực a (a>0) Tìm n bé nhất để 1 1 1 1
Bài 5: (3đ) Nhập dãy số thực a1 đến ak Tính tổng a1-a2+a3-…
Bài 6: (3đ) Nhập dãy số thực a1 đến ak Tìm các số trong dãy bằng tổng của 2 số khác trong dãy
Bài 7: (3đ) Nhập dãy số thực a1 đến ak Tìm 3 phần tử trong dãy có tổng lớn nhất
Lưu ý: Các bài làm lưu trên thư mục gốc ổ đĩa D:\ với tên tương ứng là
BL1.PAS, BL2.PAS, BL3.PAS, BL4.PAS, BL5.PAS, BL6.PAS, BL7.PAS.
ĐỀ 4:
Trang 18Bài 1: (1đ) Nhập một số thực x nếu x> thì tính căn bậc hai của x, ngược lại thì
thông báo x không phải là số dương
Bài 2: (2đ) Nhập dãy số nguyên Tính trung bình cộng của các số chẵn.
Bài 3: (1,5đ) Nhập dãy số thực a Tính trung bình cộng các số âm.
Bài 4: (1,5đ) Nhập số nguyên n Liệt kê các số nguyên a, b, c trong khoảng [1;
n] thỏa nãm hệ thức Pytago a2 + b2 = c2
Bài 5: (2đ) Nhập dãy số thực a Tìm các số của dãy bằng tổng của 2 số khác
trong dãy
Bài 6: (2đ) Nhập dãy số thực Tìm 3 phần tử của dãy có tổng lớn nhất.
Lưu ý: Các bài làm lưu trên thư mục gốc ổ đĩa D:\ với tên tương ứng là
BL1.PAS, BL2.PAS, BL3.PAS, BL4.PAS, BL5.PAS, BL6.PAS.
ĐỀ 5:
Bài 1: (3đ) Nhập vào dãy N số nguyên Tìm số lớn nhất.
Bài 2: (3đ) Phân tích số nguyên n ra tích các thừa số nguyên tố.
Bài 3: (3đ) Nhập 2 số nguyên Đổi chỗ 2 số cho nhau
Bài 4: (3đ) Tính tổng nghịch đảo của n số nguyên (viết hàm để tính)
Bài 5: (4đ) Tìm các số nguyên tố từ 1 đến 100.
Bài 6: (4đ) Tìm tập hợp các kí tự không xuất hiện trong một chuỗi nhập vào từ
bàn phím
Lưu ý: Các bài làm lưu trên thư mục gốc ổ đĩa D:\ với tên tương ứng là
BL1.PAS, BL2.PAS, BL3.PAS, BL4.PAS, BL5.PAS, BL6.PAS.
Trang 19a/ Đó có phải là 3 cạnh của một tam giác hay không?
b/ Đó có phải là 3 cạnh của tam giác vuông hay không?
Bài 3: (7đ) Nhập 4 số thực a, b, c, d và thực hiện:
a/ Tìm xem có bao nhiêu số dương, bao nhiêu số âm
b/ Tính giá trị trung bình của các số trên
c/ Tính tổng bình phương của các số trên
Bài 4: (4đ) Nhập vào số tự nhiên N và:
a/ Cho biết N có bao nhiêu chữ số
b/ Tính tổng các chữ số của N
Lưu ý: Các bài làm lưu trên thư mục gốc ổ đĩa D:\ với tên tương ứng là
BL1.PAS, BL2.PAS, BL3.PAS, BL4.PAS.
MỘT SỐ BÀI TOÁN ÔN LUYỆN:
Bài 1: Viết chương trình tính tích các số từ 1 đến n.
Bài 2:Viết chương trình tính tổng nghịch đảo từ 1 đến n.
Bài 3: Viết chương trình tìm ước của n.
Bài 4: Viết chương trình tính tổng nghịch đảo giai thừa từ 1 đến n:
S=1/1! + 1/2! + … + 1/n!
Bài 5: Viết chương trình thỏa mãn a2 + b2 = c3 (pytago) chạy từ 1 đến n
Bài 6: Viết chương trình tìm UCLN, BCNN của a và b.
Bài 7: Nhập số n, cho biết đó có phải là số nguyên tố không?
Bài 8: Nhập vào 1 số Phân tích ra thừa số nguyên tố.
Bài 9: Dãy số tự nhiên An có tính chất sau: