Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Mariojorge14

Fazer um programa que leia 20 nomes com suas respectivas idades e sexo

Recommended Posts

Fazer um programa que leia 20 nomes com suas respectivas idades e sexo. Escreva:

a) - A soma da idade da mulher de menor nome e o homem de maior nome.

B) - Escreva a média das idades das mulheres que tem mais de uma letra “e” no nome.

c) - O maior nome informado.

d) - A média das idades dos nomes que tenha o número de caracteres ímpares.

program Exmp2;
uses crt;
var
sexx,nome,letra:string;
idad,I,II,nomme,idade1,idadeimpar:integer;
sex:char;
cont,contimpar,mulherm,contF,homemM,contM,nomeM:integer;
som,media,mediaimpar:real;

begin

mulherm:= 800;
homemM:= - 800;
nomeM:=0;

for I:= 1 to 20 do
begin
writeln ('Digite seu Nome');
readln (nome);

nomme:= length (nome);

writeln ('Digite sua Idade');
readln (idad);

writeln ('Agora digire o seu sexo: F - Feminino, M - Masculino');
readln (sex);
sexx:=(upcase (sex));


if (sexx = 'F' ) and (nomme < mulherm) then
begin
contF:= idad+0;
end;

if (sexx = 'M' ) and (nomme > homemM) then
begin
contM:= idad+0;
end;

som := contF+contM;

if (sexx = 'F') then
begin


for I:= 1 to nomme do
begin
letra:= copy (nome,I,1);

if (upcase (letra) = 'E') and (sexx = 'F') then
begin

cont:=cont+1;
if (cont = 2) then
begin
idade1:=idad+0;
media:=idade1/cont;
end;
end;
end;


if (nomeM<nomme) then
begin
nomeM:=nomme;
end;

if (nomme mod 2 <> 0 ) then
begin
idadeimpar:=idad+0;
contimpar:=contimpar+1;
mediaimpar:= idadeimpar/contimpar;

end;

end;
end;

writeln ('A soma da idade da Mulher de menor nome e o homem de maior nome e:',som);
writeln ('A media das idades das mulheres que tem mais de uma letra E no nome e:',media);
writeln ('O maior nome informado e:',nomeM);
writeln ('A media das idades dos nomes que tenha o numero de caracteres impars e:',mediaimpar);
readkey;
end.

Aê pessoal o que eu estou errando desde já agradeço...:D:D:D:D:D:D:D:D:D

Editado por dif
usar a tag code. o titulo deve ser mais objetivo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

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






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×