Algoritmo Multiplicaciones Implicitas - jsyh1/practica_aplicada GitHub Wiki

Proceso MultiplicacionImplicita

Definir expresion, resultado Como Cadena
Definir i, tamano Como Entero
Definir caracterActual, caracterSiguiente Como Caracter

Escribir "Ingrese la expresión:"
Leer expresion

resultado <- ""
tamano <- Longitud(expresion)

Para i <- 1 Hasta tamano Con Paso 1
	
	caracterActual <- SubCadena(expresion, i, i)
	resultado <- resultado + caracterActual
	
	Si i < tamano Entonces
		
		caracterSiguiente <- SubCadena(expresion, i + 1, i + 1)
		
		Si (EsDigito(caracterActual) O caracterActual = ")") Y caracterSiguiente = "(" Entonces
			
			resultado <- resultado + "*"
			
		SiNo
			
			Si caracterActual = ")" Y EsDigito(caracterSiguiente) Entonces
				
				resultado <- resultado + "*"
				
			FinSi
			
		FinSi
		
	FinSi
	
FinPara

Escribir "Expresión con multiplicación explícita: ", resultado

FinProceso SubProceso resultado <- EsDigito(caracter) Definir resultado Como Logico Definir car Como Caracter resultado <- caracter >= "0" Y caracter <= "9" FinSubProceso