Alunota11

Download de Livros, Apostilas e literatura em geral!


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Exercício Vetor [Pascal] em 12/9/2014, 5:07 pm

Admin

avatar
Admin
Esse tópico tenho que mover para ALGORITMO II, pois se trata de vetores:

Exercício:

Algoritmo que leia o nome, a idade, e o sexo de dez
pessoas armazenando os dados em vetores e que
faca a contagem do numero de pessoas do sexo
masculino e do sexo feminino que possuem idade
maior que 18.

http://alunota11.blogspot.com.br

2 Resposta: em 12/9/2014, 5:08 pm

Admin

avatar
Admin
Mostrar/Ocultar:
Program tres_vet;
Var
Sexo:array[1..3] of char;
idade:array[1..3] of integer;
nome:array[1..3] of string;
I,contf,contm:integer;
Begin
writeln ('informe sexo, idade e nome');
For i:= 1 to 3 do
 Begin
     Read(sexo[i]);    
read(idade[i]);  
read(nome[i]);
     if (sexo[i] = 'f') and (idade[i] >= 18) then
        contf := contf + 1
     else
        if (sexo[i] = 'm') and (idade[i] >= 18) then
            contm := contm + 1;  
 End;
     writeln('Machos maiores ', contm);
     writeln('Femeas maiores ', contf);
End.

http://alunota11.blogspot.com.br

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum