Bem, eu gostaria que vcs me ajudassem na prova de Pascal que eu acabei de ter, é o seguinte:
Faça um programa que leia o nome, altura e sexo de 5 pessoas, depois o programa deverá mostrar:
a)O número de mulheres
b)A idade média entre as pessoas
c)Número de homens com mais de 1,70m
d)A maior e a menor idade entre as mulheres
Eu e um amigo só conseguimos fazer a "A" e a "C", fizemos assim:
Obs.: O programa deve ser feito com IF (ou CASE) e Loop com FOR (que foi o que acabamos de aprender)...
Faça um programa que leia o nome, altura e sexo de 5 pessoas, depois o programa deverá mostrar:
a)O número de mulheres
b)A idade média entre as pessoas
c)Número de homens com mais de 1,70m
d)A maior e a menor idade entre as mulheres
Eu e um amigo só conseguimos fazer a "A" e a "C", fizemos assim:
Program Pzim ;
var i,f,m,m1:integer;
nome:string;
sexo:char;
am,altura,alt:real;
Begin
am:=0;
f:=0;
altura:=0;
m:=0;
m1:=0;
for i:=1 to 5 do
Begin
writeln('Digite o nome da pessoa');
readln(nome);
writeln('Digite o sexo');
readln(sexo);
writeln('Digite a altura');
readln(altura);
clrscr;
//Contador de sexo
if (sexo= 'F') or (sexo='f') then begin
f:=f+1;
end;
if(sexo='m')or (sexo='M') then if (altura>1.70) then begin
m1:=m1+1;
end;
end;
writeln('Num. de mulheres: ',f);
writeln('Num.de homens com mais de 1,70: ',m1);
End.
var i,f,m,m1:integer;
nome:string;
sexo:char;
am,altura,alt:real;
Begin
am:=0;
f:=0;
altura:=0;
m:=0;
m1:=0;
for i:=1 to 5 do
Begin
writeln('Digite o nome da pessoa');
readln(nome);
writeln('Digite o sexo');
readln(sexo);
writeln('Digite a altura');
readln(altura);
clrscr;
//Contador de sexo
if (sexo= 'F') or (sexo='f') then begin
f:=f+1;
end;
if(sexo='m')or (sexo='M') then if (altura>1.70) then begin
m1:=m1+1;
end;
end;
writeln('Num. de mulheres: ',f);
writeln('Num.de homens com mais de 1,70: ',m1);
End.
Comment