Exercícios de Programação em Pascal

Prévia do material em texto

Fundamentos da 
Computação 
Priscilla Fonseca de Abreu Braz 
turmas_uerj@yahoo.com.br 
 
Universidade do Estado do Rio de Janeiro 
Instituto de Matemática e Estatística 
Trabalho 1 
Exercícios 
1) Faça um programa que leia um número 
indeterminado de idades. A última idade lida, que 
não entrará nos cálculos, deverá ser igual a zero. 
Ao final, o programa deverá escrever quantas 
idades foram lidas e calcular e escrever a média de 
idade desse grupo lido. 
 
2) Ler um vetor de 10 elementos e trocar os 
valores do vetor para 1, se o valor armazenado for 
ímpar, ou para 0 se for par. Escrever o vetor B 
após o seu total preenchimento. 
 
 
Questão 1 – 1º grupo 
program q1t1; 
uses crt; 
var 
 id,qtd:integer; 
 med:real; 
begin 
 med:=0; 
 writeln('Informe uma idade:'); 
 readln(id); 
 qtd:=0; 
 while (id<>0) do 
 begin 
 qtd:=qtd+1; 
 med:=med+id; 
 writeln('Informe uma idade:'); 
 readln(id); 
 end; 
 med:=med/qtd; 
 writeln('Quantidade de idades lidas: ',qtd); 
 writeln('Média das idades lidas: ', med:0:2); 
 readkey; 
end. 
 
Questão 2 – 1º grupo 
program q2t1_grupo1; 
uses crt; 
var 
 i:integer; 
 vet:array[1..10] of integer; 
begin 
 for i:=1 to 10 do 
 begin 
 writeln('Informe um numero:'); 
 readln(vet[i]); 
 if (vet[i] mod 2 = 0)then 
 vet[i]:=0 
 else 
 vet[i]:=1; 
 end; 
 for i:=1 to 10 do 
 begin 
 writeln('vet[',i,']:',vet[i]); 
 end; 
 readkey; 
end. 
Exercícios 
1) Faça um programa para ler a altura e o sexo 
de um número indeterminado de pessoas até que 
o usuário informe a altura com valor 0 (zero). 
Calcular e escrever: 
 - a média de altura das mulheres 
- o número de homens. 
 
2) Ler um vetor C de 10 elementos inteiros e 
trocar todos os valores negativos do vetor C por 
0. Escrever o vetor C modificado. 
 
 
Questão 1 – 2º grupo 
program q1t1_grupo2; 
uses crt; 
var 
 i,alt,qtdH,qtdM:integer; 
 sexo:char; 
 medM:real; 
begin 
 qtdH:=0; 
 qtdM:=0; 
 medM:=0; 
 writeln('Informe a altura:'); 
 readln(alt); 
 while (alt<>0) do 
 begin 
 writeln('Informe o sexo: (M - Masculino F - Feminino)'); 
 readln(sexo); 
 if (sexo='f')then 
 begin 
 medM:=medM+alt; 
 qtdM:=qtdM+1; 
 end 
 else 
 qtdH:=qtdH+1; 
 writeln('Informe a altura:'); 
 readln(alt); 
 end; 
 if(qtdM=0) then 
 writeln('Não foram lidas alturas de mulheres!!!') 
 else 
 begin 
 medM:=medM/qtdM; 
 writeln('Quantidade de homens lidos: ',qtdH); 
 end; 
 writeln('Média das alturas das mulheres: ',medM:0:2); 
 readkey; 
end. 
Questão 2 – 2º grupo 
program q2t1_grupo2; 
uses crt; 
var 
 i:integer; 
 vet:array[1..10] of integer; 
begin 
 for i:=1 to 10 do 
 begin 
 writeln('Informe um numero:'); 
 readln(vet[i]); 
 if (vet[i] <0)then 
 vet[i]:=0; 
 end; 
 for i:=1 to 10 do 
 begin 
 writeln('vet[',i,']:',vet[i]); 
 end; 
 readkey; 
end.