Algoritmia - Dada una frase determinar cuantas palabras hay y cuántas palabras se repiten

p<- 1

tamaño <- longitud(frase)

Para i <- 1 Hasta tamaño Con Paso 1 Hacer

    Si ( Subcadena(frase, i , i)  = ' ' )

        palabra <- Subcadena(frase,p ,i-1)

        p <- i + 1

    FinSi

FinPara

frase <- frase + ' '

tamaño <- longitud(frase)

p <- 1

cantidad <- 0

Para i <- 1 Hasta tamaño Con Paso 1 Hacer

    Si ( Subcadena(frase, i, i) = ' ' ) entonces

        palabra <- subcadena(frase, p , i - 1 )

        cantidad <- cantidad + 1

        p <- i + 1

    FinSi

FinPara

Escribir contador

frase <- frase + ' '

	tamaño <- longitud(frase)

	p <- 1

	cantidad <- 0

	Dimensión vector[1000]

	Para i <- 1 Hasta tamaño Con Paso 1 Hacer

		Si ( Subcadena(frase, i, i) = ' ' ) entonces

			palabra <- subcadena(frase, p , i - 1 )

			cantidad <- cantidad + 1

			p <- i + 1

			vector[cantidad] <- palabra

		FinSi

	FinPara

	Para j <- 1 hasta cantidad Con Paso 1 Hacer

		Escribir j " --> " vector[j]

	FinPara

	contar <- 0

	Para j <- 1 hasta cantidad Con Paso 1 Hacer

		Para k <- j + 1 hasta cantidad Con Paso 1 Hacer

			Si (vector[j] = vector[k])

				Escribir "Las Palabras que se repiten son : " vector[j]

				contar <- contar + 2

			FinSi

		FinPara

	FinPara

	Escribir "La cantidad de palabras de la frase son : " cantidad