* Các kiểu số nguyên
Ngoài kiểu Integer là thông dụng nhất, các số nguyên còn được chia ra thành 4 kiểu nữa đó là: Byte, Word, ShortInt và LongInt. Bảng 3.1 liệt kê chi tiết về tên gọi, phạm vi giá trị và độ dài tính theo đơn vị byte của từng kiểu nguyên.
Tên kiểu Phạm vi giá trị Số byte
ShortInt -128 .. 127 1
Byte 0..255 1
Integer -32768 .. 32767 2
Word 0 .. 65535 2
LongInt -2147483648 .. 2147483647 4
Các biến nguyên chỉ có thể nhận các giá trị là các số nguyên nằm trong phạm vi giá trị của biến đó. Khi gán cho một biến một số nguyên nằm ngoài phạm vi của biến thì máy sẽ báo lỗi: "Const out of range". Ví dụ, cho khai báo:
Var i: Byte;N: Integer; thì các lệnh dưới đây là đúng:
i:= 200; N:= -1500;
còn các lệnh dưới đây là bị lỗi: i:= -5;
N:= 50000;
Ðặc biệt không thể gán một số thực cho một biến nguyên. Câu lệnh sau là sai: N:= 12.5 ;
Khi gặp tình huống này, máy sẽ báo lỗi "Type mismatch".
Chú ý:
Các số nguyên hệ thập lục phân (hệ 16) được biểu diễn bằng cách viết thêm dấu $ ở trước số, ví dụ ba số dưới đây: $A , $FF và $10
là các số nguyên viết trong hệ 15. Chúng có giá trị tương ứng trong hệ 10 là: 10 , 255 và 16
* Các phép toán số học trên số nguyên
• Phép cộng và trừ: ký hiệu + và - như thường lệ.
• Phép nhân: ký hiệu bằng dấu *, ví dụ 4*2 cho kết quả là 8.
• Phép chia: ký hiệu bằng dấu / , ví dụ 6/4 cho kết quả là 1.4.
• Phép chia lấy phần nguyên: ký hiệu bằng từ khóa DIV.
• Phép lấy phần dư nguyên của phép chia: ký hiệu bằng từ khóa MOD.
Ví dụ: 15 DIV 6 cho kết quả là 2. 15 MOD 6 cho kết quả là 3.
Các phép toán trên đều cho kết quả là các số nguyên, trừ ra phép chia (/ ) luôn cho kết quả là một số thực. Vì thế nếu N là một biến nguyên, mà gán:
N:= 20/5;
thì máy sẽ báo lỗi, bởi vế phải có giá trị kiểu thực (=3.0) mặc dù phần lẻ bằng không.
Nhận xét: số nguyên N là chẵn nếu N mod 2 = 0 (tức N chia hết cho 2), ngược lại, là lẻ nếu N mod 2 <> 0. (dấu <> trong Pascal có nghĩa là khác nhau ).
Thứ tự thực hiện các phép toán cũng giống như thường lệ:
Các biểu thức trong (...) được tính trước tiên, kế đến là *, /, div, mod và sau cùng là +, -. Ðối với các phép toán cùng thứ tự mà đứng liền nhau thì phép toán nào đứng trước được làm trước.
Ví dụ: tính biểu thức sau:
15 mod (2 +4) * 20 div (10 div 4) + 40 mod (5* 3) =15 mod 6 * 20 div 2 + 40 mod 15
= 3 * 20 div 2 + 10 = 60 div 2 + 10 = 30 + 10 = 40
Ví dụ sau đây là một ứng dụngcủa các phép toán div, mod:
Ví dụ: Nhập một số tiền N đồng, đổi ra xem được bao nhiêu tờ 5 đồng, bao nhiêu tờ 2 đồng, bao nhiêu tờ 1 đồng sao cho tổng số tờ là ít nhất. Ví dụ N=43 đ = 8 tờ 5 đ + 1 tờ 2 đ + 1 tờ 1 đ. Cách tính như sau:
Số tờ 5 đ = 43 div 5 = 8 Số tiền dư = 43 mod 5 = 3
Số tờ 2 đ = Số tiền dư div 2 = 3 div 2 =1 Số tờ 1 đ = Số tiền dư mod 2 = 3 mod 2 = 1 Dưới đây là chương trình cụ thể:
PROGRAM VIDU3_1;{ Ðổi tiền } Var N, st5, st2, st1, sodu: LongInt; Begin
Write(‘ Nhap so tien: ’); Readln(N); st5:= N div 5;
Sodu:= N mod 5; { tính phần dư } st2:= Sodu div 2;
st1:= Sodu mod 2;
Writeln(‘ KET QUA DOI TIEN LA: ’ ) ; Writeln(‘ So to 5đ= ‘, st5); Writeln(‘ So to 2đ= ‘, st2); Writeln(‘ So to 1đ=‘, st1); Readln End. * Các phép toán so sánh
Ngôn ngữ Pascal có sáu phép toán so sánh được liệt kê trong bảng 3.2 .
Ký hiệu Ý nghĩa Ví dụ
= bằng nhau x=y
<> khác nhau x<>y
< nhỏ hơn x<y
<= nhỏ hơn hoặc bằng x<=y
> lớn hơn x>y
Bảng 3.2
Kết quả của các biểu thức so sánh là một giá trị lôgic Ðúng (TRUE) hoặc Sai (FALSE). Ví dụ:
Biểu thức 5*2=10 cho kết quả là TRUE. Biểu thức 5+2 <> 7 cho kết quả là FALSE.
Biểu thức 6 div 2 > 10 div 3 cho kết quả là FALSE.
* Các phép toán lôgic trên số nguyên:
Các phép tính NOT, AND, OR, XOR xử lý các bít nhị phân được xác định như sau (bảng 3.3):
NOT 1 = 0 1 AND 1=1 1 OR 1=1 1 XOR 1=0
NOT 0 = 1 1 AND 0=0 1 OR 0=1 1 XOR 0=1 0 AND 1=0 0 OR 1=1 0 XOR 1=1 0 AND 0=0 0 OR 0=0 0 XOR 0=0
Bảng 3.3
Mỗi số nguyên được biểu diễn trong máy dưới dạng một dãy các bít nhị phân. Số kiểu Integer được biểu diễn bằng 16 bit. Ví dụ, số 1 và số 2 có biểu diễn trong máy lần lượt là: 0000 0000 0000 0001
0000 0000 0000 0011
Phép lấy NOT một số nguyên sẽ đảo tất cả các bít biểu diễn số nguyên đó, tức là 0 thành 1, còn 1 thành 0. Ví dụ:
NOT 1 = 1111 1111 1111 1110 NOT 2 = 1111 1111 1111 1100
Phép lấy AND, OR, XOR hai số nguyên được tiến hành bằng cách AND, OR, XOR từng cặp bít tương ứng của hai số đó, ví dụ:
1 OR 2 = 0000 0000 0000 0011= 2 1 AND 2 = 0000 0000 0000 0001= 1
N SHR k: dịch các bít của số nguyên N sang phải đi k bít. N SHL k: dịch các bít của số nguyên N sang trái đi k bít. Có thể chứng minh được: N SHR k = N div 2k N SHL k = N * 2k Ví dụ: 120 shr 4 = 7, vì: 120 shr 4 = 120 div 24 = 120 div 16 = 7. 120 shl 3 = 960, vì: 120 shl 3 = 120 * 23 = 120 * 8 = 960.
Hai phép toán SHR và SHL được dùng khi muốn tăng tốc độ tính toán trên các số nguyên. * Các hàm có đối số nguyên
Hàm PRED(k): đối số k nguyên, trả về số nguyên đứng ngay trước k, tức là k-1. Ví dụ: Pred (5) = 4, Pred (-6) = -7.
Hàm SUCC(k): đối số k nguyên, trả về số nguyên đứng ngay sau k, tức là k+1 . Ví dụ: Succ (5) = 6, Succ (-6) = -4.
Nhận xét:
Lệnh k:=k+1; tương đương với lệnh k:=Succ(k); Lệnh k:=k-1; tương đương với lệnh k:=Pred(k);
Hàm ODD(k): đối số k nguyên, trả về giá trị logic là TRUE nếu k lẻ, là FALSE nếu k chẵn.
Ví dụ:
Odd(15) = True Odd(4) = False.
Ví dụ: Nhập số nguyên N, nếu N chẵn thì in ra chữ chẵn, nếu N lẻ thì in ra chữ le. Chương trình như sau:
PROGRAM VIDU3_2; Var N: Integer;
Begin
If Odd(N) = TRUE then write(N, ‘ La so le’) Else write(N, ‘ La so chan’);
Readln End.
* Các thủ tục có đối số nguyên
Có hai thủ tục khá thông dụng là:
Thủ tục INC(k): tăng k lên một đơn vị. Ví dụ, sau khi thực hiện các lệnh: k:=5;
Inc(k);
thì giá trị sau cùng của k là 5.
Vậy, lệnh Inc(k); tương đương với lệnh k:=k+1; hay k:=Succ(k);
Thủ tục DEC(k): giảm k đi một đơn vị. Ví dụ, sau khi thực hiện các lệnh: k:=5;
Dec(k);
thì giá trị của k sẽ là 3.
Vậy, lệnh Dec(k) ; tương đương với lệnh k:=k-1; hay k:=Pred(k);