ONLINE COMPILERS
LIBRARY
MANUAL PAGES & DOCS
CONTACT
Latest Users' Questions
User Submitted Source Code!
Description:
progroccaro
Language: PASCAL
Code:
progroccaro
Language: PASCAL
Code:
program program ConvertitoreLettere;
uses crt;
var a,c:char;
b,scelta,numchar,count:integer;
begin
writeln('Convertitore lettere maiuscolo/minuscolo e viceversa');
writeln('Scegli quanti caratteri vuoi inserire');
readln(numchar); // Indica il numero di caratteri da leggere
writeln('Scegliere 1 per cnvertire da maiuscolo a minuscolo, 2 viceversa');
write('Opzione :');
readln(scelta);
for count:=1 to numchar do
begin
if scelta=1 then
begin
writeln('Scrivi il carattere maiuscolo');
readln(a);
write(a);
if(ord(a)>=65) and (ord(a)<=90) then
begin
b:=ord(a)+32; // Trasforma da char in numero
c:=chr(b); // Trasforma da numero in char
writeln('Il carattere e'' :',c);
end
else
writeln('Errore');
readln;
end
else
begin
writeln('Scrivi il carattere minuscolo');
readln(a);
if((ord(a)>=97) and (ord(a)<=122)) then
begin
b:=ord(a)-32;
c:=chr(b);
writeln('Il carattere e'':',c);
end
else
writeln('Errore');
readln;
end;
end;
end.
uses crt;
var a,c:char;
b,scelta,numchar,count:integer;
begin
writeln('Convertitore lettere maiuscolo/minuscolo e viceversa');
writeln('Scegli quanti caratteri vuoi inserire');
readln(numchar); // Indica il numero di caratteri da leggere
writeln('Scegliere 1 per cnvertire da maiuscolo a minuscolo, 2 viceversa');
write('Opzione :');
readln(scelta);
for count:=1 to numchar do
begin
if scelta=1 then
begin
writeln('Scrivi il carattere maiuscolo');
readln(a);
write(a);
if(ord(a)>=65) and (ord(a)<=90) then
begin
b:=ord(a)+32; // Trasforma da char in numero
c:=chr(b); // Trasforma da numero in char
writeln('Il carattere e'' :',c);
end
else
writeln('Errore');
readln;
end
else
begin
writeln('Scrivi il carattere minuscolo');
readln(a);
if((ord(a)>=97) and (ord(a)<=122)) then
begin
b:=ord(a)-32;
c:=chr(b);
writeln('Il carattere e'':',c);
end
else
writeln('Errore');
readln;
end;
end;
end.
Comments: