Lista de Exercícios - 02 - Respostas

Prévia do material em texto

UNIVERSIDADE FEDERAL DE RONDÔNIA 
DEPARTAMENTO DE MATEMÁTICA E ESTATÍSTICA 
CAMPUS DE JI-PARANÁ 
 
 
1 
 
 
Curso: Bacharelado em Estatística 
Disciplina: Introdução à Ciência da Computação 
 
Lista de Exercícios – 02 - Respostas 
Nome: _______________________________________________________________ 
Nome: ________________________________________________________________ 
Nome: ________________________________________________________________ 
 
(01) Escreva um algoritmo para calcular a área de um círculo. Área do círculo = 3,1415 
* Raio*Raio. 
 
(***** Pseudocódigo ****) 
 
Algoritmo Area_Circulo 
 
Constante 
 Pi ← 3.1415926535897932384626433832795: Real; 
 
Variaveis 
 Raio, Area: Real; 
 
Inicio 
 Leia Raio 
 Area ← Raio*Raio*Pi 
 Escreva Area 
Fim 
 
(***** Pascal *****) 
 
Program Circulo; 
 
// RTL para a procedure ClrScr 
Uses Crt; 
 
Const 
 Pi = 3.154926; 
 
// declaração de variáveis globais 
Var 
 Raio, Area : Real; 
 
Begin 
 
 // limpa a tela 
 ClrScr; 
 
 // solicita entrada de dados e efetua o armazenamento 
 Write('Digite o valor do raio: '); 
 ReadLn(Raio); 
 
 // calcula a rea e exibe ao usu rio 
 area := raio*raio*Pi; 
 WriteLn('A rea do círculo de raio ', raio:2:2, ': ', area:2:10); 
 
 // solicita ao usu rio o pressionamento de alguma tecla e aguarda 
 Write('Pressione alguma tecla...'); 
 Read(); 
 
End. 
 
(02) Quais os valores das expressões a seguir: 
 
2 + 3*6 
12/3*2 - 5 
31/4 
31 Div 4 
 31 Resto 4 
9**(1/2) 
16**0.5 
 
Respostas: 
 
2 + 3*6 = 2 + 18 = 20 
12/3*2 - 5 = 4*2 – 5 = 8 – 5 = 3 
31/4 = 7,75 
31 Div 4 = 7 
31 Resto 4 = 3 
9**(1/2)= 3 
16**0.5 = 4 
 
(***** Pascal *****) 
 
Program Ex_21; 
 
Uses Math, Crt; 
 
Var 
 i : Integer; 
 x : Real; 
 
Begin 
 ClrScr; 
 i := 2 + 3*6; 
 WriteLn('2 + 3*6 = ', i); 
 x := 12/3*2 - 5; 
 WriteLn('12/3*2 - 5 = ', x:3:2); 
 x := 31/4; 
 WriteLn('31/4 = ', x:3:2); 
 i := 31 Div 4; 
 WriteLn('31 Div 4 = ', i); 
 i := 31 Mod 4; 
 WriteLn('31 Resto 4 = ', i); 
 x := Power(9, 1/2); 
 WriteLn('9**(1/2) = ', x:3:2); 
 x := Power(16,0.5); 
 WriteLn('16**0.5 = ', x:3:2); 
 ReadLn; 
End. 
 
 
(03) Escreva um algoritmo que determine a área e o perímetro de um retângulo. 
 
(***** Pseudocódigo ****) 
 
Algoritmo Perimetro_Retangulo 
 
Variaveis 
 Base, Altura, Perimetro : Real 
 
Inicio 
 Escreva ‘Digite o valor da base do retângulo’ 
 Leia Base 
 Escreva ‘Digite o valor da altura do retângulo’ 
 Leia Altura 
 Perimetro  2*Base + 2*Altura 
 Escreva Perimetro 
Fim 
 
(***** Pascal *****) 
 
Program Ex_26; 
 
Uses Crt; 
 
Var 
 Base, Altura, Perimetro : Real; 
 
