Jump to content


Photo

Nome E Idade De 3 Pessoas


  • Faça o login para participar
1 reply to this topic

#1 tamoura

tamoura

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Feminino
  • Localidade:Porto Alegre

Posted 01/12/2011, 11:17

O enunciado é o seguinte:
Faça um algoritmo que receba o Nome e a Idade de 3 pessoas, e mostre o nome e a idade da pessoa com maior idade. Se a idade digitada for igual ao da idade digitada anteriormente, mantém-se a primeira idade digitada.

Tipo, a única coisa que consegui fazer foi mostrar a maior idade. Não sei como faz para colocar o nome da pessoa com a maior idade e nem a ultima parte do enunciado que fala pra manter a primeira idade digitada ...
Alguém ajuda? *-*

Aqui está o que fiz até agora:

Var
Nome: string;
Idade, contagem, maior: Integer;

begin
Contagem:=0;
Maior:=0;

Repeat
Contagem:= contagem + 1;
Writeln('Digite seu nome');
Readln(nome);
Writeln('Digite sua idade');
Readln(idade);
If idade > maior then
Begin
Maior:= Idade;
End;

Until Contagem = 3;
Writeln('A pessoa com a idade maior e: ', idade);
Readln;
end.



#2 Paty Lopes

Paty Lopes

    Novato no fórum

  • Usuários
  • 6 posts
  • Sexo:Feminino
  • Localidade:Rio de Janeiro
  • Interesses:Maquiagem, programação.

Posted 13/03/2012, 12:27

O melhor seria criar uma variável do tipo array onde vc consiga associar o nome da pessoa com sua idade.

Se ajudar, dá uma olhada nesses links:
Exercícios de Lógica de programação
Lógica de programação com VisuAlg
Introdução a Lógica de Programação

Beijinhos.


O enunciado é o seguinte:
Faça um algoritmo que receba o Nome e a Idade de 3 pessoas, e mostre o nome e a idade da pessoa com maior idade. Se a idade digitada for igual ao da idade digitada anteriormente, mantém-se a primeira idade digitada.

Tipo, a única coisa que consegui fazer foi mostrar a maior idade. Não sei como faz para colocar o nome da pessoa com a maior idade e nem a ultima parte do enunciado que fala pra manter a primeira idade digitada ...
Alguém ajuda? *-*

Aqui está o que fiz até agora:

Var
Nome: string;
Idade, contagem, maior: Integer;

begin
Contagem:=0;
Maior:=0;

Repeat
Contagem:= contagem + 1;
Writeln('Digite seu nome');
Readln(nome);
Writeln('Digite sua idade');
Readln(idade);
If idade > maior then
Begin
Maior:= Idade;
End;

Until Contagem = 3;
Writeln('A pessoa com a idade maior e: ', idade);
Readln;
end.






1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq