programa

1. Program ex28;
2. Uses CRT;
4. Type TDados = Record
5. Nome:String[20];
6. CPF:String[11];
7. Altura:Real;
8. Peso:Real;
9. Sexo:Char;
10. Idade:Integer;
11. End;
13. Var Dados:Array[1..20] Of TDados;
14. I:Integer;
15. IMC:Array[1..20] Of Real;
16. AcimaP,QtdObesas:Integer;
17. MediaP,Perc:Real;
19. Procedure Entrada;
20. Begin
21. For I:=1 To 20 Do
22. Begin
23. Clrscr;
24. Writeln(' - ',I,#166, ' Pessoa - ');
25. Writeln;
26. Write('Nome.....: ');Readln(Dados[I].Nome);
27. Write('CPF......: ');Readln(Dados[I].CPF);
28. Write('Altura...: ');Readln(Dados[I].Altura);
29. Write('Peso.....: ');;Readln(Dados[I].Peso);
30. Write('Sexo M/F.: ');;Readln(Dados[I].Sexo);
31. Write('Idade....: ');;Readln(Dados[I].Idade);
32. End;
33. End;
35. Procedure Caucula;
36. var F,AbaixoP:Integer;
37. Begin
38. AcimaP:=0;
39. MediaP:=0;
40. AbaixoP:=0;
41. QtdObesas:=0;
42. For I:=1 To 20 Do
43. Begin
44. IMC[I]:=Dados[I].Peso/(SQR(Dados[I].Altura));
46. MediaP:=MediaP+Dados[I].Peso;
48. If (IMC[I] >= 25) Then
49. Begin
50. AcimaP:=AcimaP+1;
51. If (Dados[I].Idade >= 20) And (Dados[I].Idade <= 30) Then
52. QtdObesas:=QtdObesas+1;
53. End;
55. Dados[I].Sexo:= UPCASE(Dados[I].Sexo);
57. If (Dados[I].Sexo='F') And (Dados[I].Peso <= 18.5) Then
58. Begin
59. F:=F+1;
60. AbaixoP:=AbaixoP+1;
61. End;
63. End;
64. MediaP:=MediaP/20;
66. If (F >= 1) Then
67. Perc:=(AbaixoP*100)/F
68. Else
69. Perc:=0;
70. End;
72. Procedure Mostra;
73. Begin
74. Caucula;
75. Clrscr;
76. Writeln(' * Resultados da Pesquisa * ');
77. Writeln;
78. Writeln('Qtd de pessoas com sobrepeso/obesas......: ',AcimaP);
79. Writeln('Peso medio da populacao..................: ',MediaP:3:2);
80. Writeln('Percentual de mulheres abaixo do peso....: ',Perc:3:2,'%');
81. Writeln('Qtd de pessoas entre 20 e 30 anos obesas.: ',QtdObesas);
82. Readkey;
83. End;
85. Begin
86. Entrada;
87. Mostra;
88. End.