Begin 
 ClrScr; 
 Write('Digite o valor da base do retangulo: '); 
 ReadLn(Base); 
 Write('Digite o valor da altura do retangulo: '); 
 ReadLn(Altura); 
 Perimetro := 2*Base + 2*Altura; 
 WriteLn('Perimetro = ', Perimetro:3:2); 
 ReadLn; 
End. 
 
(04) Dados três números reais, faça um algoritmo que: 
a) Determine a soma dos três números; 
b) Determine a raiz quadrada do produto dos três números. 
 
(***** Pseudocódigo *****) 
 
Algoritmo Tres_Numeros 
 
Variaveis 
 Num_1, Num_2, Num_3, Soma, Raiz : Real 
 
Inicio 
 Escreva ‘Digite o valor do primeiro número’ 
 Leia Num_1 
 Escreva ‘Digite o valor do segundo número’ 
 Leia Num_2 
 Escreva ‘Digite o valor do terceiro número’ 
 Leia Num_3 
 Soma  Num_1 + Num_2 + Num_3 
 Raiz  (Num_1*Num_2*Num_3)*0.5 
 Escreva Soma 
 Escreva Raiz 
Fim 
 
 
(***** Pascal *****) 
 
Program Ex_27; 
 
Uses Crt, Math; 
 
Var 
 Num_1, Num_2, Num_3, Soma, Raiz : Real; 
 
Begin 
 ClrScr; 
 Write('Digite o valor do primeiro numero: '); 
 Read(Num_1); 
 Write('Digite o valor do segundo numero: ' ); 
 Read(Num_2); 
 Write('Digite o valor do terceiro numero: '); 
 Read(Num_3); 
 Soma := Num_1 + Num_2 + Num_3; 
 Raiz := Power(Num_1*Num_2*Num_3, 0.5); 
 WriteLn('Soma dos tres numeros: ', Soma:3:2); 
 WriteLn('Raiz quadrada do produto do tres numeros: ', Raiz:3:2); 
 ReadLn; 
End. 
 
(05) Escreva um algoritmo que forneça o valor em graus Fahrenheit de uma temperatura 
expressa em graus Celsius. 
32
5
9
 CF
 
 
(***** Pseudocódigo *****) 
 
Algoritmo Celcios_To_Fahrenheit 
 
Variaveis 
 Celcius, Fahrenheit : Real 
 
Inicio 
 Escreva ‘Quantos graus celcius?’ 
 Leia Celcius 
 Fahrenheit  (9/5)*Celcius + 32 
 Escreva Fafrenheit, ‘ graus equivale a ‘, Celcius, ‘ graus celcius.’ 
Fim 
 
(***** Pascal *****) 
 
Program Ex_28; 
 
Uses Crt; 
 
Var 
 Celcius, Fahrenheit : Real; 
 
