Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  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.
 
          
Comments: