1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ajuda Trabalho Pascal

Discussão em 'Programação' iniciada por Diamond_Sux, 9 de Dezembro de 2008. (Respostas: 2; Visualizações: 551)

  1. Pessoal estou a fazer um trabalho em pascal, o objectivo é passar as minúsculas e virse-versa para maiúsculas, com o auxilio dos códigos da tabela ASCII.

    Já comecei e tenho uma vaga ideia do que fazer, mas cheguei a um ponto em que me perdi. aguem pode me ajudar a fazer este código ou a tentar me ajudar na estrutura?

    program minitomax;

    Var S:Char;
    Var A,S:Integer;

    Begin
    writeln('digite Uma Letra');
    Readln(A);
    if ((ord(S)>=65)and(ord(S)<=90)or( ord(S)>=97)and(ord(S)<=122))then
    S=(A+32)
    Writeln(S);
    Readln;

    end.
     
    Última edição: 9 de Dezembro de 2008
  2. Ruben_Barbosa

    Ruben_Barbosa Power Member

    já não mexo no pascal algum tempo mas vamos la ver ;)

    Código:
    program minitomax;
    
    Var S:Char;
    Var A,S1:Integer;
    
    Begin
    
         writeln('digite Uma Letra');
              Readln(A);
    
                if ((ord(S1)>=65)and(ord(S1)<=90) then 
                    S=(A+32)
                      Writeln(S);
    
    else
    if ( ord(S1)>=97)and(ord(S1)<=122))then
    S=(A+32)
    Writeln(S);
    Readln;
    
    end if
    end if
    
    end.
    
    Bem acho que é mais ou menos isso ;)
     
    Última edição: 9 de Dezembro de 2008
  3. Obrigado!

    obrigado pela resposta rapida! estava mesmo a necessitar de uma maozinha, é um progama basico, que me estava a trocar todo!

    Por vezes o mais facil, se torna o mais complicado!



    Obrigado!:D
     

Partilhar esta Página