Rumah Info | Rumah Semua Informasi

if you input two big number... you must add it and write that answer
example:
Input
1234567890987654321
9876543210123456789
Output
11111111102222222211
you can't change tipe data to longint, because longint until two millions only..
So, how do we solve this problem?
OK... try to read this code carefully
-----------------------------------------------------------------------------
program hitungtambah;
uses crt;
var
a : array[0..1000] of string;
bil1,bil2 : string;
nol : string;
len1,len2 : byte;
x,y,z : byte;
max,i : byte;
begin
clrscr;

write('masukkan bilangan 1 : '); readln(bil1);
write('masukkan bilangan 2 : '); readln(bil2);
nol := '';
z := 0;
len1 := length(bil1);
len2 := length(bil2);
max := len1;
if (len2 > max) then begin
max := len2;
end;
for i := 0 to max do
begin
if (i < len1) then begin
x := ord(bil1[len1 - i]) - $30;
end else begin
x := 0;
end;

if (i < len2) then begin
y := ord(bil2[len2 - i]) - $30;
end else begin
y := 0;
end;

z := x + y + z;
if (z > 9) then begin
a[i] := chr(z + 38); {konvert dari z - 10}
z := 1;
end else begin
a[i] := chr(z + 48); {konvert dari z}
z := 0;
end;
if (a[max] = '0') then begin
a[i] := '';
end;
end;
for i := max downto 0 do
begin
nol := nol + a[i];
end;
writeln(nol);
readln;
end.
-----------------------------------------------------------------------------