{Esto servirá} program numerosuma;
uses
crt;
type
numeros = array[1..100] of integer;
var
numero : array[1..2] of numeros;
result : array[1..110] of integer;
m, p, ii, cont, da : integer;
procedure entradanumeros(var sum1, sum2 : numeros);
var
tec : char;
begin
clrscr;
cont := 1;
gotoxy(3,1);write('Entre sumando : '); repeat
tec := readkey;
if tec in[#48..#57] then
begin
numero[1][cont] := ord(tec) - 48;
gotoxy(18 + cont,1);write(tec);
cont := cont + 1;
end;
if tec = #8 then
begin
cont := cont - 1;
numero[1][cont] := 0;
gotoxy(18 + cont,1);write(' '); end;
until tec = #13;
da := 1;
gotoxy(3,2);write('Entre sumador : '); repeat
tec := readkey;
if tec in[#48..#57] then
begin
numero[2][da] := ord(tec) - 48;
gotoxy(18 + da,2);write(tec);
da := da + 1;
end;
if tec = #8 then
begin
da := da - 1;
numero[2][da] := 0;
gotoxy(18 + da,2);write(' '); end;
until tec = #13;
end;
procedure suma(en1, en2 : numeros);
var
d, i : integer;
res, te : integer;
begin
i := 1;
for d := 1 to cont - 1 do
begin
gotoxy(30 + i,3);write(numero[1][d]);
i := i + 1;
end;
i := 1;
for d := 1 to da - 1 do
begin
gotoxy((30 + ((cont - 1) - (da - 1))) + i,4);write(numero[2][d]);
i := i + 1;
end;
for i := 1 to cont do
begin
gotoxy(30 + i,5);write('-'); end;
gotoxy(28,4);write('+'); d := cont - 1;
res := 0;
p := da - 1;
m := 1;
repeat
i := (numero[1][d] + numero[2][p]) + res;
res := 0;
te := i mod 10;
i := i div 10;
res := i;
result[m] := te;
m := m + 1;
p := p - 1;
d := d - 1;
until d < 1;
if res > 0 then
begin
result[m] := res;
m := m + 1;
end;
end;
begin
entradanumeros(numero[1],numero[2]);
clrscr;
suma(numero[1],numero[2]);
ii := 1;
for da := 1 to m - 1 do
begin
gotoxy(30 + ii,6);write(result[m - da]);
ii := ii + 1;
end;
readkey;
end.
Crear cuenta
