4) Implementar um programa pascal para realizar um levantamento estatístico de quantos alunos estão inscritos na Universidade Lusíada. Os seguintes dados de pessoas serão perguntados: idade, sexo, e Curso (0 – Informática, 1 – Recursos Humanos, 2 – Contabilidade, 3 – Gestão de Empresas). Este programa acaba quando a idade informada da próxima pessoa for negativa. Depois de colher os dados sobre cada pessoa, o programa apresenta a estatísticas a seguir: o Número total de pessoas pesquisadas; o Idade média das pessoas; o Número de mulheres e de homens inscritos; o Idade média das mulheres e dos homens; o Percentual de pessoas inscritas por curso; tentando fazer deu nisso. #include <stdio.h> #include <stdlib.h> #include <conio.h> int main(int argc, char *argv[]) { char sexo,curso,m,f,informatica,recursohumanos,contabilidade,gestaodeempresa; int idade,conth,contm,pessoas,p,continf,contrec,contcon,contges; float mediaidade,aid,perinf,perrec,percon,perges; mediaidade = 0; conth = 0; contm = 0; continf = 0; contrec = 0; contcon = 0; contges = 0; printf ("Digite o numero total de pessoas: "); scanf("%d", &pessoas); for (p=0 ; p<pessoas ; p++) { printf ("Digite sua idade "); scanf ("%d", &idade); mediaidade = mediaidade+idade; printf ("Digite m se o seu sexo for masculino, digite f se o sexo for feminino "); scanf ("%s", &sexo); printf ("Digite o seu Curso 0-informatica, 1-recursosHumanos, 2-contabilidade, 3-gestaodeEmpresa \n "); scanf ("%s", &curso); if (sexo == m) { conth = (conth+1); } if(sexo == f) { contm = (contm+1); } if (curso = informatica) { continf = (continf+1); perinf = (continf/pessoas)*100; } if (curso = recursohumanos) { contrec = (contrec+1); perrec = (contrec/pessoas)*100; } if (curso = contabilidade) { contcon = (contcon+1); percon = (contcon/pessoas)*100; } if (curso = gestaodeempresa) { contges = (contges+1); perges = (contges/pessoas)*100; } aid = (mediaidade/pessoas); } printf ("numero de pessoas pesquisadas e %d ",pessoas); printf ("A media total de pessoas e %d ", aid); printf ("Numero de homens e %d\n ",conth); printf ("Numero de mulheres e %d\n ",contm); printf ("Percentagem de inscritos no curso de informatica %1.1f \n",perinf); printf ("Percentagem de inscritos no curso de recursoshumanos %1.1f \n",perrec); printf ("Percentagem de inscritos no curso de contabilidade %1.1f \n",percon); printf ("Percentagem de inscritos no curso de gestaodeempresa %1.1f \n",perges); system("PAUSE"); return 0; }
