Pascal/Arquivos texto: diferenças entre revisões
[edição verificada] | [revisão pendente] |
Conteúdo apagado Conteúdo adicionado
Sem resumo de edição |
foi retirado o ";" do final do codigo: cont_m:=cont_m+1 {conta a quantidade de homens} porque o ELSE não funciona se estiver com ";" e foi retirado o outro ";" no final do código then write(dif:2:2,'% a mais de homens') porque senão, o ELSE também não funciona. |
||
Linha 1:
<source lang="
program alturamf;
uses CRT;
Linha 47:
end;
if sexo='m' then {testa se o sexo e m}
cont_m:=cont_m+1
else
begin
Linha 63:
write('A diferença percentual entre homens e mulheres é: ');
dif:=(cont_m/quant)*100-(cont_f/quant)*100;
if dif>0 then write(dif:2:2,'% a mais de homens')
else write(abs(dif):2:2,'% a mais de mulheres');
readkey;
|