Exercicios - Lista 03 - Repeticao - Respostas

Prévia do material em texto

UNIVERSIDADE FEDERAL DE PELOTAS
CENTRO DE DESENVOLVIMENTO TECNOLÓGICO
Programação de Computadores 
Prof. André Desessards Jardim
adjardim@terra.com.br
EXERCÍCIOS - (Lista 03 – Estruturas de Repetição - Respostas)
1. Faça um algoritmo para ler e escrever o Nome de 20 pessoas.
algoritmo questao_01;	//Enquanto
var nome: caracter [30];
 total: inteiro;
inicio
	total := 0;
	enquanto total<20 faca
		escrever ("Entre com o nome: ");
ler (nome);
		escrever ("Nome = ", nome)
		total := total+1;
	fimenquanto;
fim.
algoritmo questao_01;	//Repita
var nome: caracter [30];
 total: inteiro;
inicio
	total := 0;
	repita
		escrever("Entre com o nome: ");
ler (nome);
		escrever ("Nome = ",nome);
		total := total+1;
	ate total>=20;
fim.
algoritmo questao_01;	//Para Ate Faca			
var nome: cacacter [30];
 cont: inteiro;
inicio
	para cont:=1 ate 20 faca
		escrever ("Entre com o nome: ");
ler (nome);
		escrever ("Nome = ",nome);
	fimpara;
fim.
2. Dado uma série de 20 valores reais, faça um algoritmo que calcule e escreva a média aritmética destes valores, entretanto se a média obtida for maior que 8 deverá ser atribuída 10 para a média.
algoritmo questao_02;
var contador: inteiro;
 num,soma, media: real;
inicio
contador := 0;
 	soma := 0;
 	enquanto contador<20 faca
		escrever ("Entre com o numero: ");
ler (num);
 	soma := soma+num;
 	contador := contador+1;
 	fimenquanto;
media := soma/20;
se media>8 entao
		media := 10;
fimse;
escrever ("Media = ",media);
fim.
3. Dado um conjunto de n registros cada registro contendo um valor real, faça um algoritmo que calcule a média dos valores maiores que 4.
algoritmo questao_03;
var N,contador,maior4, soma: inteiro;
 media,numero: real;
inicio
contador := 1;
maior4 := 0;
soma := 0;
escrever ("Entre com o numero de registros: ");
ler (N);
enquanto contador < N faca
		escrever ("Entre com o numero: ");
ler (numero);
 	se numero>4 entao
			soma := soma+numero;
	 		maior4 := maior4+1;
		fimse;
	 	contador := contador+1;
 	fimenquanto;
 	media := soma/maior4;
 	escrever ("Media dos valores maiores que 4 = ",media);
fim.
4. Faça um algoritmo para ler base e altura de 50 triângulos e imprimir a sua área.
algoritmo questao_04;
var I: inteiro;
 base,altura,area: real;
inicio
 	para I:=1 ate 50 faca
		escrever ("Entre com a base: ");
		ler (base);
		escrever ("Entre com a altura: ");
	 	ler (altura);
 	area := (base*altura)/2;
 	escrever ("Area = ",area);
 fimpara;
fim.
5. Dado um conjunto de 20 valores reais, faça um algoritmo que:
		a) Imprima os valores que não são negativos.
		b) Calcule e imprima a média dos valores < 0.
algoritmo questao_05;
var N,somamenor,mediamenor: real;
 contaMenor,I: inteiro;
inicio
contador := 0;
 	contamenor := 0;
 	somamenor := 0;
 	para I:=1 ate 20 faca
		escrever ("Entre com o numero: ");
 	ler (N);
 	se N>=0 entao
escrever ("Numero: ",N);
 	senao
 		somamenor := somamenor+N;
 		contamenor := contamenor+1;
 	fimse;
fimpara;
 	mediamenor := somamenor/contamenor;
	escrever ("Media dos valores menores que zero = ",mediamenor);
fim.
 
6. Faça um algoritmo que leia 10 números e mostre a soma e a média dos que forem maiores que o valor 100.
algoritmo questao_06;
var numero,soma,media: real;
 I,acima : inteiro;
inicio
acima := 0;
soma := 0;
para I:=1 ate 10 faca
		escrever ("Entre com o numero: ");
ler (numero);
se numero>100 entao
acima := acima+1;
soma := soma+numero;
fimse;
fimpara;
escrever ("Soma dos numeros maiores que 100 = ",soma);
media := soma/acima;
escrever ("Media dos numeros maiores que 100 = "media);
fim.
7. Faça um programa que solicite ao usuário para digitar valores numéricos inteiros positivos. Encerre a entrada de dados quando for digitado um número negativo ou zero. Calcule a média dos números positivos digitados. 
algoritmo questao_07;
var numero,soma,cont: inteiro;
 media: real; 
