Programación General > Pascal

 Duda Basica: Pasar De Mayuscula A Minuscula

(1/1)

lostguardian:
hola a todos, recientemente haciendo problemas me han planteando esta pregunta, y bueno se que ai una funcion que lo ace solo, como UPCASE lo es para pasr de minuscula a mayuscula. pero cual es la funcion para pasar de mayus  a minus? toi perdio ^^

Enko:
creo que en turbo pascal la funciona se llamaba "LowCase" o "LowerCase".

JrcsDev:
Como ya se ha dicho, para mayúscula es UPCASE... y solo convierte a mayúscula un caracter a la vez, por eso hay que usar un FOR en su implementación, y recorrer la cadena caracter por caracter para transformarla por completa...

La verdad es que nunca he visto una función que haga eso en pascal, por eso tuve que hacer esta... probablemente no sea el método más apropiado... pero bueh!!! funciona bien... Espero te sirve...

Aquí te dejo una función que hice para solventar ese problema:


--- Código: Text ---uses crt; function minuscula(txt: string): string;var i: integer;Begin     for i:=1 to length(txt) do     Begin          if (ord(txt[i])>=65) and (ord(txt[i])<=90) then          Begin               txt[i]:=chr((ord(txt[i])+32));          End          else          Begin               case txt[i] of                    'Á': txt[i]:='a';                    'É': txt[i]:='e';                    'Í': txt[i]:='i';                    'Ó': txt[i]:='o';                    'Ú': txt[i]:='u';                    'Ñ': txt[i]:='ñ';               end;          end;     End;     minuscula:=txt;End;Begin     clrscr;     gotoxy(2,2);write('Ingresa una cadena: ');     readln(cad);     cad:=minuscula(cad);     gotoxy(2,5);write('Se ha transformado la cadena en minuscula:');     gotoxy(2,7);write(cad);     readkey;End. 
 :comp:

Navegación

[0] Índice de Mensajes