Lỗi String trong Turbo Pascal

Lỗi String trong Turbo Pascal

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 !