Computação TOP10: Algoritmo capaz de ler via teclado e armazenar em um vetor 12 nomes. e mostrar qual o maior nome.

-->

quarta-feira, 24 de agosto de 2011

Algoritmo capaz de ler via teclado e armazenar em um vetor 12 nomes. e mostrar qual o maior nome.

16:07 | Postado por Computação Top10 | Editar postagem

Faca um algoritmo capaz de ler via teclado e armazenar em um vetor 12 nomes. Verificar:
1. Qual o maior nome
2. Quantos elementos possuem um nome com o tamanho igual ao maior tamanho.
3. Escrever os nomes e sua posição no vetor.
  
  resposta:
  
  program exe2;
  // Autor: Cícero Amauri
  var
  nome: array [1..12] of string;
  i, cont: integer;
  mnome: string;
  begin
  textbackground (blue); // Altera a cor do fundo
  textcolor (yellow); // Altera a cor da letra
  cont := 0;
  for i := 1 to 12 do
  begin
  write ('digite o ',i,' nome: ');
  readln (nome[i]);
  if (i = 1 ) then
  mnome := nome[i];
  if (length (nome[i]) > length (mnome)) then
  mnome:= nome[i];
  end;
  writeln ('O maior nome é: ', mnome);
  for i := 1 to 12 do
  begin
  if ( length(nome[i]) = length(mnome)) then
  begin
  cont := cont + 1;
  writeln;
  writeln ('o maior nome está na posição ',i,' é o nome: ',nome[i]);
  end;
  end;
  gotoxy (1,14); // Mostra a mensagem na linha 14 e na coluna 1
  writeln ('a quantidade de nomes com a mesma quantidade de letras é: ', cont);
  end.

Marcadores: Pascal

Gostou? Compartilhe!

0 comentários:

Postar um comentário

Fique a vontade para Comentar!!!

Assinar: Postar comentários (Atom)