Contador não Salva.

[Felipe Ribas_614027]

Olá alguem poderia me ajudar, meu código precisa de alguns contadores mas quando compilo ele não acrescenta no contador.

{$APPTYPE CONSOLE}uses  SysUtils;var   idade, somaidade,contf, contm, maiorm, menorf, conth45, contf35 :integer;   sexo, exp: string;begin     somaidade := 0 ;     contf := 0;     contm := 0;     maiorm := 0;     menorf := 0;     conth45 := 0;     contf35 := 0;     writeln (' digite M para masculino ou F para feminino 0 para sair ');     readln (sexo);     while (sexo <> '0') do          begin               writeln ( ' Informe sua idade ');               readln( idade);               somaidade := somaidade + idade;               writeln( ' Experiencia S/N ');               readln (exp);               if (sexo = 'M') then                begin                  contm:= contm +1;                end;                   if (exp = 'S') and (idade > 45) then                     begin                        somaidade := somaidade + idade;                        conth45 := conth45 + 1;                     end                       else                      if ( sexo = 'F') then                     begin                       contf:= contf +1;                     end;                    if (exp = 'S') and (idade < 35) and ( sexo = 'F') then                     begin                        somaidade := somaidade + idade;                        contf35 := contf35 + 1;                     end;             writeln (' digite M para masculino ou F para feminino 0 para sair ');             readln (sexo);         end;        writeln( ' Quantidade de candidato sexo feminino ', contf );        writeln( ' Quantidade de candidato sexo masculino ', contm );        readln;end.

[Allan Carneiro]

O que pede a questão ?

[Felipe Ribas_614027]

Implementar o seguinte exercício com o ambiente Delphi, focando a programação com estruturas de seleção e repetição. 

 Uma empresa decidiu fazer um levantamento em relação aos candidatos que se apresentaram para preenchimento de vagas no seu quadro de funcionários.

Fazer um programa que leia o conjunto de informações de cada candidato, contendo:

 

 Idade(em anos)  Sexo (1=M / 2=F)  Experiência no serviço (1=S / 2=N).

 

O programa deve calcular

: 1. Quantidade de candidatos do sexo feminino;

2. Quantidade de candidatos do sexo masculino

; 3. Idade media dos homens com experiência no serviço

; 4. Porcentagem dos homens com mais de 45 anos, em relação ao total de homens

; e 5. Quantidade de mulheres com idade inferior a 35 anos e com experiência no serviço

 

desde já obg.

[Simon Viegas]

Olá.

 

Vou tentar ajudar... vamos lá:

 

A primeira coisa, e se duvidar uma das mais importantes, é MANTER O CÓDIGO SEMPRE BEM INDENTADO. A indentação mantém uma estruturação visual de como está o código, ou seja, apenas seguindo o padrão da indentação, e olhando para o código, dá para fazer algumas análises... por exemplo, veja como ficaria esse mesmo código indentado (obs.: existem várias padrões de indentação, essa a seguir é o meu, que não necessariamente é o mais utilizado).
 

{$APPTYPE CONSOLE}uses  SysUtils;var  idade, somaidade,contf, contm, maiorm, menorf, conth45, contf35 :integer;  sexo, exp: string;BEGInsomaidade := 0 ;contf := 0;contm := 0;maiorm := 0;menorf := 0;conth45 := 0;contf35 := 0;writeln (' digite M para masculino ou F para feminino 0 para sair ');readln (sexo);while (sexo <> '0') do  begin  writeln ( ' Informe sua idade ');  readln( idade);  somaidade := somaidade + idade;  writeln( ' Experiencia S/N ');  readln (exp);  if (sexo = 'M') then    begin    contm:= contm +1;    end;  if (exp = 'S') and (idade > 45) then    begin    somaidade := somaidade + idade;    conth45 := conth45 + 1;    end  else    if ( sexo = 'F') then      begin      contf:= contf +1;      end;  if (exp = 'S') and (idade < 35) and ( sexo = 'F') then    begin    somaidade := somaidade + idade;    contf35 := contf35 + 1;    end;  writeln (' digite M para masculino ou F para feminino 0 para sair ');  readln (sexo);  end;writeln( ' Quantidade de candidato sexo feminino ', contf );writeln( ' Quantidade de candidato sexo masculino ', contm );readln;END.

Veja, só de indentar, dá para verificar que tem algo errado na lógica, por exemplo:
O else/if do "sexo" está vinculado ao if da experiência e idade... mas acho que uma coisa não tem haver com a outra.

if (exp = 'S') and (idade > 45) then

else  if ( sexo = 'F') then

Daí você precisa ir ajustando, de forma que, mantendo indentado, o código esteja "com a lógica correta". Para exemplo exemplo, você poderia tirar o "if (exp = 'S') and (idade > 45) then" do meio deles...

Por ai vai.

No aguardo.