Explicacion: Array numeros en caracter al numero que forman.
Publicado por Enrique Martin (15 intervenciones) el 23/01/2019 00:29:38
Buenas Gente:
Haciendo ejercicios de arrays para ir cogiendo soltura y dominarlos, me encuentro con un ejercicio resuelto que dice así:
Escribe un programa que lea en un array de longitud L dada, una serie de números como
caracteres y forme a partir de ellos el número que forman.
Ejemplo: ‘2’, ‘5’, ‘8’, ‘3’----------- 2583
Aquí el código correspondiente:
Me gustaría entender paso a paso como va funcionando el flujo del programa y que va haciendo en cada momento. No consigo descubrir el resultado de la operación numero:= numero*10+ ord(Tabla[i])-ord('0');
En fin, muchas gracias.
Haciendo ejercicios de arrays para ir cogiendo soltura y dominarlos, me encuentro con un ejercicio resuelto que dice así:
Escribe un programa que lea en un array de longitud L dada, una serie de números como
caracteres y forme a partir de ellos el número que forman.
Ejemplo: ‘2’, ‘5’, ‘8’, ‘3’----------- 2583
Aquí el código correspondiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Program NumeroACaracter;
uses
crt;
Const
L=5;Var
Tabla: array [1..L] of char;
i: integer; numero: integer;Begin
for i:= 1 to L do
begin
writeln('Introduce el caracter numerico ',i,' ');
readln(tabla[i]);
end;
numero:=0;
i:=1;
while (i<=L)and Not(ord(Tabla[i])=0)do
begin
numero:=numero*10+ ord(tabla[i])- ord('0');
i:=i+1;
end;
writeln('El numero formado es: ',numero);
readln;
end.Me gustaría entender paso a paso como va funcionando el flujo del programa y que va haciendo en cada momento. No consigo descubrir el resultado de la operación numero:= numero*10+ ord(Tabla[i])-ord('0');
En fin, muchas gracias.
Valora esta pregunta
0