Question

Questão de algoritmos, não pode usar vetor e os comando de repetição só o repita e o enquanto. Tem que ser em Portugol ou VisualG.


Um asilo do interior do Rio Grande do Sul pretende realizar uma pesquisa entre os seus moradores a fim de obter as seguintes informações:
// a. O idoso e mais novo e mais velho e o tempo de permanência no asilo, identificado pelo nome, sexo e idade.
// b. O idoso e a idosa que está há mais tempo no asilo.
// c. O idoso e a idosa que está há menos tempo no asilo.
// d. A quantidade de homens e mulheres que tem até 55 anos, entre 55 e 65 anos, entre 65 e 75 anos, entre 75 e 85 anos,
// entre 85 e 90 anos e quantos acima dessa idade, e o quanto isso representa em percentual da quantidade total.
// e. A média de idade dos homens e mulheres.
// Ao final de cada questionário criar um método de solicitação para continuar ou não a pesquisa.

Answer 1

Eu não sei a resposta específica mas a lógica é essa :


Program Pzim ;
var
 nome,nalta:string;     // nalta: nome da mais alta
 altura,aalta:real;     // aalta: valor da maior altura ;
                        //altura : pega a altura
 a:integer;
 Begin
   aalta:=0;
   a:=0;
     writeln('Informe o nome da candidata:');
     readln(nome);
    
 while (nome<>'fim') do    // While = Enquanto ; nome = 'fim' finaliza o programa
     begin                        // <> = diferente
    
         writeln('Informe altura da candidata:');
         readln(altura);
         a:=a+1;// Calcula o número de concorrentes.
         if(altura>aalta) then   // If = Se ta comparando a altura
             begin
             aalta:=altura;// se aaltura for maior que a atual, a variavel vai receber essa altura
             nalta:=nome; // ganha o nome da mais alta
             end;
        
        
         writeln('Informe o nome da candidata:');
         readln(nome);
     end;
    writeln('A moça mais alta é : ',nalta  ,' com ',aalta:2:2,' metros de altura');
        writeln('Existem ',a ,' concorrentes');             
 End.

Obs : Para o resto você só cria mais variáveis para cada caso específico e Usa o "Se"  para fazer os testes necessários.Eu usei pascal, mas a lógica é a mesma para português estruturado.