Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - trasformare caratteri maiuscoli in minuscolo
Forum - Pascal - trasformare caratteri maiuscoli in minuscolo

Avatar
fedina (Normal User)
Newbie


Messaggi: 2
Iscritto: 30/10/2008

Segnala al moderatore
Postato alle 18:02
Giovedì, 30/10/2008
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 il 30/10/2008 alle 18:15
PM Quote
Avatar
Progman-92 (Member)
Expert


Messaggi: 368
Iscritto: 16/12/2007

Segnala al moderatore
Postato alle 19:45
Giovedì, 30/10/2008
Ecco il codice di un programma fatto da me che fa a caso tuo :rotfl:
Codice sorgente - presumibilmente Delphi

  1. program ConvertitoreLettere;
  2. uses crt;
  3. var a,c:char;
  4. b,scelta:byte;
  5. begin
  6. clrscr;
  7. textcolor(lightgreen);
  8. gotoxy(30,1);
  9. writeln('Convertitore Lettere');
  10. writeln;
  11. writeln('Premere 1 per convertire un carattere maiuscolo in minuscolo, 2 per il viceversa');
  12. write('scelta = ');
  13. readln(scelta);
  14. if scelta = 1 then
  15. {Questa è la parte che ti interessa per il tuo problema}
  16. begin
  17. repeat
  18. writeln('Inserisci il carattere maiuscolo da convertire');
  19. write('carattere maiuscolo = ');
  20. readln(a);
  21. until ord(a)<=90;
  22. b:=ord(a)+32;
  23. c:=chr(b);
  24. write('carattere minuscolo = ');
  25. write(c);
  26. end
  27. {Finisce qui}
  28. else
  29. begin
  30. repeat
  31. writeln('Inserisci il carattere minuscolo da convertire');
  32. write('carattere minuscolo = ');
  33. readln(a);
  34. until ord(a)>=97;
  35. b:=ord(a)-32;
  36. c:=chr(b);
  37. write('carattere maiuscolo = ');
  38. write(c);
  39. end;
  40. readln;
  41. end.


Spero di averti aiutato :k:

Ultima modifica effettuata da Progman-92 il 30/10/2008 alle 19:47
PM Quote
Avatar
fedina (Normal User)
Newbie


Messaggi: 2
Iscritto: 30/10/2008

Segnala al moderatore
Postato alle 21:50
Giovedì, 30/10/2008
Grazie Grazie Grazie !!!
mi hai salvato !!
Doma ho una verifica e so ben poco
grazie grazie

PM Quote