Pascal/Turbo Pascal - Explicacion: Array numeros en caracter al numero que forman.

 
Vista:
sin imagen de perfil
Val: 35
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

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:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder