Pascal - trasformare caratteri maiuscoli in minuscolo

30/10/08 17:02

help me!!!
ciao a tutti!!
ho un problema esistenziale nn riesco a trasformare le lettere da maiuscole a minuscole e viceversa.
Vi prego aiutatemi!!
fede

Ultima modifica effettuata da fedina 30/10/08 17:15

aaa

30/10/08 18:45

Progman-92

Ecco il codice di un programma fatto da me che fa a caso tuo :rotfl:

program ConvertitoreLettere;
uses crt;
var a,c:char;
b,scelta:byte;
begin
clrscr;
textcolor(lightgreen);
gotoxy(30,1);
writeln('Convertitore Lettere');
writeln;
writeln('Premere 1 per convertire un carattere maiuscolo in minuscolo, 2 per il viceversa');
write('scelta = ');
readln(scelta);
if scelta = 1 then
{Questa è la parte che ti interessa per il tuo problema}
begin
repeat
writeln('Inserisci il carattere maiuscolo da convertire');
write('carattere maiuscolo = ');
readln(a);
until ord(a)<=90;
b:=ord(a)+32;
c:=chr(b);
write('carattere minuscolo = ');
write(c);
end
{Finisce qui}
else
begin
repeat
writeln('Inserisci il carattere minuscolo da convertire');
write('carattere minuscolo = ');
readln(a);
until ord(a)>=97;
b:=ord(a)-32;
c:=chr(b);
write('carattere maiuscolo = ');
write(c);
end;
readln;
end.

Spero di averti aiutato :k: