EXERCICIOS RESOLVIDOS DE LOGICA DE PROGRAMAÇÃO

Prévia do material em texto

EXERCICIOS RESOLVIDOS DE LOGICA DE PROGRAMAÇÃO 
CAPITULO 01 
PAGINA 17 
 
algoritmo "AreaTriangulo" 
// Disciplina: [] 
// Professor(a): 
// Função :Calcular a area de um triangulo 
// Autor : 
// Data : 27/09/2012 
// Seção de Declarações 
var 
base, altura :inteiro 
area :real 
 
inicio 
escreval ("Escreva o valor da base:") 
Leia (base) 
escreval ("Escreva o valor da altura:") 
Leia (altura) 
area <- (base * altura) /2 
escreval ("A area do triangulo é:") 
escreva (area) 
 fimalgoritmo 
 
 
PAGINA 20 
 
algoritmo "MediaTresValores" 
// Disciplina: [] 
// Professor(a): 
// Função : 
// Autor : 
// Data : 27/09/2012 
// Seção de Declarações 
var 
valor_a, valor_b, valor_c, soma : inteiro 
media :real 
 
inicio 
escreval ("Escreva o primeiro valor:") 
Leia (valor_a) 
escreval ("Escreva o segundo valor:") 
Leia (valor_b) 
escreval ("Escreva o terceiro valor:") 
Leia (valor_c) 
soma <- (valor_a + valor_b + valor_c) 
media <- (soma/3) 
escreval ("o valor da média é:", media) 
fimalgoritmo 
 
 
CAPITULO 02 
 
PAGINA 26 
 
algoritmo "MediaAritmetica" 
// Disciplina: [] 
// Professor(a): 
// Função : 
// Autor : 
// Data : 27/09/2012 
// Seção de Declarações 
var 
valor_a, valor_b, valor_c, soma : inteiro 
media :real 
 
inicio 
// Pegao os numeros das contas 
escreval ("Escreva o primeiro valor:") 
Leia (valor_a) 
escreval ("Escreva o segundo valor:") 
Leia (valor_b) 
escreval ("Escreva o terceiro valor:") 
Leia (valor_c) 
//Faz a soma e calcula a média 
soma <- (valor_a + valor_b + valor_c) 
media <- (soma/3) 
//Diz qual foi a média 
escreval ("o valor da média é:", media) 
fimalgoritmo 
 
 
PAGINA 33 
 
algoritmo "ListaDeNome" 
// Função : 
// Autor : 
// Data : 27/09/2012 
// Seção de Declarações 
var 
nome_do_aluno :literal 
idade :inteiro 
nota :real 
 
inicio 
//Nomes para lista ser feita. 
Escreval ("Escreva o nome do aluno:") 
Leia (nome_do_aluno) 
Escreval ("Escreva a idade do aluno:") 
Leia (idade) 
Escreval ("Escreva a nota do aluno:") 
Leia (nota) 
//Lista feita. 
Escreval ("aluno:", nome_do_aluno) 
Escreval ("Idade:", idade) 
Escreval ("Nota:", nota) 
 Fimalgoritmo 
 
 
PAGINA 35 
 
algoritmo "RaizQuadrada" 
// Função : Calcula as raizes da equação 
// Autor : 
// Data : 27/09/2012 
// Seção de Declarações 
var 
a, b, c: inteiro 
x1, x2 :real 
 
inicio 
Escreval ("Insira os valores dos numeros A, B e C") 
Leia (a, b, c) 
x1 <- (- b + ( ( b^2 ) -4 * a * c )^0.5 ) / ( 2 * a) 
x2 <- (-b-((b^2)-4*a*c)^0.5)/(2*a) 
// exemplo valores: 3, 9 e 1. 
Escreval ("Raizes da equação") 
Escreval ("Raiz x':", x1) 
Escreval ("Raiz x'':", x2) 
fimalgoritmo 
 
 
Pagina 41, ex 08 
 
algoritmo "Conversor Celsus -> Fahrenheit" 
// Disciplina: [] 
// Professor(a): 
// Função : 
// Autor : 
// Data : 27/09/2012 
// Seção de Declarações 
var 
fahrenheit, celsius :real 
inicio 
escreval ("Digite a quantidade de graus celsius:") 
Leia (celsius) 
fahrenheit <- 9/5*celsius+32 
escreval (Celsius," Grau(s) celsius é igual a:",fahrenheit," graus fahrenheit") 
fimalgoritmo 
 
 
 
 
 
 
 
 
Pagina 41, ex 10 
 
