La programación de vf requiere programación Pregunta: Ingrese una cadena y busque las letras mayúsculas, minúsculas y números. Y cuenta el caso

No existe un entorno VF. Los siguientes programas no han sido depurados. Si hay errores, se pueden depurar más:

CLEA

STOR 0 TO. X

STOR 0 A Y

STOR 0 A Z

dime A(26) amp; Definir una matriz unidimensional

dime B(26) amp; amp;Definir matriz unidimensional

dime C(10) amp;Definir matriz unidimensional

ACCE "Por favor ingrese una cadena :" A S

PARA N=1 A LEN(S) PASO 1

S1=SUBS(S, N, 1)

t=ASC( S1)

SI (( S1gt;="A") AND (S1lt;="Z"))

x=x 1

A(t -65)=A(t-65) 1

ENDIF

IF ((S1gt;="a") AND (S1lt;="z"))

y=y 1

B(t-97)=A(t-97) 1

ENDIF

IF ((S1gt;=" 0") Y (S1lt;="9") )

Z=Z 1

C(t-48)=C(t-48) 1

ENDIF

ENDFOR

IF Xgt; 0

?"Las letras mayúsculas son: "

FOR i=0 TO 25

IF A(i)gt ;0

?CHR(65 i)

ENDIF

ENDFOR

ENDIF

IF Ygt; 0

?"Las letras minúsculas son: "

FOR i=0 TO 25

IF B (i)gt; 0

CHR(97 i)

ENDIF

ENDFOR

ENDIF

IF Zgt; 0

?" número Los caracteres son: "

FOR i=0 TO 25

IF C(i)gt; >

?CHR(48 i)

ENDIF

ENDFOR

ENDIF "El número de letras mayúsculas es:", X "El número de letras minúsculas letras es:", Y "El número de caracteres numéricos es:", Z