TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Fundamentos Da Computação

Exames: Fundamentos Da Computação. Pesquise 859.000+ trabalhos acadêmicos

Por:   •  4/3/2015  •  805 Palavras (4 Páginas)  •  340 Visualizações

Página 1 de 4

1) Construa um programa que leia um conjunto de dados contendo altura, cor dos olhos e sexo (masculino e feminino) de um grupo de 20 pessoas e que calcule e escreva:

a) Maior altura entre os homens;

b) Menor altura entre as mulheres;

c) Quantas mulheres de olhos azuis.

Program DADOS ;

CONST X=20;

VAR A, MAIORA, MENORA: REAL;

COR, S: CHAR;

CONT, MA:INTEGER;

Begin

MA:=0;

CONT:=1;

MENORA:=5;

MAIORA:=0;

WHILE (CONT<=X) DO

BEGIN

WRITELN ('DIGITE SUA ALTURA e COR DOS OLHOS ("A" PARA OLHOS AZUIS, "C" PARA OLHOS CASTANHOS OU "V" PARA OLHOS VERDES): ');

READLN ( A, COR);

WRITELN ('DIGITE SEU SEXO ("F" PARA SEXO FEMININO OU "M" PARA SEXO MASCULINO): ');

READLN (S);

IF (S='F') AND (COR='A') THEN

BEGIN

MA:=MA+1;

END;

IF (A<MENORA) AND (S='F') THEN

BEGIN

MENORA:=A;

END;

IF (A>MAIORA) AND (S='M') THEN

BEGIN

MAIORA:=A;

END;

CONT:=CONT+1;

END;

WRITELN ('A MAIOR ALTURA ENTRE OS HOMENS É: ', MAIORA:0:2);

WRITELN ('A MENOR ALTURA ENTRE AS MULHERES É: ',MENORA:0:2);

WRITELN ('O NÚMERO DE MULHERES COM OLHOS AZUIS É: ',MA);

End.

2) Considere as seguintes faixas etárias: Criança (de 0 a 10 anos), Adolescente (de 11 a 16 anos), Jovem ( de 17 a 26 anos) e Adulto ( acima de 27 anos). Construa um algoritmo que leia o nome e a idade de 10 pessoas. Para cada pessoa informe a qual faixa etária ela pertence. Além disso, calcule e escreva a quantidade de pessoas pertencentes à faixa etária de criança e a quantidade de pessoas pertencentes à faixa etária de adulto.

Program FAIXA ;

CONST X=10;

VAR NOME:CHAR;

ID, CR, ADO, JOV, ADU, CONT: INTEGER;

Begin

CONT:=1;

WHILE (CONT<=X) DO

BEGIN

WRITELN ('DIGITE SEU NOME: ');

READLN (NOME);

WRITELN ('DIGITE SUA IDADE: ');

READLN (ID);

IF (ID>0) AND (ID<=10) THEN

BEGIN

CR:=CR+1;

WRITELN ('VOCÊ PERTENCE À FAIXA ETÁRIA: CRIANÇA.');

END;

IF (ID>10) AND (ID<=16) THEN

BEGIN

ADO:=ADO+1;

WRITELN ('VOCÊ PERTENCE À FAIXA ETÁRIA: ADOLESCENTE.');

END;

IF (ID>16) AND (ID<=26) THEN

BEGIN

JOV:=JOV+1;

...

Baixar como (para membros premium)  txt (3.7 Kb)  
Continuar por mais 3 páginas »
Disponível apenas no TrabalhosGratuitos.com