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 - Differenza tra maiuscole e minuscole.
Forum - Pascal - Differenza tra maiuscole e minuscole.

Avatar
Mak (Normal User)
Rookie


Messaggi: 23
Iscritto: 17/08/2008

Segnala al moderatore
Postato alle 17:39
Sabato, 13/09/2008
Ciao a tutti.
Volevo chiedere se si può fare in modo che un programma, con una variabile string, non riconosca la differenza tra le lettere maiuscole e minuscole? Non so se mi sono spiegato bene...

Ultima modifica effettuata da pierotofy il 13/09/2008 alle 20:10
PM Quote
Avatar
pierotofy (Admin)
Guru^2


Messaggi: 6230
Iscritto: 04/12/2003

Segnala al moderatore
Postato alle 20:15
Sabato, 13/09/2008
Certo che si può. Trasforma le due stringhe che devi confrontare tutte in maiuscolo o minuscolo (vedi sotto) e poi confrontale.

Codice sorgente - presumibilmente Delphi
  1. { convert lower case letters to upper case }
  2. For Location := 1 to Length(St) Do
  3.   St[Location] := UPCASE(St[Location]);
  4.  
  5. { convert upper case letters to lower case }
  6. Valid_Ch := ['A'..'Z'];
  7. For Location := 1 to Length(St) Do
  8.   If St[Location] IN Valid_Ch
  9.     Then St[Location] := CHR(ORD(St[Location]) + 32);

Il mio blog: https://piero.dev
PM Quote
Avatar
Mak (Normal User)
Rookie


Messaggi: 23
Iscritto: 17/08/2008

Segnala al moderatore
Postato alle 15:39
Mercoledì, 17/09/2008
Grazie per la risposta, anche se non ho molto capito...
Quindi, se io ho questo codice (preso da questo sito):
Codice sorgente - presumibilmente Delphi
  1. Program password;
  2. Uses Crt;
  3. Var parola:string[40];
  4. begin
  5.     clrscr;
  6.     writeln(‘Immettere la password: ‘);
  7.     readln(parola);
  8.     if parola=’Pascal’ Then
  9.       writeln(‘Bravo!’)
  10.     else                    
  11.       begin
  12.       TextColor(5);
  13.       TextBackGround(15);
  14.       writeln(‘Sbagliato!’);
  15.       end;
  16.     readln
  17. end.

come uso il codice? Grazie

PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 15:48
Mercoledì, 17/09/2008
in teoria dovrebbe venir cosi

prova un pò


Codice sorgente - presumibilmente Delphi
  1. program password;
  2. uses Crt;
  3. var st:string[40]; location:integer;
  4. begin
  5.     clrscr;
  6.     writeln(‘Immettere la password: ‘);
  7.     readln(st);
  8. { convert lower case letters to upper case }
  9. for Location := 1 to Length(St) do
  10.   St[Location] := UPCASE(St[Location]);
  11.  
  12. { convert upper case letters to lower case }
  13. for Location := 1 to Length(St) do
  14.   if St[Location] in['A'..'Z']
  15.     then St[Location] := CHR(ORD(St[Location]) + 32);
  16.     if st=’pascal’ then
  17.       writeln(‘Bravo!’)
  18.     else                    
  19.       begin
  20.       TextColor(5);
  21.       TextBackGround(15);
  22.       writeln(‘Sbagliato!’);
  23.       end;
  24.     readln
  25. end.

Ultima modifica effettuata da Anonymous il 17/09/2008 alle 15:55
PM Quote
Avatar
Mak (Normal User)
Rookie


Messaggi: 23
Iscritto: 17/08/2008

Segnala al moderatore
Postato alle 18:49
Mercoledì, 17/09/2008
Perfetto :k:
un'ultima cosa, le frasi tra parentesi graffe sono commenti? Sarebbe come scrivere (* *)?

PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 19:06
Mercoledì, 17/09/2008
sisi.. sono commenti

PM Quote