Begin 
 ClrScr; 
 Write('Quantos graus celcius? '); 
 ReadLn(Celcius); 
 Fahrenheit := (9/5)*Celcius + 32; 
 WriteLn(Celcius:3:2, ' graus Celcius equivalem a ', Fahrenheit:3:2, ' graus 
fahrenheit.'); 
 ReadLn; 
End. 
 
 
(06) Faça um algoritmo para calcular o volume de uma esfera de raio r. 
3
4 3R
V


 
 
(07) Uma pessoa comprou quatro artigos em uma loja. Para cada artigo, tem-se nome, 
preço e percentual de desconto. Faça um algoritmo que imprima nome, preço e preço 
com desconto de cada artigo. Imprima também o total a pagar. 
 
(***** Pseudocódigo *****) 
 
Algoritmo Celcios_To_Fahrenheit 
 
Variaveis 
 Celcius, Fahrenheit : Real 
 
Inicio 
 Escreva ‘Quantos graus celcius?’ 
 Leia Celcius 
 Fahrenheit  (9/5)*Celcius + 32 
 Escreva Fafrenheit, ‘ graus equivale a ‘, Celcius, ‘ graus celcius.’ 
Fim 
 
(***** Pascal *****) 
 
Program Ex_28; 
 
Uses Crt; 
 
Var 
 Celcius, Fahrenheit : Real; 
 
Begin 
 ClrScr; 
 Write('Quantos graus celcius? '); 
 ReadLn(Celcius); 
 Fahrenheit := (9/5)*Celcius + 32; 
 WriteLn(Celcius:3:2, ' graus Celcius equivalem a ', Fahrenheit:3:2, ' graus 
fahrenheit.'); 
 ReadLn; 
End. 
 
(08) Faça um algoritmo que leia os preços de três mercadorias em 01/04 e 01/05 e tendo 
como base a variação dos preços dessas mercadorias, calcule a taxa de inflação ocorrida 
no período. 
 
(***** Pseudocódigo *****) 
 
Algoritmo Inflacao 
 
Variaveis 
 PrecoMerc_1, PrecoMerc_2, PrecoMerc_3 : Real 
 PrecoMerc_12, PrecoMerc_22, PrecoMerc_32 : Real 
 TaxaInflacao_1, TaxaInflacao_2, TaxaInflacao_3 : Real 
 InflacaoMedia : Real 
 TaxaInflacaoTotal : Real 
 
Inicio 
 (* preço das mercadorias no dia 01/04 *) 
 Escreva ‘Preço do primeiro produto em 01/04: ‘ 
 Leia PrecoMerc_1 
 Escreva ‘Preço do segundo produto em 01/04: ‘ 
 Leia PrecoMerc_2 
 Escreva ‘Preço do terceiro produto em 01/04: ‘ 
 Leia PrecoMerc_3 
 
 (* preço das mercadorias no dia 01/05 *) 
 Escreva ‘Preço do primeiro produto em 01/05: ‘ 
 Leia PrecoMerc_12 
 Escreva ‘Preço do segundo produto em 01/05: ‘ 
 Leia PrecoMerc_22 
 Escreva ‘Preço do terceiro produto em 01/05: ‘ 
 Leia PrecoMerc_32 
 
 (* determinação da inflação dos produtos *) 
 TaxaInflacao_1  PrecoMerc_12/PrecoMerc_1 
 TaxaInflacao_2  PrecoMerc_22/PrecoMerc_2 
 TaxaInflacao_3 PrecoMerc_32/PrecoMerc_3 
 
 (* taxa de inflação media e total do período *) 
 InflacaoMedia  TaxaInflacao_1 + TaxaInflacao_2+TaxaInflacao_3 
 TaxaInflacaoTotal  (InflacaoMedia - 1)*100 
 
 (* exibe a inflação total do período *) 
 Escreva ‘A taxa de inflação total no período foi: ‘, TaxaInflacaoTotal 
Fim 
 
(***** Pascal *****) 
 
Program Ex_211; 
 
Uses Crt; 
 
Var 
 PrecoMerc_1, PrecoMerc_2, PrecoMerc_3 : Real; 
 PrecoMerc_12, PrecoMerc_22, PrecoMerc_32 : Real; 
 TaxaInflacao_1, TaxaInflacao_2, TaxaInflacao_3 : Real; 
 InflacaoMedia : Real; 
 TaxaInflacaoTotal : Real; 
 
Begin 
 (* limpa a tela *) 
 ClrScr; 
 
 (* preço das mercadorias no dia 01/04 *) 
 Write('Preco do primeiro produto em 01/04: '); 
 ReadLn(PrecoMerc_1); 
 Write('Preco do segundo produto em 01/04: '); 
 ReadLn(PrecoMerc_2); 
 Write('Preco do terceiro produto em 01/04: '); 
 ReadLn(PrecoMerc_3); 
 WriteLn; 
 
 (* preço das mercadorias no dia 01/05 *) 
 Write('Preco do primeiro produto em 01/05: '); 
 ReadLn(PrecoMerc_12); 
 Write('Preco do segundo produto em 01/05: '); 
 ReadLn(PrecoMerc_22); 
 Write('Preco do terceiro produto em 01/05: '); 
 ReadLn(PrecoMerc_32); 
 WriteLn; 
 
 (* determinação da inflação dos produtos *) 
 TaxaInflacao_1 := PrecoMerc_12/PrecoMerc_1; 
 TaxaInflacao_2 := PrecoMerc_22/PrecoMerc_2; 
 TaxaInflacao_3 := PrecoMerc_32/PrecoMerc_3; 
 
 (* taxa de inflação media e total do período *) 
 InflacaoMedia := (TaxaInflacao_1 + TaxaInflacao_2+TaxaInflacao_3)/3; 
 TaxaInflacaoTotal := (InflacaoMedia - 1)*100; 
 
 (* exibe a inflação total do período *) 
 Write('A taxa de inflacao total no periodo foi: ', TaxaInflacaoTotal:3:2,'%'); 
 ReadLn; 
End. 
 
(09) Suponha que você foi ao supermercado e comprou: 
N quilos de café, cujo custo unitário é Q; 
L litros de leite, cujo custo unitário é P; 
B quilos de banana, cujo custo unitário é T. 
 
Faça um algoritmo que imprima; nome do produto, total gasto com cada produto e o 
total gasto no mercado. 
 
(***** Pseudocódigo *****) 
 
Algoritmo Supermecado 
 
Variaveis 
 N_Cafe, L_Leite, B_Banana : Real; 
 Q_Cafe, P_Leite, T_Banana : Real; 
 Total_Gasto : Real; 
 
Inicio 
 Escreva 'Quantos quilos de café? ' 
 Leia N_Cafe; 
 Escreva 'Quantos litros de leite? ' 
 Leia L_Leite; 
 Escreva 'Quantos quilos de banana? ' 
 Leia B_Banana; 
 
 Escreva 'Qual é o preço do quilo de café? ' 
 Leia Q_Cafe; 
 Escreva 'Qual é o preço de um litro de leite? ' 
 Leia P_Leite; 
 Escreva 'Qual é o preço de um quilo de banana? ' 
 Leia T_Banana; 
 
 Escreva 'Café – Total gasto: ', N_Cafe*Q_Cafe 
 Escreva 'Leite – Total gasto: ', L_Cafe*P_Cafe 
 Escreva 'Banana – Total gasto: ', B_Cafe*T_Banana 
 
 Total_Gasto  N_Cafe*Q_Cafe + L_Cafe*P_Cafe + B_Cafe*T_Banana 
 Escreva 'Total gasto no supermercado: ', Total_Gasto 
Fim. 
 
(***** Pascal *****) 
 
Program Ex_212; 
 
Uses Crt; 
 
Var 
 N_Cafe, L_Leite, B_Banana : Real; 
 Q_Cafe, P_Leite, T_Banana : Real; 
 Total_Gasto : Real; 
 
Begin 
 (* limpa a tela *) 
 ClrScr; 
 
 Write('Quantos quilos de cafe? '); 
 ReadLn(N_Cafe); 
 Write('Quantos litros de leite? '); 
 ReadLn(L_Leite); 
 Write('Quantos quilos de banana? '); 
 ReadLn(B_Banana); 
 WriteLn; 
 
 Write('Qual eh o preco do quilo de cafe? '); 
 ReadLn(Q_Cafe); 
 Write('Qual e o preco de um litro de leite? '); 
 ReadLn(P_Leite); 
 Write('Qual e o preco de um quilo de banana? '); 
 ReadLn(T_Banana); 
 WriteLn; 
 
 WriteLn('Caf‚ - Total gasto: ', N_Cafe*Q_Cafe:3:2); 
 WriteLn('Leite - Total gasto: ', L_Leite*P_Leite:3:2); 
 WriteLn('Banana - Total gasto: ', B_Banana*T_Banana:3:2); 
 
 Total_Gasto := N_Cafe*Q_Cafe + L_Leite*P_Leite + B_Banana*T_Banana; 
 Write('Total gasto no supermercado: ', Total_Gasto:3:2); 
 ReadLn; 
End. 
 
 
(10) Uma sorveteria vende três tipos de picolés. Sabendo-se que o picolé tipo 1 é 
vendido por R$1,50, o do tipo 2 por R$2,00 e o do tipo 3 por R$0,75, faça um algoritmo 
que, para cada tipo de picolé, mostre a quantidade vendida e o total arrecadado. 
 
(***** Pseudocódigo *****) 
 
Algoritmo Picole 
 
Constantes 
 Preco_Pic01 = 1,50 
 Preco_Pic02 = 2,00 
 Preco_Pic03 = 0,75 
 
Variáveis 
 VendPic01, VendPic02, VendPic03 : Inteiro 
 Total_Arrecadado : Real 
 
Inicio 
 Escreva ‘Quanto picolés do tipo 1 vendidos?’ 
 Leia VendPic01 
 Escreva ‘Quanto picolés do tipo 2 vendidos?’ 
 Leia VendPic02 
 Escreva ‘Quanto picolés do tipo 3 vendidos?’ 
 Leia VendPic03 
 
 Escreva ‘Foram vendidos ‘, VendPic01 ‘ do tipo 1’ 
 Escreva ‘Foram vendidos ‘, VendPic02 ‘ do tipo 2’ 
 Escreva ‘Foram vendidos ‘, VendPic03 ‘ do tipo 3’ 
 
 Total_Arrecadado  VendPic01*Preco_Pic01 + VendPic02*Preco_Pic02 + VendPic03* 
Preco_Pic03 
 Escreva ‘O total arrecadado foi: ‘, Total_Arrecadado 
Fim 
 
(***** Pascal *****) 
 
Program Ex_213; 
 
Uses Crt; 
 
Const 
 PrecPic01 = 1.50; 
 PrecPic02 = 2.00; 
 PrecPic03 = 0.75; 
 
Var 
 VendPic01, VendPic02,VendPic03 : Integer; 
 Total_Arrecadado : Real; 
 
Begin 
 ClrScr; 
 Write('Quanto picoles do tipo 1 vendidos? '); 
 ReadLn( VendPic01); 
 Write('Quanto picoles do tipo 2 vendidos? '); 
 ReadLn(VendPic02); 
 Write('Quanto picoles do tipo 3 vendidos? '); 
 ReadLn(VendPic03); 
 
 WriteLn('Foram vendidos ', VendPic01, ' do tipo 1.'); 
 WriteLn('Foram vendidos ', VendPic02, ' do tipo 2.'); 
 WriteLn('Foram vendidos ', VendPic03, ' do tipo 1.'); 
 
 Total_Arrecadado := VendPic01*PrecPic01 + VendPic02*PrecPic02 + 
VendPic03*PrecPic03; 
 WriteLn('O total arrecadado foi: ', Total_Arrecadado:3:2); 
 ReadLn; 
End. 
(11) A revendedora de carros Pica-Pau Ltda paga a seus funcionários vendedores dois 
salários-mínimos fixos, mais uma comissão fixa de R$150,00 por carro vendido e mais 
5% do valor das vendas. Faça um algoritmo que determine o salário total de um 
vendedor. 
 
(***** Pseudocódigo *****) 
 
Algoritmo Salario_Vendedor 
 
Constantes 
 SalMin = 525 
 PercVendas = 0,05 
 
Variáveis 
 SalTotal, VendTotal : Real 
 CarVend: Inteiro 
 
Inicio 
 Escreva ‘Quantos carros vendidos? ‘ 
 Leia CarVend 
 Escreva ‘Qual o total de vendas? ‘ 
 Leia VendTotal 
 SalTotal  2*SalMin + CarVend*150 + VendTotal*PercVendas 
 Escreva ‘O salário total do funcionário é: ‘, SalTotal 
Fim 
 
(***** Pascal *****) 
 
Program Ex_214; 
 
Uses Crt; 
 
Const 
 SalMin = 525.0; 
 PercVendas = 0.05; 
 
Var 
 SalTotal, VendTotal : Real; 
 CarVend: Integer; 
 
Begin 
 ClrScr; 
 Write('Quantos carros vendidos? '); 
 ReadLn(CarVend); 
 Write('Qual o total de vendas? '); 
 ReadLn(VendTotal); 
 SalTotal := 2*SalMin + CarVend*150 + VendTotal*PercVendas; 
 WriteLn('O salario total do funcionario eh: ', SalTotal:3:2); 
 ReadLn; 
End. 
 
(12) Uma empresa produz três tipos de peças mecânicas: parafusos, porcas e arruelas. 
Tem-se ospreços unitários de cada tipo de peça e sabe-se que sobre esses preços 
incidem descontos de 10% para porcas, 20% para parafusos e 30% para arruelas. 
Escreva um algoritmo que calcule o valor total da compra de um cliente. Deve ser 
mostrado o nome do cliente, o número de cada tipo de peça que comprou, o total de des-
conto e o total a pagar pela compra. 
 
(***** Pseudocódigo *****) 
 
Algoritmo Pecas 
 
Constantes 
 Desc_Por = 0.10 
 Desc_Par = 0.20 
 Desc_Arr = 0.30 
 
Variaveis 
 Prc_Par, Prc_Por, Prc_Arr : Real 
 Qtd_Par, Qtd_Por, Qtd_Arr : Inteiro 
 Nome_Cliente : String 
 Preco_Total, Desc_Total : Real 
 
Inicio 
 Escreva ‘Qual é o nome do cliente?’ 
 Leia Nome_Cliente; 
 Escreva ‘Quantos parafusos foram comprados?’ 
 Leia Qtd_Par 
 Escreva ‘Qual é o preço unitário do parafuso?’ 
 Leia Prc_Par 
 Escreva ‘Quantas porcas foram compradas?’ 
 Leia Qtd_Por 
 Escreva ‘Qual é o preço unitário da porca?’ 
 Leia Prc_Por 
 Escreva ‘Quanto arruelas foram compradas?’ 
 Leia Qtd_Arr 
 Escreva ‘Qual é o preço unitário da arruela?’ 
 Leia Prc_Arr 
 Desc_Total  Qtd_Par*Prc_Par*Desc_Par + Qtd_Por*Prc_Por*Desc_Por + 
Qtd_Arr*Prc_Arr*Desc_Arr 
 Preco_Total  Qtd_Par*Prc_Par + Qtd_Por*Prc_Por + Qtd_Arr*Prc_Arr – Desc_Total 
 Escreva ‘Nome_Cliente’ 
 Escreva Qtd_Par, ‘ parafusos comprados.’ 
 Escreva Qtd_Por, ‘ porcas compradas.’ 
 Escreva Qtd_Arr, ‘ arruelas compradas’ 
 Escreva ‘Total do desconto: ‘, Desc_Total 
 Escreva ‘Total gasto: ‘, Preco_Total 
Fim 
 
(***** Pascal *****) 
 
Program Ex_215; 
 
Uses Crt; 
 
Const 
 Desc_Por = 0.10; 
 Desc_Par = 0.20; 
 Desc_Arr = 0.30; 
 
Var 
 Prc_Par, Prc_Por, Prc_Arr : Real; 
 Qtd_Par, Qtd_Por, Qtd_Arr : Integer; 
 Nome_Cliente : String; 
 Preco_Total, Desc_Total : Real; 
 
Begin 
 (* limpa a tela *) 
 ClrScr; 
 
 (* recolhimento dos dados *) 
 Write('Qual eh o nome do cliente? '); 
 ReadLn(Nome_Cliente); 
 Write('Quantos parafusos foram comprados? '); 
 ReadLn(Qtd_Par); 
 Write('Qual eh o preco unitario do parafuso? '); 
 ReadLn(Prc_Par); 
 Write('Quantas porcas foram compradas? '); 
 ReadLn(Qtd_Por); 
 Write('Qual eh o preco unitario da porca? '); 
 ReadLn(Prc_Por); 
 Write('Quanto arruelas foram compradas? '); 
 ReadLn(Qtd_Arr); 
 Write('Qual eh o preco unitario da arruela? '); 
 ReadLn(Prc_Arr); 
 
 (* efeando cálculos *) 
 Desc_Total := Qtd_Par*Prc_Par*Desc_Par + Qtd_Por*Prc_Por*Desc_Por + 
Qtd_Arr*Prc_Arr*Desc_Arr; 
 Preco_Total := Qtd_Par*Prc_Par + Qtd_Por*Prc_Por + Qtd_Arr*Prc_Arr - Desc_Total; 
 
 (* apresentando os dados *) 
 WriteLn('Nome_Cliente: ', Nome_Cliente); 
 WriteLn(Qtd_Par, ' parafusos comprados.'); 
 WriteLn(Qtd_Por, ' porcas compradas.'); 
 WriteLn(Qtd_Arr, ' arruelas compradas.'); 
 WriteLn('Total do desconto: ', Desc_Total:3:2); 
 WriteLn('Total gasto: ', Preco_Total:3:2); 
 ReadLn; 
End. 
 
 
 
(13) Considerando que, para um consórcio, sabe-se o número total de prestações, a 
quantidade de prestações pagas e o valor atual da prestação, escreva um algoritmo que 
determine o total pago pelo consorciado e o saldo devedor. 
 
(***** Pseudocódigo *****) 
 
Algoritmo Consorcio 
 
Variáveis 
 Nr_Prestacoes, Prest_Pagas : Inteiro 
 Valor_Prestacao, Qtd_Paga, Sal_Dev : Real 
 
Inicio 
 Escreva ‘Qual é o número de prestações? ‘ 
 Leia Nr_Prestacoes 
 Escreva ‘Quantas prestações foram pagas? ‘ 
 Leia Prest_Pagas 
 Escreva ‘Qual é o valor da prestação? ‘ 
 Leia Valor_Prestacao 
 Qtd_Paga  Prest_Pagas * Valor_Prestacao 
 Sal_Dev  Valor_Prestacao*(Nr_Prestacoes – Prest_Pagas) 
 Escreva ‘Total Pago: ‘, Qtd_Paga 
 Escreva ‘Saldo Devedor: ‘, Sal_Dev 
Fim 
 
(***** Pascal *****) 
 
Program Ex_216; 
 
Uses Crt; 
 
Var 
 Nr_Prestacoes, Prest_Pagas : Integer; 
 Valor_Prestacao, Qtd_Paga, Sal_Dev : Real; 
 
Begin 
 (* limpa a tela *) 
 ClrScr; 
 
 (* Obten‡ao dos dados *) 
 Write('Qual eh o numero de prestacoes? '); 
 ReadLn(Nr_Prestacoes); 
 Write('Quantas prestacoes foram pagas? '); 
 ReadLn(Prest_Pagas); 
 Write('Qual eh o valor da prestacao? '); 
 ReadLn(Valor_Prestacao); 
 Qtd_Paga := Prest_Pagas * Valor_Prestacao; 
 Sal_Dev := Valor_Prestacao*(Nr_Prestacoes - Prest_Pagas); 
 WriteLn('Total Pago: ', Qtd_Paga:3:2); 
 WriteLn('Saldo Devedor: ', Sal_Dev:3:2); 
 ReadLn; 
End. 
 
 
 
 
(14) Dado que se tem o valor de um ângulo expresso em graus, minutos e segundos 
(exemplo: 35°47'59"), escreva um algoritmo que forneça o valor desse ângulo em 
radianos. 
 
Algoritmo Graus_Radianos 
 
Constantes 
 PI = 3.141592654 
 
Variáveis 
 Grau, Minuto, Segundo : Inteiro 
 Rad : Real; 
 
Inicio 
 Escreva ‘Quantos graus? ‘ 
 Leia Grau 
 Escreva ‘Quantos minutos?’ 
 Leia Minuto 
 Escreva ‘Quantos segundos? ‘ 
 Leia Segundo 
 Rad  (PI * (grau*60*60 + minuto*60 + segundo))/(180*60*60) 
 Escreva grau, ‘ graus’, minuto, ‘ minutos’, segundo, ‘ segundos são iguais a’, Rad, ‘ 
radianos.’ 
Fim. 
 
 
(Pascal) 
 
Program Ex_217; 
 
Uses Crt; 
 
Const 
 PI = 3.141592654; 
 
Var 
 Grau, Minuto, Segundo : Integer; 
 Rad : Real; 
 
Begin 
 ClrScr; 
 Write('Quantos graus? '); 
 ReadLn(Grau); 
 Write('Quantos minutos? ' ); 
 ReadLn(Minuto); 
 Write('Quantos segundos? '); 
 ReadLn(Segundo); 
 Rad := (PI * (grau*60*60 + minuto*60 + segundo))/(180*60*60); 
 WriteLn(grau, ' graus, ', minuto, ' minutos, ', segundo, ' segundos sao iguais a ', 
Rad:3:9, ' radianos.'); 
 ReadLn; 
End. 
 
(15) Suponha que um caixa disponha apenas de notas de 1, 10 e 100 reais. 
Considerando que alguém está pagando uma compra, escreva um algoritmo que mostre 
o número mínimo de notas que o caixa deve fornecer como troco. Mostre também o 
valor da compra, o valor do troco e a quantidade de cada tipo de nota do troco. Suponha 
que o sistema monetário não utilize centavos. 
 
(***** Pseudocódigo *****) 
 
Algoritmo Graus_Radianos 
 
Constantes 
 PI = 3.141592654 
 
Variáveis 
 Grau, Minuto, Segundo : Inteiro 
 Rad : Real; 
 
Inicio 
 Escreva ‘Quantos graus? ‘ 
 Leia Grau 
 Escreva ‘Quantos minutos?’ 
 Leia Minuto 
 Escreva ‘Quantos segundos? ‘ 
 Leia Segundo 
 Rad  (PI * (grau*60*60 + minuto*60 + segundo))/(180*60*60) 
 Escreva grau, ‘ graus’, minuto, ‘ minutos’, segundo, ‘ segundos são iguais a’, Rad, ‘ 
radianos.’ 
Fim. 
 
 
(***** Pascal *****) 
 
Program Ex_217; 
 
Uses Crt; 
 
Const 
 PI = 3.141592654; 
 
Var 
 Grau, Minuto, Segundo : Integer; 
 Rad : Real; 
 
Begin 
 ClrScr; 
 Write('Quantos graus? '); 
 ReadLn(Grau); 
 Write('Quantos minutos? ' ); 
 ReadLn(Minuto); 
 Write('Quantos segundos? '); 
 ReadLn(Segundo); 
 Rad := (PI * (grau*60*60 + minuto*60 + segundo))/(180*60*60); 
 WriteLn(grau, ' graus, ', minuto, ' minutos, ', segundo, ' segundos sao iguais a ', 
Rad:3:9, ' radianos.'); 
 ReadLn; 
End. 
 
(16) Escreva um algoritmo que determine o número de dias que uma pessoa já viveu. 
Considere que um mês tenha 30 dias. 
 
(*****Pseudocódigo *****) 
 
Algoritmo NumeroDias 
 
Variaveis 
 Nr_Dias, Dia, Mes, Ano: Inteiro; 
 
Inicio 
 Escreva ‘Qual ano que vc nasceu?’ 
 Leia Ano; 
 Escreva ‘Qual mês que vc nasceu? ’ 
 Leia Mes 
 Escreva ‘Que dia do mês que vc nasceu?) ’ 
 Leia Dia 
 NrDias  (2011 – Ano)*12*30 + (12 – Mês)*30 + (30 - Dia) 
 Escreva ‘Vc tem ‘, Nr_dias, ‘ de nascido’ 
Fim 
 
(***** Pascal *****) 
 
Program Ex_219; 
 
Uses Crt; 
 
Var 
 Nr_Dias : LongInt; 
 Dia, Mes, Ano: Integer; 
 
Begin 
 Write('Qual ano que vc nasceu? (exenplo: 1970): '); 
 ReadLn(Ano); 
 Write('Qual mes que vc nasceu? (exemplo: 9): ' ); 
 ReadLn(Mes); 
 Write('Que dia do mes que vc nasceu?: '); 
 ReadLn(Dia); 
 Nr_Dias := (2011 - Ano)*12*30 + (12 - Mes)*30 + (30 - Dia); 
 WriteLn('Vc tem ', Nr_dias, ' de nascido'); 
 ReadLn; 
End.