Tablas de multiplicar algoritmo

  En un principio se utilizaba el ábaco pero cuando las cantidades eran demasiado grandes esto suponía un problema para ir registrando los resultados de la contabilidad y entonces los grandes matemáticos del pasado inician la sumatoria simplificada que es la multiplicación o sea sumar un numero n veces por si mismo para evitar hacer el procedimiento de cada una de las iteraciones.

  Hoy vamos a desarrollar un pequeño algoritmo para imprimir las ya famosas tablas de multiplicar del 1 al 10, para esto realizamos dos ciclos en el Proceso tablasMultiplicar y un ciclo más en el SubProceso ajustarCadena que retorna una cadena de texto limitada en caracteres para tener una mejor presentación de las tablas. 

Algoritmo en PSeInt:

Proceso tablasMultiplicar
Definir i,n Como Entero;
Definir linea,espacio Como Texto;
tabla<-"";i<-1;n<-1;
espacio<-"  ";
Mientras (i<11) Hacer
linea<-"";
Para n<-1 Hasta 10 Con Paso 1 Hacer

linea<-linea+ajustarCadena(ConvertirATexto(n)+" x "+ConvertirATexto(i)+" = "+ConvertirATexto(n*i));

Fin Para
Escribir linea;
i<-i+1;
Fin Mientras
FinProceso

SubProceso cadAjustada<-ajustarCadena(cad)
Definir cadAjustada Como Texto;
Definir i Como Entero;

cadAjustada<-"";
Para i<-0 Hasta 12 Con Paso 1 Hacer
cad<-cad+" "
Fin Para
cadAjustada<-Subcadena(cad,0,12);
FinSubProceso