Exercicios - Lista 01 - Sequenciais - Respostas

Prévia do material em texto

UNIVERSIDADE FEDERAL DE PELOTAS
CENTRO DE DESENVOLVIMENTO TECNOLÓGICO
Programação de Computadores 
Prof. André Desessards Jardim
andre.jardim@inf.ufpel.edu.br
EXERCÍCIOS - (Lista 01 – Estruturas Sequenciais - Respostas)
1. Faça um algoritmo que leia dois números que o usuário do computador digitará no teclado, some-os e mostre o resultado na tela do computador.
algoritmo questao_01;
var n1,n2,soma:inteiro;
inicio 
escrever ("Entre com o primeiro numero: ");
ler (n1);
escrever ("Entre com o segundo numero: ");
ler (n2);
soma := n1+n2;
escreva("Soma = ",soma);
fim.
2. Faça um algoritmo que leia os lados de um retângulo e mostre sua área.
algoritmo questao_02;
var lado1,lado2,area:inteiro;
inicio 
escrever ("Entre com o primeiro lado:");
ler (lado1);
escrever ("Entre com o segundo lado:");
ler (lado2);
area := lado1*lado2;
escrever ("Area = ",area);
fim.
3. Faça um Programa que mostre a mensagem "Olá Mundo" na tela.
algoritmo questao_03;
inicio
	escrever ("Alo Mundo");
fim.
4. Faça um Programa que leia a temperatura em graus Farenheit e mostre a temperatura em graus Celsius.
Depois, altere o programa para que leia a temperatura em graus Celsius e mostre em Farenheit.
F = (9/5)*(Celsius)+32. 
C = (5*(Farenheit -32)/9).
algoritmo questao_04a;
var C,F:real;
inicio
	escrever("Entre com a temperatura em Farenheit: ").
	ler (F);
	C := (5*(F-32)/9);
	escrever ("A temperatura em Celsuius eh: ",C);
fim.
algoritmo questao_04b;
var C,F:real;
inicio
escrever("Entre com a temperatura em Celsius: ");
	ler (C);
	F := (9/5)*(C)+32;
	escrever ("A temperatura em Farenheit eh: ",F);
fim.
5. Faça um programa que receba um número positivo e mostre: o número digitado ao quadrado, o número digitado ao cubo, a raiz quadrada do número digitado, a raiz cúbica do número digitado.
algoritmo questao_05;
var x:real;
inicio
	escrever ("Entre com o numero: ");
ler (x);
escrever ("Quadrado(x)= ",sqr(x));
escrever ("Cubo(x)= ",x*x*x);
escrever ("Raiz(x)= ",sqrt(x)); 
escrever ("Raiz Cubica(x)= ",exp((1/3)*ln(x)));
fim.
6. Faça um algoritmo que leia o valor do raio (r) de um círculo e calcule o valor da sua circunferência e área
(Circunferência = 2  r, Área =  r2 onde  = 3,14).
algoritmo questao_06;
var R,C,A:real;
inicio
	escrever ("Entre com o valor do raio: ");
	ler (R);
	C := 2*3.14*R;
	A := 3.14*R*R;
	escrever ("Circunferencia = ",C);
	escrever ("Area = ",A);
fim.
7. Faça um algoritmo que leia o valor de um salário e mostre este salário com um aumento de 20%.
algoritmo questao_07;
var salario,salario_novo:real;
inicio
	escrever ("Entre com o salario: ");
	ler (salario);
	salario_novo = salario*1.20;
	escrever ("Salario novo = ",salario_novo);
fim.
8. Para tornar o algoritmo anterior mais genérico, altere-o para que permita ao usuário digitar o salário e a porcentagem de aumento e então mostre o valor do novo salário.
algoritmo questao_08;
var salario,aumento,salario_novo:real;
inicio
	escrever ("Entre com o salario: ");
	ler (salario);
	escrever ("Entre com o aumento (%): ");
ler (aumento);
	salario_novo = salario*(1+aumento/100);
	escrever ("Salario novo = ",salario_novo);
fim.
9. Faça um algoritmo que leia três notas e mostre a soma e a média aritmética delas.
algoritmo questao_09;
var n1,n2,n3,soma,media:real;
inicio
	escrever ("Entre com a primeira nota: ");
ler (n1);
escrever ("Entre com a segunda nota: ");
ler (n2);
escrever ("Entre com a terceira nota: ");
ler (n3);
	soma = n1+n2+n3;
	media = (n1+n2+n3)/3;
	escrever ("Soma = ",soma);
	escrever ("Media = ",media);
fim.
10. Faça um algoritmo para ler a base e a altura de um triângulo. Em seguida, escreva a área do mesmo. 
 Obs: Área = ( Base * Altura ) / 2
algoritmo questao_10;
var base,altura,area: real;
inicio
escrever ("Entre com a Base: ");
ler (base);
escrever ("Entre com a altura: ");
ler (altura);
area := (base*altura)/2;
escrever ("Area = ",area);
fim.
11. O preço de um automóvel é calculado pela soma do preço de fábrica com o preço dos impostos (45% do preço de fábrica) e a percentagem do revendedor (28% do preço de fábrica). Faça um algoritmo que leia o nome do automóvel e o preço de fábrica e imprima o nome do automóvel e o preço final.
algoritmo questao_11;
var nome: caracter [30];
 precofabrica,precofinal,imposto: real;
inicio
	escrever ("Entre com o nome: ")
	ler (nome);
	escrever ("Entre com o preço de fabrica: ");
ler (precofabrica);
 	imposto := precofabrica*(1+(0.45+0.28));
 	precofinal := precofabrica+imposto;
 	escrever ("Nome = ",nome)
escrever, ("Preco Final = ",precofinal); 
fim.
12. Uma empresa tem para um determinado funcionário uma ficha contendo o nome, número de horas trabalhadas e o número de dependentes de um funcionário.
	Considerando que:
			a) A empresa paga 12 reais por hora e 40 reais por dependentes.
Sobre o salário são feito descontos de 8,5% para o INSS e 5% para IR.
Faça um algoritmo para ler o Nome, número de horas trabalhadas e número de dependentes de um funcionário. Após a leitura, escreva qual o Nome, salário bruto, os valores descontados para cada tipo de imposto e finalmente qual o salário líquido do funcionário.
algoritmo questao_12;
var nome: caracter [30];
 dependente: inteiro;
 horas,salliq,salb,dinss,dir,dtotal: real;
inicio
escrever ("Entre com o nome do funcionario: ");
ler (nome)
escrever ("Entre com o numero de horas trabalhadas: ");
ler (horas);
escrever ("Entre com o numero de dependentes: ");
ler (dependente);
 	salb := (12*horas)+(40*dependente);
 	dinss := (salb*0.085);
 	dir := (salb*0.05); 
	dtotal := dinss+dir); 
 	salliq := (salb-dtotal);
	escrever ("Nome = ",nome);
	escrever ("Salario Bruto = ",salb);
	escrever ("Desconto INSS = ",dinss);
	escrever ("Desconto Imposto de Renda = ",dir);
	escrever ("Salario Liquido = "salliq);
 fim.
� PAGE �4