Ir ao conteúdo
  • Cadastre-se

Pascal Contador de caracteres em um nome


Posts recomendados

Boa tarde a todos, estou tendo um problema com um código em Pascal que conta a quantidade de caracteres de um nome e se caso o nome estiver acima de 20 caracteres o programa tem que exibir a mensagem "Nome grande". Segue abaixo o código:

 

Program Exercicio4 ;
var
   nome, primeiro : String;
   i, tamanho, esp, letras : integer;
Begin
   writeln('Digite o nome no maximo 20 caracteres');
   readln(nome);
   primeiro := nome;
   
   esp := 0;
   letras := 0;
   tamanho := length(nome);
            
            for i:= 1 to letras do
         begin
            if (nome[i]) = ' ' then
               esp := esp + 1
         end;
         
      If nome[1] dif ' ' then
         letras := 1;
         for i := 2 to esp do
            begin
               If (nome[i]) = ' ' then
                  letras := letras + 1
                  
                  else
                     begin
                        If (nome[i]) > '20' then
                           begin   
                                    writeln('Nome grande');                     
                           end;
                        end;
                     end;          
      writeln('O nome contem: ', tamanho, ' letras, contado com os espacos entre o nome e o sobrenome.');

End.

 

Link para o post
Compartilhar em outros sites
  • 2 semanas depois...

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora


Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: ebook Redes Wi-Fi

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!