algoritmo "Exercicio 10 Pagina 41" 
// Disciplina: [] 
// Professor(a): 
// Função : Imprimir o total a pagar 
// Autor : 
// Data : 05/10/2012 
// Seção de Declarações 
var 
art1, art2, art3, art4 :literal //artigos 
pre1, pre2, pre3, pre4, desc :real //preço e desconto 
total1, total2, total3, total4, total5, total6, desctotal :real //totais 
inicio 
// Nomes e preço dos artigos. 
Escreval ("Escreva o nome do primeiro artigo: ") 
Leia (art1) 
Escreval ("Escreva o preço do primeiro artigo: ") 
Leia (pre1) 
Escreval ("Escreva o nome do segundo artigo: ") 
Leia (art2) 
Escreval ("Escreva o preço do segundo artigo: ") 
Leia (pre2) 
Escreval ("Escreva o nome do terceiro artigo: ") 
Leia (art3) 
Escreval ("Escreva o preço do terceiro artigo: ") 
Leia (pre3) 
Escreval ("Escreva o nome do quarto artigo: ") 
Leia (art4) 
Escreval ("Escreva o preço do quarto artigo: ") 
Leia (pre4) 
//Desconto. 
Escreval ("Qual é o desconto? ") 
Leia (desc) 
//Calculos matematicos. 
total1 <- pre1 -((pre1) / (100/desc)) 
total2 <- pre2 -((pre2) / (100/desc)) 
total3 <- pre3 -((pre3) / (100/desc)) 
total4 <- pre4 -((pre4) / (100/desc)) 
total5 <- (pre1 + pre2 + pre3 + pre4 ) 
total6 <- total1 + total2 + total3 + total4) 
//Resposta final 
Escreval ("O primeiro artigo ",art1," custou R$: ",pre1," E com o desconto R$: 
",total1) 
Escreval ("O segundo artigo ",art2," custou R$: ",pre2," E com o desconto R$: 
",total2) 
Escreval ("O terceiro artigo ",art3," custou R$: ",pre3," E com o desconto R$: 
",total3) 
Escreval ("O quarto artigo ",art4," custou R$: ",pre4," E com o desconto R$: 
",total4) 
Escreval ("O preço de todos os artigos deram: ",total5," E com o desconto R$: 
",total6) 
//fim. 
Fimalgoritmo 
 
 
 
Pagina 41, ex 13 
 
algoritmo "VendasDePicolés" 
// Disciplina: [] 
// Professor(a): 
// Função : 
// Autor : 
// Data : 27/09/2012 
// Seção de Declarações 
var 
tipoa, tipob, tipoc, quanta, quantb, quantc :real 
 
inicio 
//Quantidade de picolés 
Escreval ("quantidade do picolé de tipo 1:") 
Leia (quanta) 
Escreval ("quantidade do picole de tipo 2:") 
Leia (quantb) 
Escreval ("quantidade do picole de tipo 3:") 
Leia (quantc) 
//Preços 
tipoa <- 1.50 
tipob <- 2.00 
tipoc <- 0.75 
//lista com os totais 
//contas no escreval 
escreval ("Você arrecadou: R$ ",quanta * tipoa," vendendo picoles do tipo 1") 
escreval ("Você arrecadou: R$ ",quantb * tipob," vendendo picoles do tipo 2") 
escreval ("Você arrecadou: R$ ",quantc * tipoc," vendendo picoles do tipo 3") 
escreval ("Você arrecadou: R$ ",(quanta * tipoa)+(quantb * tipob)+(quantc * 
tipoc)," no total das vendas") 
fimalgoritmo 
 
 
Pagina 42, ex 14 
algoritmo "Exercicio 14 Pagina 42" 
// Disciplina: [] 
// Professor(a): 
// Função : Determinar o salario total de um vendedor 
// Autor : 
// Data : 05/10/2012 
// Seção de Declarações 
var 
sala_min, car_ven, total, valor, totalmax :real 
inicio 
//perguntas 
Escreval ("Qual é o salario minimo? ") 
Leia (sala_min) 
Escreval ("Valor das vendas: ") 
Leia (valor) 
//calculos 
total <- ( sala_min * 2) + 150 
totalmax <- (total)+(valor * 0.05) 
//Resultado. 
Escreval ("O salario dos funcionarios da revendedora de carros Pica-pau Ltda é 
R$: ",totalmax," Reais.") 
fimalgoritmo 
 
 
 
Pagina 42, ex 16 
 
algoritmo "CalculadorDePrestações" 
// Disciplina: [] 
// Professor(a): 
// Função : 
// Autor : 
// Data : 27/09/2012 
// Seção de Declarações 
var 
total_prest, quant_prest, valor_prest :inteiro 
total_pago, saldo_devedor :real 
 
inicio 
escreval ("Total de pretações:") 
Leia (total_prest) 
escreval ("Quantidade de prestações pagas:") 
Leia (quant_prest) 
escreval ("Valor atual da prestação:") 
Leia (valor_prest) 
//Contas dos valores 
total_pago <- total_prest * valor_prest 
saldo_devedor <- total_prest - quant_prest 
//Resultado final 
escreval ("foi pago pelo consorciado R$: ",total_pago) 
escreval ("saldo devedor ", saldo_devedor) 
fimalgoritmo 
 
 
Pagina 42, ex 19 
 
algoritmo "DiasDeVida" 
// Disciplina: [] 
// Professor(a): 
// Função : 
// Autor : 
// Data : 27/09/2012 
// Seção de Declarações 
var 
idade, meses :real 
total :real 
 
inicio 
Escreval ("Escreva quantos anos e meses você tem:") 
Escreva ("Ex: 14 anos e 3 meses. escreva o ano primeiro depois os meses.") 
Leia (idade, meses) 
//Conta Para saber os dias de vida de uma pessoa. 
total <-(idade * 360) + (meses * 30) 
 
Escreval ("você viveu aproximadamente:") 
Escreval (total) 
Escreval ("dias") 
Fimalgoritmo 
 
 
Pagina 43, ex 21 
 
algoritmo "Pagina42 Exercicio 21" 
// Disciplina: [] 
// Professor(a): 
// Função : 
// Autor : 
// Data : 02/10/2012 
// Seção de Declarações 
var 
//variaveis. 
kmi,kmf, lc, ct, autonomia, kml :real 
marca :literal 
inicio 
//Perguntas. 
escreval ("Qual é a marca do automovel?") 
Leia (marca) 
escreval ("Qual é a quilometragem inicial do automovel?") 
Leia (kmi) 
escreval ("Qual é a quilometragem final do automovel?") 
Leia (kmf) 
escreval ("Quantos litros foram consumidos?") 
Leia (lc) 
escreval ("Qual é a capacidade do tanque de combustivel?") 
Leia (ct) 
//Contas feitas. 
kml <- kmf / lc 
autonomia <- lc / ct 
//Respostas. 
escreval ("A marca do automovel é: ",marca) 
escreval ("O consumo do automovel em km/litros é: ",kml) 
escreval ("A autonomia do automovel é: ",autonomia) 
fimalgoritmo 
 
Pagina 43, ex 24 
algoritmo "Exercicio 24 Pagina 43" 
// Disciplina: [] 
// Professor(a): 
// Função : 
// Autor : 
// Data : 02/10/2012 
var 
prova1, prova2, prova3, mf, peso1, peso2, peso3 :real 
 
inicio 
//Perguntas das variaveis. 
escreval ("Nota da primeira prova: ") 
Leia (prova1) 
escreval ("Nota da segunda prova: ") 
Leia (prova2) 
escreval ("Nota da terceira prova: ") 
Leia (prova3) 
//Contas feitas. 
//OBS: o valor da maximo das provas é 12. 
peso1 <- prova1 *0.2 
peso2 <- prova2 *0.4 
peso3 <- prova3 *0.6 
mf <- (peso1 + peso2 +peso3) 
//Resposta mediafinal 
escreval ("A média final é: ",mf) 
fimalgoritmo 
 
Pagina 44, ex 27 
 
algoritmo "Exercicio 27 Pagina 44" 
// Disciplina: [] 
// Professor(a): 
// Função : 
// Autor : 
// Data : 02/10/2012 
// Seção de Declarações 
var 
valor, valormod, valormod2, rvalormod, rvalormod2,rvalormod3, rvalores :inteiro 
 
inicio 
escreval ("Escreva um valor inteiro e positivo menor que 1000") 
Leia (valor) 
//contas usando DIV e MOD. 
valormod <- valor mod 10 
valormod2 <- valor div 10 
rvalormod3 <- valormod2 mod 10 
rvalormod <- valormod mod 10 
rvalormod2 <- valormod2 div 10 
rvalores <- (rvalormod3 + rvalormod + rvalormod2) 
//Respostas. 
escreval ("A soma dos digitos que formam o valor é: ",rvalores) 
fimalgoritmo 
 
 
Pagina 44, ex 27 
 
algoritmo "MediaAritmetica" 
// Disciplina: [] 
// Professor(a): 
// Função : 
// Autor : 
// Data : 27/09/2012 
// Seção de Declarações 
var 
valor_a, valor_b, valor_c, soma : inteiro 
media :real 
 
inicio 
// Pegao os numeros das contas 
escreval ("Escreva o primeiro valor:") 
Leia (valor_a) 
escreval ("Escreva o segundo valor:") 
Leia (valor_b) 
escreval ("Escreva o terceiro valor:") 
Leia (valor_c) 
//Faz a soma e calcula a média 
soma <- (valor_a + valor_b + valor_c) 
media <- (soma/3) 
//Diz qual foi a média 
escreval ("o valor da média é:", media) 
fimalgoritmo 
 
 
EXERCICIOS RESOLVIDOS DE LOGICA DE PROGRAMAÇÃO 
 
 
CAPITULO 03 
 
PAGINA 45 – NOTA 1 
 
algoritmo "Nota 1" 
// Função : 
// Autor : 
// Data : 4/10/2012 
// Seção de Declarações 
 
var 
nota :real 
 
inicio 
Escreval ("escreva a nota: ") 
Leia (nota) 
se nota > 5.0 entao 
 Escreva ("Você passou da média") 
Fimse 
 
Fimalgoritmo 
 
 
 
 
PAGINA 45 – NOTA 2 
 
algoritmo "Nota 2" 
// Função : 
// Autor : 
// Data : 4/10/2012 
// Seção de Declarações 
var 
valor_a, valor_b :inteiro 
 
inicio 
Escreval ("escreva o primeiro e o segundo valor") 
Leia (valor_a, valor_B) 
Se valor_a > valor_B entao 
 Escreval ("Maior valor: ", valor_a) 
senao 
 Escreval ("Maior valor: ", valor_b) 
Fimse 
 
Fimalgoritmo 
 
PAGINA 45 – NOTA 3 
 
algoritmo "Nota 3" 
// Função : 
// Autor : 
// Data : 4/10/2012 
// Seção de Declarações 
var 
valor_a, valor_b, valor_c :inteiro 
 
inicio 
//Perguntas Para ler variaveis. 
Escreval ("Escreva o primeiro valor: ") 
Leia (valor_A) 
Escreval ("Escreva o segundo valor: ") 
Leia (valor_b) 
Escreval ("Escreva o terceiro valor: ") 
leia (valor_c) 
//Condições. 
se valor_a > 20 entao 
 escreval ("O primeiro valor é maior que 20") 
fimse 
se valor_B < 20 entao 
 escreval ("O segundo valor é menor que 20") 
fimse 
se valor_C >=0 entao 
 escreval ("O terceiro valor é maior ou igual a zero") 
fimse 
 
Fimalgoritmo 
 
PAGINA 47 – NOTA 4 
algoritmo "Nota 4" 
// Função : 
// Autor : 
// Data : 4/10/2012 
// Seção de Declarações 
var 
valor_a, valor_b :inteiro 
 
inicio 
//perguntas 
Escreval ("Escreva o primeiro valor: ") 
Leia (valor_a) 
Escreval ("Escreva o segundo valor: ") 
Leia (valor_b) 
//Condições para respostas 
se valor_a > valor_B entao 
 Escreval ("Maior valor: ",valor_a) 
senao 
 se valor_a < valor_b entao 
 escreval ("Maior valor: ",valor_b) 
 senao 
 escreval ("Os dois valores são iguais") 
 fimse 
fimse 
fimalgoritmo 
 
 
PAGINA 48 – NOTA 5 
algoritmo "Nota 5" 
// Função : 
// Autor : 
// Data : 4/10/2012 
// Seção de Declarações 
var 
A, S :inteiro 
 
inicio 
A <- 6 
se A<3 entao 
 S<- 3*A 
 senao 
 se A < 5 entao 
 S<- 2 * A 
 senao 
 S<- 0 
 fimse 
fimse 
Escreval ("Valor de A: ",A) 
Escreval ("Valor de S: ",S) 
Fimalgoritmo 
 
 
 
PAGINA 49 – NOTA 6 
 
algoritmo "Nota 6" 
// Função : 
// Autor : 
// Data : 4/10/2012 
// Seção de Declarações 
 
Var 
A, B, Z :inteiro 
X, H :real 
 
inicio 
//Valor de A, B e X 
A <- 2 
B <- 4 
X <- 5 
//Condição 
Se A <> B entao 
 Z <- B Mod A 
 B <- B Div A 
 H <- X/A 
fimse 
se Z >= B entao 
 H <- 1 
senao 
 H <- 0 
fimse 
Escreval (A ,B ,X ,Z ,H) 
Fimalgoritmo 
 
 
PAGINA 50 – NOTA 7 
algoritmo "Nota 7" 
// Função : Faixa_etaria 
// Autor : 
// Data : 4/10/2012 
// Seção de Declarações 
var 
idade: inteiro 
 
inicio 
Escreval ("Entre com o valor de sua idade: ") //Este comando solicita que o 
usuario digite sua idade. 
Leia (idade) 
//Este comando aguarda o usario digitar o valor e guarda na variavel idade. 
Se idade <= 12 entao 
 Escreval ("Criança") //Este comando será executado se a idade do usuario for 
<= 12 
senao 
 se idade < 18 entao 
//Este comando será executado se a idade do usario for menor que 18 e maior 
que 12. 
 Escreval ("Adolecente") 
 senao 
 Escreval ("Adulto") 
 fimse 
fimse 
fimalgoritmo 
 
PAGINA 57, EX 1 – A 
 
algoritmo "Exercicio 1 Cap 3" 
// Função : 
// Autor : 
// Data : 11/10/2012 
// Seção de Declarações 
 
var 
X, Y , Z, resposta :real 
 
inicio 
Escreval 
("==========================================================") 
Escreval ("Digite o valor de X: ") 
Leia (X) 
Escreval ("Digite o valor de Y: ") 
Leia (Y) 
Escreval ("Digite o valor de Z: ") 
Leia (Z) 
Escreval () 
Escreval 
("==========================================================") 
Se (x > Y) ou (Z <= 30) entao 
 X <- X * 2 
senao 
 (X <- X/2) e Z <-(Z/5) 
fimse 
Escreval ("O valor de X = ",X," o valor de Y = ",Y," O valor de Z = ",Z) 
Fimalgoritmo 
 
PAGINA 57, EX 1 – B 
 
algoritmo "B" 
// Função : 
// Autor : 
// Data : 11/10/2012 
// Seção de Declarações 
 
var 
desc, prod :real 
name :literal 
 
inicio 
Escreval 
("=========================================================") 
Escreval ("Qual é o produto?") 
Leia (name) 
Escreval ("Qual é o desconto?") 
leia (desc) 
Escreval ("Qual o preço do produto?") 
Leia (prod) 
Escreval 
("=========================================================") 
se ( desc < 25 ) e ( prod > 25000 ) entao 
 Escreval ("o nome do produto é: ",Name) 
fimse 
fimalgoritmo 
 
PAGINA 57, EX 2 
 
algoritmo "Exercicio 2 Pagina 57" 
// Função : 
// Autor : 
// Data : 09/10/2012 
// Seção de Declarações 
 
var 
Valor :inteiro 
 
inicio 
Escreval ("Escreva um valor: ") 
Leia (Valor) 
se valor > 0 entao 
 Escreval ("O valor é maior que zero") 
senao 
 se valor < 0 entao 
 Escreval ("O valor é menor que zero") 
 senao 
 se valor = 0 entao 
 Escreval ("O valor é igual a zero") 
 fimse 
 fimse 
fimse 
fimalgoritmo 
 
PAGINA 58, EX 7 
 
algoritmo "Exercicio 7 da Pagina 58" 
// Função : 
// Autor : 
// Data: 09/10/2012 
// Seção de Declarações 
 
var 
Valor_a, valor_b, valor_c :real 
inicio 
Escreval ("Escreva um valor: ") 
Leia (valor_a) 
Escreval ("Escreva outro valor: ") 
Leia (valor_b) 
Escreval ("Escreva outro valor: ") 
Leia (valor_c) 
// Maior valor 
se (valor_a > valor_b) e (valor_a > valor_c) entao 
 Escreval ("maior valor é: ", valor_a) 
senao 
 se (valor_b > valor_a) e (valor_b > valor_c) entao 
 Escreval ("O maior valor é ", valor_b) 
 senao 
 se (valor_c > valor_b) e (valor_c > valor_a) entao 
 Escreval ("O maior valor é: ", Valor_c) 
 fimse 
 fimse 
fimse 
//Menor valor 
se (valor_a < valor_b) e (valor_a < valor_c) entao 
 Escreval ("menor valor é: ", valor_a) 
senao 
 se (valor_b < valor_a) e (valor_b < valor_c) entao 
 Escreval ("O menor valor é ", valor_b) 
 senao 
 se (valor_c < valor_b) e (valor_c < valor_a) entao 
 Escreval ("O menor valor é: ", Valor_c) 
 fimse 
 fimse 
fimse 
fimalgoritmo 
 
 
PAGINA 58, EX 10 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 09/10/2012 
// Seção de Declarações 
 
var 
nome:literal 
conta, diaria, resultado :real 
 
inicio 
Escreval ("Qual é o nome do cliente: ") 
Leia (nome) 
Escreval ("Qual é o numero de diarias? ") 
Leia (diaria) 
Se (diaria > 15) entao 
 resultado <- 5.50 * diaria 
senao 
 se (diaria = 15) entao 
 resultado <- 6 * diaria 
 senao 
 se (diaria < 15) entao 
 resultado <- 8 * diaria 
 fimse 
 fimse 
fimse 
//conta 
conta <- 80 + resultado 
Escreval ("--------------------------------------------------------------------------") 
Escreval () 
Escreval ("O nome do cliente é: ",nome) 
Escreval () 
Escreval ("A conta é: ",conta) 
Fimalgoritmo 
 
PAGINA 58, EX 11 
 
algoritmo "Exercicio 11 Pagina 58" 
// Função : 
// Autor : 
// Data : 09/10/2012 
// Seção de Declarações 
 
var 
saldo, op, valor_op, new_saldo :real 
numero :inteiro 
inicio 
Escreval ("Insira o numero da sua conta: ") 
Leia (numero) 
Escreval () 
Escreval 
("==========================================================") 
Escreval ("Escreva o saldo total da conta: ") 
Leia (saldo) 
Escreval () 
Escreval 
("=========================================================") 
Escreval ("tipo de Operação a ser realizada: ") 
Escreval ("#Digite 1 para Depósito") 
Escreval ("#Digite 2 para retirada") 
Leia (op) 
Escreval 
("==========================================================") 
Escreval ("Digite o valor da operação a ser realizada: ") 
Leia (valor_op) 
Escreval () 
Escreval 
("==========================================================") 
//contas 
se (op = 1) entao 
 new_saldo <- (saldo + valor_op) 
senao 
 se (op = 2) entao 
 new_saldo <- (saldo - valor_op) 
 senao 
 Escreval ("O numero digitado é invalido. Digitar 1- para DEPÓSITO, Digitar 
2- Para Retirada.") 
 fimalgoritmo 
fimse 
fimse 
Escreval ("O numero da sua conta é ", numero , " e o saldo atual da conta é: ", 
New_saldo, " Reais.") 
Escreval 
("==========================================================") 
se New_saldo < 0 entao 
 Escreval ("Conta Estourada.") 
fimse 
fimalgoritmo 
 
PAGINA 59, EX 13 
 
algoritmo "Exercicio 13 Pagina 59" 
// Função : 
// Autor : 
// Data : 09/10/2012 
// Seção de Declarações 
 
var 
h, ideal :real 
Genero :literal 
 
inicio 
Escreval ("========= Calculador de peso ideal ================") 
Escreval ("Escreva a sua altura: ") 
Leia (h) 
Escreval 
("========================================================") 
Escreval ("Escreva o seu genero masculino ou Feminino.") 
Escreval ("#Escreva 'M' Para masculino") 
Escreval ("#Escreva 'F' Para feminino") 
Leia (genero) 
Escreval 
("==========================================================") 
//Condições 
se genero = ("M") entao 
 ideal <- (72.7 * h) - 58 
senao 
 se genero = ("F") entao 
 ideal <- (62.1 * h) -44.7 
 fimse 
fimse 
//Respostas 
Escreval ("Seu peso ideal é: ",ideal) 
Fimalgoritmo 
 
PAGINA 59, EX 14 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 09/10/2012 
// Seção de Declarações 
 
var 
idade :real 
 
inicio 
Escreval ("==================== Classificação ====================") 
Escreval ("Escreva sua idade: ") 
Leia (idade) 
//condições 
escolha idade 
caso -999999 ate 0 
Escreval ("Impossivel idade abaixo de 1.") 
caso 1 ate 4 
Escreval ("Idade abaixo do permitido. Valor minimo a ser colocado 5.") 
caso 5 ate 7 
Escreval ("Infantil A") 
caso 8 ate 10 
Escreval ("Infantil B") 
caso 11 ate 13 
Escreval ("Juvenil A") 
caso 14 ate 17 
Escreval ("Juvenil B") 
caso 18 ate 60 
Escreval ("Adulto") 
outrocaso 
Escreval ("Senior") 
fimescolha 
fimalgoritmo 
 
CAPITULO 04 
 
PAGINA 60 
 
algoritmo "Exemplo Pagina 60" 
// Função : 
// Autor : 
// Data : 11/10/2012 
// Seção de Declarações 
 
var 
Qtidade_vendida :inteiro 
Valor_arrecadado :real 
 
inicio 
Escreval 
("=========================================================") 
Escreval ("Escreva o valor da quantidade vendida: ") 
Leia (Qtidade_vendida) 
Escreval () 
Valor_arrecadado <- qtidade_vendida *2.0 
Escreval 
("=========================================================") 
Escreval ("O valor arrecadado é: ",Valor_arrecadado," Reais") 
Fimalgoritmo 
 
 
PAGINA 62 
 
algoritmo "Exemplo Pagina 62" 
// Função : 
// Autor : 
// Data : 11/10/2012 
// Seção de Declarações 
 
var 
Qtidade_vendida :inteiro 
valor_arrecadado :real 
 
inicio 
Escreval ("================================================") 
Escreval ("Informe o valor da quantidade vendida: ") 
Leia (Qtidade_vendida) 
valor_arrecadado <- Qtidade_vendida * 2.0 
Escreval () 
Escreval ("O valor arrecadado foi: ",valor_arrecadado," Reais") 
Escreval ("=================================================") 
Escreval ("=================================================") 
Escreval ("Informe o valor da quantidade vendida: ") 
Leia (Qtidade_vendida) 
valor_arrecadado <- Qtidade_vendida * 2.0 
Escreval () 
Escreval ("O valor arrecadado foi: ",valor_arrecadado," Reais") 
Escreval ("=================================================") 
Escreval ("================================================") 
Escreval ("Informe o valor da quantidade vendida: ") 
Leia (Qtidade_vendida) 
valor_arrecadado <- Qtidade_vendida * 2.0 
Escreval () 
Escreval ("O valor arrecadado foi: ",valor_arrecadado," Reais") 
Escreval ("=================================================") 
Fimalgoritmo 
 
PAGINA 63 
 
algoritmo "Exemplo Pagina 63" 
// Função : 
// Autor : 
// Data : 11/10/2012 
// Seção de Declarações 
 
var 
Saldo :real 
Numero_conta :inteiro 
 
inicio 
Escreval 
("=========================================================") 
Escreval ("Escreva o numero da sua conta: ") 
Leia (Numero_conta) 
Escreval () 
Escreval ("Escreva o saldo da sua conta: ") 
Leia (saldo) 
Escreval 
("=========================================================") 
se saldo < 0 entao 
 Escreval ("Conta: ",numero_conta," Conta estourada.") 
senao 
 Escreval ("Conta: ",numero_conta," Conta normal.") 
fimse 
fimalgoritmo 
 
 
PAGINA 64 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 11/10/2012 
// Seção de Declarações 
 
var 
Saldo :real 
Numero_conta, contador :inteiro 
 
inicio 
Contador <- 0 
Enquanto contador < 10 Faca 
 Contador <- contador + 1 
 Escreval 
("=========================================================") 
 Escreval ("Escreva o numero da sua conta: ") 
 Leia (Numero_Conta) 
 Escreval () 
 Escreval ("Escreva o saldo da sua conta: ") 
 Leia (saldo) 
 Escreval 
("=========================================================") 
 se saldo < 0 entao 
 Escreval (Numero_Conta, " Conta estourada") 
 senao 
 Escreval (Numero_conta, " conta normal") 
 fimse 
fimenquanto 
fimalgoritmoPAGINA 66 
 
algoritmo "Exemplo Pagina 66" 
// Função : 
// Autor : 
// Data : 11/10/2012 
// Seção de Declarações 
 
var 
Saldo, soma :real 
numero_conta, contador, quant_contas :inteiro 
inicio 
Contador <- 0 
Soma <- 0 
Escreval ("========================= começo ===================") 
Escreval ("Entre com a quantidade de contas: ") 
Leia (quant_contas) 
Escreval () 
Enquanto contador < quant_contas faca 
 contador <- contador + 1 
 Escreval 
("=========================================================") 
 Escreval ("Escreva o numero da conta: ") 
 Leia (Numero_conta) 
 Escreval () 
 Escreval ("Escreva o saldo da conta: ") 
 leia (saldo) 
 Soma <- soma + saldo 
 se saldo < 0 entao 
 Escreval () 
 Escreval (Numero_conta, " Conta estourada.") 
 senao 
 Escreval () 
 Escreval (Numero_conta, " Conta normal") 
 fimse 
fimenquanto 
Escreval ("Soma dos saldos: ",Soma) 
Fimalgoritmo 
 
PAGINA 67 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 11/10/2012 
// Seção de Declarações 
 
var 
Saldo, soma :real 
Numero_conta :inteiro 
 
inicio 
soma <- 0 
Escreval 
("==========================================================") 
Escreval ("Escreva o numero da conta. Digite um valor negativo para 
terminar.") 
Leia (Numero_conta) 
Enquanto Numero_Conta >= 0 faca 
 Escreval ("Digite o valor do saldo da conta: conta: ", numero_conta) 
 Leia (saldo) 
 Soma <- soma + saldo 
 se saldo < 0 entao 
 Escreva (Numero_conta, " Conta normal") 
 senao 
 Escreval (numero_conta, " Conta estourada") 
 fimse 
 Escreval ("Digite o numero da conta (valor negativo se quiser terminar.)") 
 Leia (numero_conta) 
 Escreval 
("=========================================================") 
fimenquanto 
Escreval("Soma dos saldos: ", saldo) 
Fimalgoritmo 
 
PAGINA 68 
 
algoritmo "Exemplo Pagina 68" 
// Função : 
// Autor : 
// Data : 11/10/2012 
// Seção de Declarações 
 
var 
saldo, soma :real 
numero_conta :inteiro 
Resposta :literal 
 
inicio 
Soma <- 0 
Resposta <- "sim" 
Enquanto resposta = "sim" faca 
 Escreval ("Escreva o numero da conta: ") 
 Leia (numero_conta) 
 Escreval ("Escreva o saldo: ") 
 Leia (saldo) 
 Escreval 
("=========================================================") 
 SOMA <- SOMA + SALDO 
 se saldo <0 entao 
 Escreval (Numero_conta, " Conta estourada") 
 senao 
 Escreval (Numero_conta, " Conta normal") 
 fimse 
 Escreval 
("=========================================================") 
 Escreval ("Processar outra conta (sim/nao)?") 
 Escreval ("OBS: se nao estiver escrito corretamente será considerado o 
(nao)") 
 Leia (resposta) 
fimenquanto 
Escreval ("Soma dos saldos: ",Soma) 
fimalgoritmo 
 
PAGINA 69 
 
algoritmo "Exemplo Pagina 69" 
// Função : 
// Autor : 
// Data : 11/10/2012 
// Seção de Declarações 
 
var 
a, b ,resultado : real 
chave :logico 
operacao :caractere 
 
inicio 
Chave <- verdadeiro 
Enquanto chave faca 
 Escreval ("Entre com o primeiro valor: ") 
 Leia (a) 
 Escreval ("Entre com o segundo valor: ") 
 Leia (b) 
 Escreval () 
 Escreval 
("=========================================================") 
 Escreval ("Escolha uma das opções a baixo: ") 
 Escreval ("#Digite + - para soma") 
 Escreval ("#Digite - - para subtração") 
 Escreval ("#Digite * - para multiplicação") 
 Escreval ("#Digite / - para divisão") 
 Escreval ("#Digite F - para finalizar.") 
 Escreval 
("=========================================================") 
 Leia (operacao) 
 Escolha operacao 
 caso "+" 
 resultado <- a + b 
 Escreval 
("========================================================") 
 Escreval ("O resultado da soma é: ", Resultado) 
 Escreval 
("========================================================") 
 caso "-" 
 resultado <- a - b 
 Escreval 
("=========================================================") 
 Escreval ("O resultado da subtração é: ", Resultado) 
 Escreval 
("=========================================================") 
 caso "*" 
 resultado <- a * b 
 Escreval 
("=========================================================") 
 Escreval ("O resultado da multiplicação é: ", Resultado) 
 Escreval 
("=========================================================") 
 caso "/" 
 resultado <- a / b 
 Escreval 
("=========================================================") 
 Escreval ("O resultado da divisão é: ", Resultado) 
 Escreval 
("=========================================================") 
 caso "F" 
 chave <- falso 
 outrocaso 
 Escreval 
("=========================================================") 
 Escreval ("Entrada invalida.Digite o comando corretamente.") 
 fimescolha 
fimenquanto 
Escreval ("------------------------------------------------------------------------") 
Escreval ("Finalizado.") 
Escreval ("------------------------------------------------------------------------") 
Fimalgoritmo 
 
PAGINA 73 
 
algoritmo "Exercicio 1 Pagina 73" 
// Função : 
// Autor : 
// Data : 15/10/2012 
// Seção de Declarações 
var 
N, Fator, J :inteiro 
 
inicio 
Escreval ("Escreva o um numero inteiro, não negativo.") 
Leia (N) 
Fator <- 1 
para J de 1 ate N Faca 
Fator <- fator *J 
Fimpara 
Escreval ("O fatorial de ",N," é igual a ", Fator) 
Fimalgoritmo 
 
PAGINA 74 
 
algoritmo "Exercico 2" 
// Função : 
// Autor : 
// Data : 06/11/2012 
// Seção de Declarações 
 
var 
Fator, k, n :inteiro 
soma :real 
 
inicio 
Escreval ("Digite algum valor: ") 
Leia (n) 
soma <- 0 
fator <- 1 
para k de 2 ate n faca 
 fator <- fator * k 
 Soma <- soma + 1 / fator 
fimpara 
Escreval ("Valor de A: ", soma :2:2) 
fimalgoritmo 
 
PAGINA 75 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 15/10/2012 
// Seção de Declarações 
 
 
var 
sexo :caractere 
salario, somasc, somafem :real 
contmasc, contfem :inteiro 
mediahom, mediamul :real 
 
inicio 
somasc <- 0 
somafem <- 0 
contmasc <- 0 
contfem <- 0 
Escreval ("Entre com sexo (M/F) e salario. Digite X para sexo se quiser 
terminar.") 
Leia (sexo,salario) 
Enquanto sexo <> "X" faca 
 Se (sexo = "F") ou (sexo = "f") entao 
 somafem <- somafem + salario 
 contfem <- Contfem + 1 
 Senao 
 Somasc <- somasc + salario 
 contmasc <- contmasc + 1 
 fimse 
 Escreval ("Entre com Sexo e salario. Sexo = x para terminar.") 
 Leia (Sexo,salario) 
fimenquanto 
se (contmasc = 0 ) e (contfem = 0) entao 
 Escreval ("Nenhum funcionario informado") 
senao 
 se (contmasc <> 0) e (contfem <> 0) entao 
 mediahom <- somasc / contmasc 
 Mediamul <- somafem / contfem 
 se mediahom > mediamul entao 
 Escreval ("Maior media salarial: Homens") 
 Escreval ("Maior media salarial: Mulheres") 
 fimse 
 senao 
 se contmasc = 0 entao 
 Escreval ("Maior media: Mulheres - nenhum homen") 
 senao 
 Escreval("Maior media: Homens - Nenhuma mulher") 
 fimse 
 fimse 
fimse 
 
fimalgoritmo 
 
PAGINA 75, EX 3 
 
algoritmo "Exercicio 3" 
// Função : 
// Autor : 
// Data : 06/11/2012 
// Seção de Declarações 
 
 
var 
N , I, Valor, min :inteiro 
 
inicio 
Escreval ("Digite quantas vezes ira repetir: ") 
Leia (n) 
Escreval ("Digite outro valor: ") 
Leia (valor) 
min <- valor 
para I de 1 ate n - 1 faca 
 Escreval ("Digite o valor: ") 
 Leia (valor) 
 se valor < min entao 
 min <- valor 
 fimse 
fimpara 
Escreval ("Menor valor: ", min) 
fimalgoritmo 
 
PAGINA 76 
 
algoritmo "Exercicio 4" 
// Função : 
// Autor : 
// Data : 06/11/2012 
// Seção de Declarações 
 
var 
sexo :caractere 
salario, somamasc, somafem :realcontmasc, contfem :inteiro 
mediahom, mediamul :real 
 
inicio 
somamasc <- 0 
somafem <- 0 
contmasc <- 0 
contfem <- 0 
Escreval ("Entre com sexo (M) para masculino e (F) para femino e salario.") 
Escreval ("Sexo = x para terminar.") 
Leia (sexo,salario) 
Enquanto sexo <> "x" faca 
 se ( sexo = "F") ou ( sexo = "f" ) entao 
 Somafem <- SomaFem + salario 
 contfem <- contfem + 1 
 senao 
 Somamasc <- somamasc + salario 
 contmasc <- contmasc + 1 
 fimse 
 Escreval ("Entre com sexo (M) para masculino e (F) para femino e salario.") 
 Escreval ("Sexo = x para terminar.") 
 Leia (sexo, salario) 
fimenquanto 
se (contmasc = 0 ) e (contfem = 0 ) entao 
 Escreval ("nenhum funcionario informado") 
senao 
 se (contmasc <> 0 ) e (contfem <> 0 ) entao 
 Mediahom <- somamasc / contmasc 
 mediamul <- somafem / contfem 
 se mediahom > mediamul entao 
 Escreval ("Maior media salarial : Homens") 
 senao 
 Escreval ("Maior media salarial : Mulheres") 
 fimse 
 senao 
 se contmasc = 0 entao 
 Escreval ("Maior media : Mulheres - nenhum homen") 
 senao 
 Escreval ("Maior media : Homens - nenhuma mulher") 
 fimse 
 fimse 
fimse 
fimalgoritmo 
 
PAGINA 77 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 15/10/2012 
// Seção de Declarações 
 
 
var 
M, N :inteiro 
 
inicio 
Escreval ("Escreva dois valores: ") 
Leia (M, N) 
Enquanto M <> N faca 
 Se M > N entao 
 M <- M - N 
 senao 
 N <- N - M 
 fimse 
fimenquanto 
Escreval () 
Escreval ("Maximo divisor comun: ", M) 
Escreval 
("==========================================================") 
Fimalgoritmo 
 
PAGINA 82, EX 3 
 
algoritmo "Exercicio 3 Pagina 82" 
// Função : 
// Autor : 
// Data : 16/10/2012 
// Seção de Declarações 
 
var 
contador :inteiro 
soma, valor, quant :inteiro 
 
inicio 
Enquanto contador < 5 faca 
 Contador <- contador + 1 
 leia(valor) 
 se valor > 0 entao 
 soma <- valor + soma 
 fimse 
 se valor < 0 entao 
 quant <- quant + 1 
 fimse 
fimenquanto 
 
Escreval (" A soma é : ", soma) 
Escreval (quant, " valor(es) sao negativos.") 
fimalgoritmo 
 
PAGINA 82, EX 5 
 
algoritmo "Exercicio 5 Pagina 82" 
// Função : 
// Autor : 
// Data : 16/10/2012 
// Seção de Declarações 
 
var 
chave, par, chave2 :inteiro 
resp :literal 
soma :real 
 
inicio 
Escreval ("Você quer saber os numeros pares entre 85 e 907? (sim/nao)") 
Leia (resp) 
se (resp = "sim") entao 
 Escreval (" 86") 
 chave <- 85 
 par <- chave + 1 
 Enquanto chave < 907 faca 
 chave <- chave + 1 
 par <- par + 2 
 se par < 907 entao 
 soma <- par + soma 
 Escreval (par) 
 fimse 
 fimenquanto 
senao 
fimalgoritmo 
fimse 
Escreval ("A soma de todos os numeros sao: ",soma,".") 
 
fimalgoritmo 
 
PAGINA 82, EX 7 
 
algoritmo "Exercicio 7 Pagina 82" 
// Função : 
// Autor : 
// Data : 06/11/2012 
// Seção de Declarações 
 
var 
N, X :inteiro 
soma :real 
 
inicio 
repita 
 Escreval 
("==========================================================") 
 Escreval ("Digite um valor inteiro e positivo: ") 
 Leia (N) 
 se N < 1 entao 
 Escreval ("O valor inserido, nao é positivo.") 
 fimse 
 se N = 0 entao 
 Escreval ("Digite um valor acima de ZERO. ") 
 fimse 
ate N > 0 
limpatela 
soma <- soma + N 
para x de 1 ate N - 1 faca 
 soma <- soma + ( ( N - X ) / X ) 
fimpara 
Escreval ("O valor de A é igual a: ",soma) 
Escreval 
("==========================================================") 
fimalgoritmo 
 
PAGINA 83, EX 8 
 
algoritmo "Exercicio 8 Pagina 83" 
// Função : 
// Autor : 
// Data : 18/10/2012 
// Seção de Declarações 
 
var 
chave :inteiro 
altura, soma, idade, cont1, media:real 
 
inicio 
enquanto chave < 45 faca 
Escreval 
("==========================================================") 
Escreval ("Escreva a altura do aluno: ") 
Leia (altura) 
Escreval () 
Escreval ("Qual é a idade do aluno: ") 
Leia (idade) 
chave <- chave + 1 
se altura < 1.70 entao 
 soma <- soma + idade 
 cont1<- cont1+ 1 
senao 
 Escreval ("Alturas maiores que 1.70 nao serao contadas.") 
fimse 
fimenquanto 
media <- soma / cont1 
Escreval ("A media de idade dos alunos com a altura menor que 1.70 é: 
",media) 
Fimalgoritmo 
 
PAGINA 83, EX 9 
 
algoritmo "Exercicio 9 Pagina 83" 
// Função : 
// Autor : 
// Data : 18/10/2012 
// Seção de Declarações 
 
var 
client :literal 
conta, dias :real 
chave :logico 
resp :literal 
 
inicio 
chave <- verdadeiro 
Enquanto chave = verdadeiro faca 
 Escreval ("Qual é o nome do cliente? ") 
 Leia (client) 
 Escreval () 
 Escreval ("Quantos dias o cliente ficou no hotel? ") 
 Leia (dias) 
 Escreval () 
 se dias < 15 entao 
 conta <- ( dias * 8 ) + 150 
 Escreval ("Você ficou: ",dias," dias e sua conta deu: ",conta) 
 senao 
 se dias = 15 entao 
 conta <- ( dias * 6.30 ) + 150 
 Escreval ("Você ficou: ",dias," dias e sua conta deu: ",conta) 
 senao 
 se dias > 15 entao 
 conta <- ( dias * 5 ) + 150 
 Escreval ("Você ficou: ",dias," dias e sua conta deu: ",conta) 
 fimse 
 fimse 
 fimse 
 Escreval ("Deseja continuar? (sim/nao) ") 
 Escreval () 
 Escreval ("================================================") 
 leia (resp) 
 se resp = "nao" entao 
 chave <- falso 
 fimse 
fimenquanto 
fimalgoritmo 
 
PAGINA 83, EX 12 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 18/10/2012 
// Seção de Declarações 
 
var 
club,cidade :inteiro 
salario, cont1, cont2, cont3, mediasalarial, pessoas, pessoas2 :real 
resp :literal 
chave :logico 
 
inicio 
chave <- verdadeiro 
enquanto chave = verdadeiro faca 
 
 repita 
 Escreval ("Entre os clubes a seguir, qual o de sua preferencia? ") 
 Escreval ("#Digite 1 para Figueirense") 
 Escreval ("#Digite 2 para Marcílio Dias") 
 Escreval ("#Digite 3 para Outros clubes") 
 Leia (club) 
 se club > 3 entao 
 Escreval ("Valor invalido. Digite novamente! ") 
 fimse 
 
 ate (club <= 3) 
 limpatela 
 Escreval 
("=====================================================") 
 Escreval ("qual o valor do seu salario?") 
 leia (salario) 
 repita 
 Escreval 
("=========================================================") 
 Escreval ("Qual o local do seu nascimento? ") 
 Escreval ("#Digite 1 para Florianópolis.") 
 Escreval ("#Digite 2 para Outras cidade.") 
 Leia (cidade) 
 se cidade > 2 entao 
 Escreval ("Valor invalido.") 
 fimse 
 ate cidade <= 2 
 limpatela 
 Escreval 
("=====================================================") 
 Escreval ("Deseja continuar? (sim/nao)") 
 leia (resp) 
 se (resp = "nao") entao 
 chave <- falso 
 fimse 
 se club = 1 entao 
 cont1 <- cont1 + 1 
 senao 
 se club = 2 entao 
 cont2 <- cont2 + 1 
 senao 
 se club = 3 entao 
 cont3 <- cont3 + 1 
 fimse 
 fimse 
 fimse 
 se club = 1 entao 
 mediasalarial <- mediasalarial + salario 
 fimse 
 se (cidade = 1) e ( club = 2 ) entao 
 pessoas <- pessoas + 1 
 fimse 
 se ( cidade = 2 ) e (club = 1 ) entao 
 pessoas2 <- pessoas2 + 1 
 fimse 
fimenquanto 
Escreval ("----------------------------------------------------------------------") 
Escreval ("Numero de torcedores do clube figueirense: ",cont1) 
Escreval ("Numero de torcedores do clube Marcílio Dias: ",cont2) 
Escreval ("Numero de torcedores de outros clubes: ",cont3) 
Escreval ("----------------------------------------------------------------------") 
Escreval ("Media salarialda torcidade do figueirense: ", mediasalarial) 
Escreval ("----------------------------------------------------------------------") 
Escreval ("Numero de pessoas na cidade em florianópolis e que torcem para o 
Marcílio Dias: ",pessoas) 
Escreval ("----------------------------------------------------------------------") 
Escreval ("Numero de pessoas na cidade em outras cidade e que torcem para 
o Figueirense: ",pessoas2) 
Escreval ("----------------------------------------------------------------------") 
fimalgoritmo 
 
PAGINA 85, EX 15 
 
algoritmo "Execicio 15 Pagina 85" 
// Função : 
// Autor : 
// Data : 18/10/2012 
// Seção de Declarações 
 
var 
cont1, cont2, cont3, cont4, cont5, te, X1, X2, X3, indecisos :real 
candidato :inteiro 
chave :logico 
resp :literal 
 
inicio 
//Votos 
chave <- verdadeiro 
repita 
 Escreval ("Em qual candidato você deseja votar? ") 
 Escreval ("#Digite 1 Para candidato 1") 
 Escreval ("#Digite 2 Para candidato 2") 
 Escreval ("#Digite 3 Para candidato 3") 
 Escreval ("#Digite 5 para voto nulo.") 
 Escreval ("#Digite 6 se estiver indesiso.") 
 Leia (candidato) 
 Escreval () 
 //opção para continuação 
 Escreval ("Deseja continuar ? (sim/nao)") 
 Leia (resp) 
 se resp = "nao" entao 
 chave <- falso 
 fimse 
 limpatela 
 //contas 
 te <- te + 1 
 se candidato = 1 entao // candidato 1 
 cont1 <- cont1 + 1 
 senao 
 se candidato = 2 entao //candidato 2 
 cont2 <- cont2 + 1 
 senao 
 se candidato = 3 entao // candidato 3 
 cont3 <- cont3 + 1 
 fimse 
 fimse 
 fimse 
 se candidato = 5 entao //voto nulo 
 cont4 <- cont4 + 1 
 senao 
 se candidato = 6 entao //voto indeciso 
 cont5 <- cont5 + 1 
 fimse 
 fimse 
 limpatela 
Ate (chave = falso) 
//contas 2 
X1 <- (100 * cont1) / te 
X2 <- (100 * cont2) / te 
X3 <- (100 * cont3) / te 
indecisos <- (100 * cont5) / te 
//Resposta final 
Escreval ("O percentual de votos do candidato 1 é : ",X1,"%") 
Escreval ("O percentual de votos do candidato 2 é : ",X2,"%") 
Escreval ("O percentual de votos do candidato 3 é : ",X3,"%") 
Escreval ("O percentual de indecisos é: ",indecisos,"%") 
fimalgoritmo 
 
PAGINA 85, EX 17 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 18/10/2012 
// Seção de Declarações 
 
var 
valor, min, max :real 
chave :logico 
resp :literal 
 
inicio 
chave <- verdadeiro 
Enquanto (chave = verdadeiro) faca 
 Escreval ("Digite um valor qualquer: ") 
 Leia (valor) 
 Escreval () 
 Escreval ("Deseja continuar? (sim/nao)") 
 Leia (resp) 
 se resp = "nao" entao 
 chave <- falso 
 fimse 
 se valor > max entao 
 max <- valor 
 fimse 
 se valor < min entao 
 min <- valor 
 fimse 
fimenquanto 
limpatela 
Escreval ("O valor maximo encontrado foi: ",max) 
Escreval ("O valor minimo encontrado foi: ",min) 
Fimalgoritmo 
 
PAGINA 87 
 
algoritmo "Exercicio 24 Pagina 87" 
// Função : 
// Autor : 
// Data : 20/10/2012 
// Seção de Declarações 
 
var 
massa, tempo :real 
 
inicio 
Escreval 
("==========================================================") 
Escreval ("Entre com o valor da massa do material radioativo: ") 
leia (massa) 
Enquanto massa > 0.05 faca 
 massa <- massa /2 
 tempo <- tempo + 50 
fimenquanto 
Escreval 
("==========================================================") 
Escreval ("O tempo necessario para que essa massa se torne menor que 0.05 
é: ") 
Escreval (tempo," segundos.") 
Fimalgoritmo 
 
PAGINA 88 
 
algoritmo "Exercicio 28 Pagina 88" 
// Função : 
// Autor : 
// Data : 20/10/2012 
// Seção de Declarações 
 
var 
N, contador :inteiro 
 
inicio 
repita 
 Escreval ("Entre com um valor inteiro e positivo: ") 
 Leia (N) 
 se N < 0 entao 
 Escreval ("Valor invalido.") 
 fimse 
ate N > 0 
limpatela 
Escreval ("Quantas vezes deseja repetir? ") 
leia (contador) 
limpatela 
Escreval ("Os numeros são: ") 
Escreval (N,",") 
enquanto contador > 0 faca 
 contador <- contador -1 
 N <- N + 2 
 Escreval (N,",") 
 N <- ( N - 2 ) + ( n - 2 ) 
 Escreval (N,",") 
fimenquanto 
fimalgoritmo 
 
 
CAPITULO 05 
 
PAGINA 98 
 
algoritmo "Exemplo pagina 98" 
// Função : 
// Autor : 
// Data : 08/01/2009 
// Seção de Declarações 
 
var 
lanc :vetor [1..100] de inteiro 
K, quant, Soma_Lanc :inteiro 
media :real 
 
inicio 
Para K de 1 ate 100 faca 
 Escreval ("Digite o valor para variavel (lanc): ") 
 Leia (lanc[K]) 
 limpatela 
fimpara 
soma_lanc <- 0 
Para K de 1 ate 100 faca 
 Soma_lanc <- Soma_lanc + lanc[k] 
fimpara 
media <- soma_lanc / 100 
Escreval ("Valor da média: ",media) 
Quant <- 0 
para k de 1 ate 100 faca 
 se lanc[k] > media entao 
 quant <- quant + 1 
 fimse 
fimpara 
Escreval ("Lançamentos acima da media: ",quant) 
fimalgoritmo 
 
PAGINA 100 
 
algoritmo "Exemplo 2" 
// Função : 
// Autor : 
// Data : 08/01/2009 
// Seção de Declarações 
 
var 
N, I, K :inteiro 
soma, somaq, dp :real 
x :vetor[1..50] de real 
 
inicio 
Escreva ("Digite o valor da variavel (N).") 
leia (N) 
para I de 1 ate n faca 
 Leia (x[i]) 
fimpara 
somaq <- 0 
para k de 1 ate n faca 
 somaq <- somaq + x[k] * x[k] 
fimpara 
soma <- 0 
para i de 1 ate n faca 
 soma <- soma + x[i] 
fimpara 
dp <- (somaq - soma * soma / n) / (n - 1) ** (1/2) 
limpatela 
Escreval 
("=========================================================") 
Escreval ("Desvio padrao: ", dp) 
fimalgoritmo 
 
PAGINA 102 
 
algoritmo "Exemplo 3 pagina 102" 
// Função : 
// Autor : 
// Data : 08/01/2009 
// Seção de Declarações 
 
var 
x :vetor[1..50] de inteiro 
n, i, poss, menor :inteiro 
 
inicio 
Repita 
 Escreva ("Digite o valor da variavel 'n': ") 
 leia (n) 
 Escreval 
("==========================================================") 
ate (n > 0) e (n <= 50) 
limpatela 
para i de 1 ate n faca 
 leia (x[i]) 
fimpara 
limpatela 
menor <- x[1] 
poss <- 1 
para i de 2 ate n faca 
 se x[i] < Menor entao 
 menor <- x[i] 
 poss <- i 
 fimse 
fimpara 
Escreval ("Posição do menor valor: ",poss) 
Escreval ("Menor valor : ", x[poss]) 
fimalgoritmo 
 
PAGINA 103 
 
algoritmo "Exercicio 4 pagina 103 - 104" 
// Função : 
// Autor : 
// Data : 08/01/2009 
// Seção de Declarações 
 
var 
x :vetor[1..100] de inteiro 
tem_repeticao :logico 
ind, i, k, n :inteiro 
 
inicio 
Escreval ("Digite um valor para variavel n: ") 
leia (N) 
para ind de 1 ate n faca 
 leia (x[ind]) 
fimpara 
tem_repeticao <- falso 
i <- 0 
repita 
 i <- i + 1 
 k <- i 
 repita 
 K <- K + 1 
 se x[i] = x[k] entao 
 tem_repeticao <- verdadeiro 
 k <- n 
 i <- n - 1 
 fimse 
 ate k = n 
ate i = n - 1 
limpatela 
se tem_repeticao entao 
 Escreval ("existe pelo menos uma repetição....") 
senao 
 Escreval ("Nenhum valor repetido...") 
fimse 
fimalgoritmo 
 
PAGINA 110 
 
algoritmo "Exercicio 1 pagina 110" 
// Função : 
// Autor : 
// Data : 29/11/2012 
// Seção de Declarações 
 
var 
Tipo_vetor, X, Y, Z :vetor[1..50] de inteiro 
I ,J ,K ,N ,M :inteiro 
 
inicio 
escreval ("Leitura e armazenamento dos elementos dos vetores: ") 
Leia (N) 
Para I de 1 ate N faca 
 leia (X[I]) 
fimpara 
Escreval ("Digite um valor qualquer: ") 
Leia (M) 
para I de 1 ate M faca 
 leia (Y[I]) 
fimpara 
K <- 0 
para I de 1 ate N faca 
 J <- 0 
 repita 
 J <- J + 1 
 se x[i] = y[j] entao 
 k <- k + 1 
 z[k] <- x[i] 
 J <- M 
 fimse 
 ate J = M 
fimpara 
para J de 1 ate K faca 
 Escreval ("Resultado: ", Z[j]) 
fimpara 
fimalgoritmo 
 
PAGINA 111 
 
algoritmo "Exercicio 2 Pagina 111" 
// Função : 
// Autor : 
// Data : 29/11/2012 
// Seção de Declaraçõesvar 
total :vetor[1..50] de real 
Venda :real 
Numero, N, I :inteiro 
resp :caractere 
 
inicio 
Escreval ("Quantia de vendedores: ") 
Leia (N) 
para I de 1 ate n faca 
 total[i] <- 0 
Fimpara 
Repita 
 Escreval ("Escreva o valor para o numero de vendas: ") 
 Leia (Numero, venda) 
 total[numero] <- total[numero] + venda 
 Escreval ("Outra venda S/N? ") 
 Leia (resp) 
ate (resp = "N" ) ou (resp = "n") 
para i de 1 ate n faca 
 Escreval ("Total: ", I ,Total[I]) 
fimpara 
fimalgoritmo 
 
PAGINA 112 
 
algoritmo "Exercicio 3 Pagina 112" 
// Função : 
// Autor : 
// Data : 29/11/2012 
// Seção de Declarações 
 
 
var 
Matriz, A, Z :vetor[1..10, 1..10] de inteiro 
I, J, N, M :inteiro 
inicio 
Escreval ("Digite o valor para N, M : ") 
leia (N ,M) 
para I de 1 ate N faca 
 Para J de 1 ate M faca 
 Leia ( A[I,J]) 
 fimpara 
fimpara 
para I de 1 ate M faca 
 Para J de 1 ate M faca 
 Escreval (Z[1, j]) 
 fimpara 
fimpara 
fimalgoritmo 
 
 
 
PAGINA 114 
 
algoritmo "Exercicio 4 pagina 114" 
// Função : 
// Autor : 
// Data : 29/11/2012 
// Seção de Declarações 
 
var 
Quadrado, A :vetor[1..20,1..20] de inteiro 
C, L, N, S, I, J :inteiro 
chave :logico 
 
inicio 
Escreval ("leitura do tamanho do quadrado: ") 
Repita 
 Escreval ("Entre com tamanho do quadrado (impar)") 
 Leia (N) 
ate (N) e (2 <> 0) 
Escreval ("Montagem do quadrado. ") 
L <- 1 
C <- N div 2 + 1 
S <- 0 
para I de 1 ate N faca 
 Para J de 1 ate N faca 
 Se L = 0 entao 
 L <- N 
 fimse 
 se C = 0 entao 
 C <- N 
 fimse 
 S <- S + 1 
 A[L, C] <- S 
 L <- L - 1 
 C <- L + 2 
 fimpara 
 Escreval ("Impressao do quadrado. ") 
 Para I de 1 ate N faca 
 para J de 1 ate N faca 
 Escreva A[I,J] 
 fimpara 
 fimpara 
fimalgoritmo 
 
 
PAGINA 119, EX 2 
 
algoritmo "Exercicio 2 pagina 119" 
// Função : 
// Autor : 
// Data : 08/01/2009 
// Seção de Declarações 
 
var 
notas :vetor[1..31] de real //31 alunos 
i, x, y :inteiro 
 
inicio 
para i de 1 ate 30 faca // 31 alunos 
 Escreval 
("=========================================================") 
 Escreval ("Digite o valor da nos da prova: ") 
 Leia (notas[i]) 
 Escreval 
("=========================================================") 
 limpatela 
 se notas[i] > 5 entao 
 y <- y + 1 
 fimse 
fimpara 
Escreval 
("=========================================================") 
Escreval ("Notas acima da média: ",y) 
Escreval 
("=========================================================") 
fimalgoritmo 
 
PAGINA 119, EX 4 
 
algoritmo "Exercicio 4 pagina 119" 
// Função : 
// Autor : 
// Data : 08/01/2009 
// Seção de Declarações 
 
var 
nome :vetor[1..45] de literal // 45 alunos 
nota :vetor[1..45] de real // 45 alunos 
x, media_escolar, y, reprovados, aprovados :inteiro 
total, valor :real 
 
inicio 
Escreval ("Qual é a media de notas na escola? ") 
Leia (media_escolar) 
para x de 1 ate 45 faca // 45 alunos 
 Escreval 
("========================================================") 
 Escreval ("Escreva o seu nome( ou o nome do aluno): ") 
 leia (nome[x]) 
 Escreval 
("=========================================================") 
 Escreval ("Escreva a sua nota(ou a nota do aluno): ") 
 leia (nota[x]) 
 limpatela) 
fimpara 
para y de 1 ate 45 faca 
 se nota[y] > media_escolar entao 
 aprovados <- aprovados + 1 
 Escreval 
("=========================================================") 
 Escreval ("o aluno: ",Nome[y]," foi aprovado.") 
 Escreval ("------------------------------------------------------------------------------------") 
 fimse 
 se nota[y] < media_escolar entao 
 reprovados <- reprovados + 1 
 fimse 
fimpara 
total <- aprovados / 
fimalgoritmo 
 
 
PAGINA 120 
 
algoritmo "semnome" 
// Função : 
// Autor : 
// Data : 29/11/2012 
// Seção de Declarações 
 
var 
X, Y :vetor[1..5] de real 
N, I :inteiro 
R ,R2 :real 
RF :real 
 
inicio 
para I de 1 ate 5 faca 
 Escreval 
("==========================================================") 
 Escreval ("Digite um valor qualquer: (OBS: valor inteiro.)") 
 Leia (X[I]) 
 Y[I] <- I 
fimpara 
limpatela 
// maior numero 
Se (x[1] >= x[2]) e (x[1] >= x[3]) e (x[1] >= x[4]) e (x[1] >= x[5]) entao 
 R <- x[1] 
fimse 
Se (x[2] >= x[1]) e (x[2] >= x[3]) e (x[2] >= x[4]) e (x[2] >= x[5]) entao 
 R <- x[2] 
fimse 
Se (x[3] >= x[2]) e (x[3] >= x[1]) e (x[3] >= x[4]) e (x[3] >= x[5]) entao 
 R <- x[3] 
fimse 
Se (x[4] >= x[2]) e (x[4] >= x[3]) e (x[4] >= x[1]) e (x[4] >= x[5]) entao 
 R <- x[4] 
fimse 
Se (x[5] >= x[2]) e (x[5] >= x[3]) e (x[5] >= x[4]) e (x[5] >= x[1]) entao 
 R <- x[5] 
fimse 
//menor numero 
Se (x[1] >= x[2]) e (x[1] >= x[3]) e (x[1] >= x[4]) e (x[1] >= x[5]) entao 
 R2 <- x[1] 
fimse 
Se (x[2] >= x[1]) e (x[2] >= x[3]) e (x[2] >= x[4]) e (x[2] >= x[5]) entao 
 R2 <- x[2] 
fimse 
Se (x[3] >= x[1]) e (x[3] >= x[1]) e (x[3] >= x[4]) e (x[3] >= x[5]) entao 
 R2 <- x[3] 
fimse 
Se (x[4] >= x[1]) e (x[4] >= x[3]) e (x[4] >= x[1]) e (x[4] >= x[5]) entao 
 R2 <- x[4] 
fimse 
Se (x[5] >= x[1]) e (x[5] >= x[3]) e (x[5] >= x[4]) e (x[5] >= x[1]) entao 
 R2 <- x[5] 
fimse 
RF <- R - R2 
limpatela 
Escreval 
("==========================================================") 
Escreval ("A diferença do numero maior com o menor é de : ", RF) 
fimalgoritmo 
 
 
PAGINA 122, EX 21 
 
algoritmo "Exercicio 21 Pagina 122" 
// Função : 
// Autor : 
// Data : 31/01/2009 
// Seção de Declarações 
 
var 
X :inteiro 
Y :Vetor[1..37] de inteiro 
I, F, G, cont :inteiro 
media, total, gasto :real 
 
inicio 
X <- 1970 
para F de 1 ate 37 faca 
 Escreval ("Ano ",X) 
 Para I de 1 ate 12 faca 
 Escreval ("---------------------------------------------------------------------------------") 
 Escreval ("Mês ",I,". Digite o valor gasto com energia eletrica nesse mês.") 
 leia (Y[I]) 
 media <- (Y[i] + media) 
 cont <- cont + 1 
 se Y[i] > G entao 
 gasto <- y[i] 
 fimse 
 G <- Y[i] 
 fimpara 
 X <- X + 1 
 limpatela 
fimpara 
//contas 
total <- media / cont 
limpatela 
Escreval 
("=========================================================") 
Escreval ("O consumo medio em cada um dos meses é: ", total) 
Escreval 
("=========================================================") 
Escreval ("Mês que gasta mais energia: ", gasto) 
Escreval 
("=====================================================") 
 
fimalgoritmo 
 
 
PAGINA 122, EX 22 
 
algoritmo "Exercicio 22 Pagina 122" 
// Função : 
// Autor : 
// Data : 31/01/2009 
// Seção de Declarações 
 
var 
X :vetor[1..5,0..4] de inteiro 
I, Y, cont, cont2 :inteiro 
total1, total2 :real 
 
inicio 
para I de 1 ate 5 faca 
 Escreval ("Digite um valor qualquer: ") 
 leia (X[I,Y]) 
 Para Y de 1 ate 3 faca 
 Escreval ("Digite um valor qualquer: ") 
 leia (X[i,Y]) 
 fimpara 
fimpara 
total1 <- X[1,0] + X[2,1] + X[3,2] + X[4,3] + X[5,4] 
total2 <- X[1,0] * X[2,4] * X[3,3] * X[4,2] * X[5,1] 
limpatela 
Escreval 
("==========================================================") 
Escreval ("Soma dos elementos da diagonal principal: ", total1) 
Escreval 
("==========================================================") 
Escreval ("Produto dos elementos da diagonal secundaria: ", total2) 
Escreval 
("==========================================================) 
 
Fimalgoritmo 
 
PAGINA 123, EX 23 
 
algoritmo "Exercicio 23 Pagina 123" 
// Função : 
// Autor : 
// Data : 31/01/2009 
// Seção de Declarações 
 
var 
X :vetor[1..5,1..5] de inteiro 
Y, Z :inteiro 
c1 ,c2 ,c3 ,c4 ,c5 :real 
 
inicio 
Z <- 1 
Para Y de 1 ate 5 facaEscreval 
("********************************************************************************") 
 Escreval ("Digite um valor Qualquer: ") 
 Escreval 
("********************************************************************************") 
 leia (X[Y,Z]) 
 limpatela 
 para Z de 1 ate 4 faca 
 Escreval 
("********************************************************************************") 
 Escreval ("Digite um valor Qualquer: ") 
 Escreval 
("********************************************************************************") 
 leia (X[Y,Z]) 
 limpatela 
 c5 <- c5 + X[y,z] 
 fimpara 
fimpara 
 
c1 <- X[1,1] + X[1,2] + X[1,3] + X[1,4] + X[2,1] + X[2,2] + X[2,3] + X[3,1] + X[3,2] 
+ X[4,1] 
c2 <- X[5,5] + X[5,4] + X[5,3] + X[5,2] + X[4,5] + X[4,4] + X[4,3] + X[3,5] + X[3,4] 
+ X[2,5] 
c3 <- X[1,5] + X[1,4] + X[1,3] + X[1,2] + X[2,5] + X[2,4] + X[2,3] + X[3,5] + X[3,4] 
+ X[4,5] 
c4 <- X[1,5] + X[1,4] + X[1,3] + X[1,2] + X[2,5] + X[2,4] + X[2,3] + X[3,5] + X[3,4] 
+ X[4,5] 
Escreval 
("*****************************************************************************************
**") 
Escreval 
("______________________________________________________________
_____________________________") 
Escreval ("O valor do 1 quadro é: ",c1) 
Escreval 
("______________________________________________________________
_____________________________") 
Escreval ("O valor do 2 quadro é: ",c2) 
Escreval 
("______________________________________________________________
_____________________________") 
Escreval ("O valor do 3 quadro é: ",c3) 
Escreval 
("______________________________________________________________
_____________________________") 
Escreval ("O valor do 4 quadro é: ",c4) 
Escreval 
("______________________________________________________________
_____________________________") 
Escreval ("O valor do 5 quadro é: ",c5) 
Escreval 
("__________________________________FIM_________________________
_____________________________") 
Fimalgoritmo 
 
PAGINA 123, EX 24 
 
algoritmo "Exercicio 24 Pagina 123" 
// Função : 
// Autor : 
// Data : 31/01/2009 
// Seção de Declarações 
 
var 
X :Vetor[1..20] de inteiro 
I, H, Ir :inteiro 
 
inicio 
para I de 1 ate 20 faca 
 Escreval 
("##############################################################
########################") 
 Escreval ("Digite valores aleatorios para 'X': ") 
 leia (X[I]) 
 limpatela 
 se X[i] mod 2 = 0 entao 
 Ir <- I - 1 
 X[i] <- ir 
 fimse 
fimpara 
para H de 1 ate 20 faca 
 Escreval ("Valores de 'X' na ordem positivo na frente: ") 
 Escreval (X[H]) 
fimpara 
fimalgoritmo 
 
CAPITULO 06 
 
CALCULADORA SIMPLES 
 
algoritmo "Calculadora" 
// Função : 
// Autor : 
// Data : 10/01/2013 
// Seção de Declarações 
 
var 
//Procedimento 
procedimento Calculadora 
 
var 
tipo :inteiro 
x :real 
resp :real 
 
inicio 
Escreval 
("===========================================================
======================") 
Escreval ("Que tipo de conta deseja fazer? ") 
Escreval ("#Digite 1 para adição.") 
Escreval ("#Digite 2 para subtração.") 
Escreval ("#Digite 3 para multiplicação.") 
Escreval ("#Digite 4 para Divisão.") 
Leia (tipo) 
se tipo = 1 entao 
 x <- adicao(resp) 
senao 
 se tipo = 2 entao 
 x <- subtracao(resp) 
 senao 
 se tipo = 3 entao 
 x <- multiplicacao(resp) 
 senao 
 se tipo = 4 entao 
 x <- divisao(resp) 
 senao 
 se (tipo > 4) ou (tipo < 4) entao 
 Escreval ("Erro, valor invalido.Tente novamente com um valor 
valido.") 
 fimse 
 fimse 
 fimse 
 fimse 
fimse 
Escreval ("O resultado da conta é: ", x) 
fimprocedimento 
//Fimdoprocedimento 
//Funções 
funcao adicao (resp :real) :real 
 
var 
x,y :real 
 
inicio 
limpatela 
Escreval ("Digite os valores para soma: ") 
Leia (x,y) 
resp <- (x + y) 
retorne resp 
fimfuncao 
funcao subtracao (resp :real) :real 
 
var 
x,y :real 
 
inicio 
limpatela 
Escreval ("Digite os valores para subtracão: ") 
Leia (x,y) 
resp <- (x - y) 
retorne resp 
fimfuncao 
funcao multiplicacao (resp :real) :real 
 
var 
x,y :real 
 
inicio 
limpatela 
Escreval ("Digite os valores para multiplicacão: ") 
Leia (x,y) 
resp <- (x * y) 
retorne resp 
fimfuncao 
funcao divisao (resp :real) :real 
 
var 
x,y :real 
 
inicio 
limpatela 
repita 
 Escreval ("Digite os valores para Divisão: ") 
 Leia (x,y) 
 Se (x = 0) ou (y = 0) entao 
 Escreval ("Não use valor '0' para divisão.Zero não é um valor valido.") 
 Escreval 
("*****************************************************************************************
*******") 
 fimse 
ate (x > 0) e (y > 0) 
resp <- (x / y) 
retorne resp 
fimfuncao 
 
//FimFunções 
 
inicio 
// Seção de Comandos 
Escreval ("============================= Calculadora simples 
===============================") 
Calculadora 
fimalgoritmo