[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Cộng hai số nguyên lớn
Đây là code của mình ạ, mọi người xem qua thử có đúng không nhé!
const fi='Cong.inp';
fo='Cong.out';
var f,g:text;
st,st1,st2:string;
procedure nhap;
begin
readln(f,st1);
readln(f,st2);
end;
Function Cong(s1,s2:String):String;
Var L1,L2,Max,i,tam,a,b,code,nho:Integer;
h,h1:String;
Begin
L1:=length(s1);
L2:=length(s2);
if L1>L2 Then Max:=L1 Else Max:=L2;
For i:=L1+1 to Max do s1:='0'+s1;
For i:=L2+1 to Max do st:='0'+s2;
nho:=0; h:='';
For i:=Max downto 1 do
Begin
val(s1,a,code);
val(s2,b,code);
tam:=a+b+nho;
if tam>=10 Then nho:=1 Else nho:=0;
str(tam Mod 10,h1);
h:=h1+h; End;
if nho=1 Then h:='1'+h;
cong:=h;
End;
procedure xuat;
Begin
write(g,'Ket qua:',cong(st1,st2));
readln;
End;
begin
assign(f,fi); reset(f);
assign(g,fo); rewrite(g);
nhap;
cong(st1,st2);
xuat;
close(f); close(g);
end.
Đây là code của mình ạ, mọi người xem qua thử có đúng không nhé!
const fi='Cong.inp';
fo='Cong.out';
var f,g:text;
st,st1,st2:string;
procedure nhap;
begin
readln(f,st1);
readln(f,st2);
end;
Function Cong(s1,s2:String):String;
Var L1,L2,Max,i,tam,a,b,code,nho:Integer;
h,h1:String;
Begin
L1:=length(s1);
L2:=length(s2);
if L1>L2 Then Max:=L1 Else Max:=L2;
For i:=L1+1 to Max do s1:='0'+s1;
For i:=L2+1 to Max do st:='0'+s2;
nho:=0; h:='';
For i:=Max downto 1 do
Begin
val(s1,a,code);
val(s2,b,code);
tam:=a+b+nho;
if tam>=10 Then nho:=1 Else nho:=0;
str(tam Mod 10,h1);
h:=h1+h; End;
if nho=1 Then h:='1'+h;
cong:=h;
End;
procedure xuat;
Begin
write(g,'Ket qua:',cong(st1,st2));
readln;
End;
begin
assign(f,fi); reset(f);
assign(g,fo); rewrite(g);
nhap;
cong(st1,st2);
xuat;
close(f); close(g);
end.
Last edited:
