Lỗi String trong Turbo Pascal
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (115.83 KB, 4 trang )
Lỗi số lớn và kiểu String trong Turbo Pascal
Trần Hữu Anh
I. Giới thiệu
Trong mỗi ngôn ngữ lập trình thường có một số kiểu dữ liệu chuẩn cho biết phạm vi giá trị
có thể lưu trữ, dung lượng bộ nhớ cần thiết để lưu trữ và xác định các phép toán có thể tác
động lên dữ liệu.
Và trong TP, một số kiểu dữ liệu dạng số như kiểu số nguyên (bao gồm kiểu: byte, integer,
word, login) trong đó kiểu logint (có phạm vi lớn nhất): mỗi giá trị lưu giữ trong 4 byte, giá
trị biến kiểu này nằm trong phạm vi từ - 2¬31 đến 231-1 tức là từ (-2147483648 đến
2147483647) nên chỉ cho phép biến lưu giữ số tối đa có 10 chữ số.
Chính vì vậy khi có sự tác động của các toán tử (+,-, *, /)lên 2 hay nhiều biến kiểu nguyên
có giá trị lớn thì kết quả của phép toán là không chính xác do lỗi tràn số (lỗi do số quá lớn).
Để khắc phục điều này, thay vì dùng các biến kiểu nguyên, ta dùng các biến kiểu String.
Chẳng hạn để thực hiện phép nhân 2 số, (mỗi số có nhiều hơn 10 chữ số) ta dùng 2 biến S1
và S2 kiểu String dùng để lưu 2 xâu số nhập vào (mỗi chữ số trong xâu là một kí tự) và
dùng biến S để lưu kết quả phép nhân.
Việc nhân 2 xâu số có thể minhhoạ như sau (như phép nhân trong SGK môn Toán tiểu
học)
Nên theo ý đó, ta chia bài này toán thành các modul sau: Modul 1: Function Tích1 (S1,
S2:String) : String, có giá trị trả về là tích 2 xâu S1, S2 (trong đó xâu số S2 chỉ có 1 chữ số)
Modul 2: Function Tong (S1, S2:String) :String, có giá trị trả về là tổng 2 xâu S1, S2.
Modul 3: Function Tích (S1, S2:String) : String, có giá trị trả về là tích 2 xâu S1, S2 (trong
đó S1, S2 là 2 xâu số nguyên độ dài tối đa 255 kí tự).Để chi tiết hơn, ta minh họa Modul 2
theo sơ đồ sau:
Trong ví dụ trên, ta giả sử ( S1: = 12345678909, S2: = 4567893).
- Nếu 2 xâu có độ dài khác nhau, ta thêm các kí tự ‘0’vào trước xâu có độ dài ngắn hơn
( số kí tự ‘0’ cần thêm bằng hiệu độ dài 2 xâu).
- Duyệt từng vị trí từ cuối xâu cho đến vị trí đầu tiên của xâu qua biến chỉ số i (ban đầu i:=
length(S1)). Với mỗi i ta thực hiện một số thao tác được minh họa như trên hình vẽ ( sau
mỗi lần thực hiện những thao tác đó, gán i:=i-1) cho đến khi i=1. Song cần lưu ý khi cộng
2 chữ số cuối cùng (2 kí tự đầu tiên của S1 và S2). Nếu tổng của 2 số này và biến nhớ
trước đó (nếu có) >=10 thì cần thêm kí tự ‘1’ vào đầu xâu tổng S.
Như vậy, thông qua một số thao tác trên cho đến khi i = 0, ta có biến S lưu giữ giá trị tổng
của 2 xâu số nguyên ( độ dài tối đa 255 kí tự). Lúc này, ý tưởng đã rõ ràng, xin đi vào phần
cài đặt cụ thể.
Modul1
Function Tích1(S1, S2:String) : String;
Var so, so1, so2, i, k, nho: Integer;
t, t1, s: String;
Begin
Val ( s2, so2, k); nho:=0; S:=’’;
For i:= Length (S1) Downto 1 Do
Begin
t1:= S1[i]; Val(t1, so1, k);
so:=so1 * so2 + nho;
nho:= so Div 10;
so:= so Mod 10;
Str(so, t); S:= t + S;
End;
If nho > 0 Then
Begin
Str( nho, t); S: = t + S;
End;
Tich1: = S;
End;
Modul2
Function Tong ( s1, s2: string ): string;
Var i, so, so1, so2, k, nho: Integer;
t1, t2: Char; s, t: String;
Begin
If Length(S1) < Length(S2) Then
For i:= 1 To Length(S2)-Length(S1) Do S1:=’0’ + S1
Else For i:= 1 To Length(S1)-Length(S2) Do S2:=’0’ + S2;
S:=’’; nho:=0;
For i:= Length(S1) Downto 1 Do
Begin
t1:=S1[i]; t2:= S2[i];
Val ( t1, so1, k); Val (t2, so2, k);
so:=so1 + so2 + nho; nho:= so Div 10;
so:= so Mod 10; Str( so, t); S:= t + S;
End;
If nho=1 Then S:= ’1’ + S;
Tong:=S;
End;
Modul 3
Function Tích (S1, S2:String) : String;
Var i, dem: Integer;
S, SS, t: String;
Begin
S:=’0’; dem:= -1;
For i:= Length(S2) Downto 1 Do
Begin
t:=S2[i];
SS:= Tich1(s1,t); dem:=dem+1;
For i:= 1 To dem Do SS:=SS+’0’;
S:= Tong(S,SS);
End;
Tich:=S;
End;
Chương trình chính
Var S1,S2: String;
BEGIN
Write(‘ Nhap xau so S1:’); Readln(S1);
Write(‘ Nhap xau so S2:’); Readln(S2);
Writeln(‘ Tong 2 xau so la: ‘, Tong(S1, S2));
Writeln(‘ Tich 2 xau so la: ’, Tich(S1,S2));
Readln;
END.
Trong Modul3, việc tính các tích thành phần và tính tổng của các tích đó, ta chỉ việc thực
hiện lời gọi hàm đã được xây dựng ở các Modul1 và Modul2.Hi vọng rằng, bài viết này sẽ
phần nào giúp các em HS THPT hiểu thêm các thao tác trên xâu, và có thể thực hiện được
một số phép toán đơn giản trên một số đối tượng mà không hoàn toàn phụ thuộc vào các
kiểu dữ liệu định trước. Chúc các em thành công !
