Algoritimos Funções internas!

[DarkTerroR43 0]

Galera, por favor mesmo, me ajudem.

Me mostrem um algoritimo simples dessas funções:

 

Numpcarac -> Esse eu ja consegui fazer um,oq resta são esses tres ai. Por favor galera, alguem ajuda ae.

 

Minusc

Pi

Pos

[Eisenheim 67]

Olá amigo!

 

Divirta-se:

 

algoritmo "semnome"

funcao Posicao( stIni, stString: caractere ) : inteiro
var
 i: inteiro
inicio
 para i de 1 ate compr( stString ) faca
   se stIni = copia( stString, i, compr(stIni) ) entao
     retorne i
     interrompa
   Senao
     retorne 0
   fimse
 fimpara
fimfuncao

funcao Minuscula( c: caractere ): caractere
var
 strLetraM1: caractere
 strLetraM2: caractere
 strRetorno: caractere
 i, x: inteiro
inicio
 strLetraM1 <- "AÁÀÃÉÍÓÔÚÇBCDEFGHIJKLMNOPQRSTUVXYZW"
 strLetraM2 <- "aáàãéíóôúçbcdefghijklmnopqrstuvxyzw"
 strRetorno <- ""

 para i de 1 ate compr( c ) faca
   x <- Posicao( Copia( c, i, 1 ), strLetraM1 )

   Se x > 0 entao
     strRetorno <- strRetorno + Copia( strLetraM2, x, 1 )
   Senao
     strRetorno <- strRetorno + Copia( c, i, 1 )
   Fimse
 fimpara

 Retorne strRetorno

fimfuncao

var

inicio

 escreval( Posicao("son", "jeferson") )
 escreval( Minuscula("JeFErSoN") )

fimalgoritmo

 

Até a próxima. :thumbsup:

[DarkTerroR43 0]

Obrigado mano xD Me ajudou muito!

 

O do POs eu conseguir fazer, oq me falta agora é so o Pi, será que alguem ajuda?