inicio
	soma :=0;
	cont :=0;
	escrever ("Digite um numero inteiro [negativo p/ sair]: ");
	ler (numero);
	enquanto numero>0 faca
		inicio
			soma := soma+numero;
			cont := cont+1;
			escrever ("Digite um numero inteiro positivo: ");
			ler (numero);
		fim;
	fimenquanto;
	se cont>=1 entao
		inicio
			media := soma/cont;
			escrever ("Media = ",media);
		fim;
	senao
		escrever ("Nenhum valor positivo foi digitado");
	fimse;
fim.
8. Fazer um programa para mostrar os 20 primeiros números impares.
algoritmo questao_08;
var I,N: inteiro;
inicio
	para I:=1 ate 20 faca
		inicio
			escrever (N);
			N := N+2;
		fim;
	fimpara;
fim.
9. Faça um programa que solicite ao usuário 10 números inteiros e, ao final, informe a quantidade de números ímpares e pares lidos. Calcule também a soma dos números pares e a média dos números ímpares.
algoritmo questao_09;
var cont,numero,par,impar,somapar,somaimpar : inteiro;
 mediaimpar: real;
inicio
	par := 0 ;
impar := 0 ;
somapar := 0 ;
somaimpar := 0 ;
para cont:=0 ate cont<10 faca
		inicio
		escrever ("Digite um valor inteiro: ");
ler (numero);
se numero MOD 2 = 0 entao
			inicio
				par := par+1;
				somapar := somapar+numero;
			fim;
senao
			inicio
				impar := impar+1;
 			somaimpar := somaimpar+numero;
				fim;
			fimse;
			se impar>0 entao
				inicio
					mediaimpar := somaimpar/impar;
escreva("A media dos numeros impares eh ", mediaimpar);
			fimse;
	fimpara;
	escrever ("Numero de impares = ", impar);
escrever ("Numero de pares = ", par);
escrever ("Soma dos pares = ", somapar);
fim.
10. Uma determinada empresa armazena para cada funcionário (10 no total) uma ficha contendo o código, o número de horas trabalhadas e o seu nº de dependentes. Considerando que:
- A empresa paga 12 reais por hora e 40 reais por dependentes.
- Sobre o salário são feitos de 8,5% para o INSS e 5% para IR
Faça um programa para ler o código, número de horas trabalhadas e número de dependentes de cada funcionário. Após a leitura, escreva qual o código, os valores descontados para cada tipo de imposto e finalmente o salário líquido de cada um dos funcionários.
algoritmo questao_10;
var codigo,numhoras,dependentes,I: inteiro;
 salario,dINSS,dIR: real;
inicio
	para I:=0 ate I<10 faca
		inicio
			escrever ("\nDigite o codigo do funcionario: ");
lerr (codigo);
escrever ("\nDigite o num. de horas trabalhadas: ");
ler (numhoras);	
escrever ("\nDigite o num. de dependentes: ");
ler (dependentes);
salario := numHoras*12 + dependentes*40;
dINSS := salario*0.085;
dIR := salario*0.05;
salario := salario-dNSS-dIR;
escrever ("\nCodigo do funcionário = ",codigo);
escrever ("\nDesconto de INSS = ",dINSS);
escrever ("\nDesconto de IR =", dIR);
escrever ("\nSalario liquido = ", salario); 
 	fim.
	fimpara;
fim.
11. Faça um programa que mostre os divisores de um número inteiro fornecido pelo usuário
algoritmo questao_11;
var N,D: inteiro;
inicio
	escrever ("Informe o numero: ");
	ler (N);
	D := 1;
	enquanto D<=N faca
		inicio
			se (N/D)=0 então
				escrever (D," eh divisor");
				D := D+1;
			fimse;
		fim;
	fimenquanto;
fim.
12. Faça um programa que mostre os divisores de números inteiros fornecidos pelo usuário. Encerrar o programa quando o usuário fornecer o número zero.
algoritmo questao_12;
var N,D: inteiro;
inicio
	escrever ("Informe o numero: ");
	ler (N);
	enquanto N<>0 faca
		inicio
			D := 1;
			enquantoD<=N faca
				inicio
					se (N/D)=0 então
						escrever(D," eh divisor");
						D := D+1;
					fimse;
				fim;
			fimenquanto;
		fim;
	fimenquanto;
fim.
� PAGE �6