1 - Ler dois valores e executar, com os mesmos, as seguintes operações: Adição, Subtração, Multiplicação e Divisão. Calcular e escrever o resultado dessas operações.
Código:
algoritmo "exercicio1"
// Função : Ler dois valores e executar, com os mesmos, as seguintes operações: Adição, Subtração, Multiplicação e Divisão. Calcular e escrever o resultado dessas operações.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
ValorA, ValorB, Soma, Subtracao, Divisao, Multiplicacao:real
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite o Valor de A ")
leia(ValorA)
escreva("Digite o Valor de B ")
leia(ValorB)
//Processando Operações:
Soma <- ValorA+ValorB
Subtracao <- ValorA-ValorB
Divisao <- ValorA/ValorB
Multiplicacao <- ValorA*ValorB
//Exibindo Resultado das Operações na Tela:
escreva("O Resultado da Soma de A + B é:")
escreval (Soma)
escreva("O Resultado da Subtração de A - B é:")
escreval (Subtracao)
escreva("O Resultado da Divisão de A / B é:")
escreval (Divisao)
escreva("O Resultado da Multiplicação de A * B é:")
escreval (Multiplicacao)
fimalgoritmo
2 - Ler cinco valores inteiros, calcular a sua média aritmética, e escrever o valor na tela.
Código:
algoritmo "exercicio2"
// Função : Ler cinco valores inteiros, calcular a sua média aritmética, e escrever o valor na tela.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
ValorA, ValorB, ValorC, ValorD, ValorE, Media:inteiro
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite o Valor de A ")
leia(ValorA)
escreva("Digite o Valor de B ")
leia(ValorB)
escreva("Digite o Valor de C ")
leia(ValorC)
escreva("Digite o Valor de D ")
leia(ValorD)
escreva("Digite o Valor de E ")
leia(ValorE)
//Processando Operações:
Media <- ((ValorA+ValorB+ValorC+ValorD+ValorE)/5)
//Exibindo Resultado das Operações na Tela:
escreva("A Media entre A, B, C, D e E. É:")
escreval (Media)
fimalgoritmo
3 - Ler um número e mostrar o seu quadrado e o seu cubo.
Código:
algoritmo "exercicio3"
// Função : Ler um número e mostrar o seu quadrado e o seu cubo.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
ValorA, Quadrado, Cubo:real
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite o Valor de A ")
leia(ValorA)
//Processando Operações:
Quadrado <- ValorA^2
Cubo <- ValorA^3
//Exibindo Resultado das Operações na Tela:
escreva(ValorA)
escreva(" ao Quadrado é:")
escreval (Quadrado)
escreva(ValorA)
escreva(" ao Cubo é:")
escreval (Cubo)
fimalgoritmo
4 - Calcule e apresente o valor do volume de uma lata de óleo, utilizando a fórmula V = 3.14159 * R * R * A, em que R é o valor do raio e A da altura, que são fornecidas pelo usuário.
Código:
algoritmo "exercicio4"
// Função : Calcule e apresente o valor do volume de uma lata de óleo, utilizando a fórmula V = 3.14159 * R * R * A, em que R é o valor do raio e A da altura, que são fornecidas pelo usuário.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
Volume, Raio, Altura:real
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite o Valor do Raio ")
leia(Raio)
escreva("Digite o Valor da Altura ")
leia(Altura)
//Processando Operações:
Volume <- 3.14159*Raio*Raio*Altura
//Exibindo Resultado das Operações na Tela:
escreva("O Volume desta Lata de Óleo é:")
escreval (Volume)
fimalgoritmo
5 - Receba o nome e o ano de nascimento de uma pessoa e calcule a idade que a pessoa fez no ano passado e a idade que terá daqui 10 anos.
Código:
algoritmo "exercicio5"
// Função : Receba o nome e o ano de nascimento de uma pessoa e calcule a idade que a pessoa fez no ano passado e a idade que terá daqui 10 anos.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
Passado, Futuro, Ano:inteiro
Nome:string
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite o seu Nome ")
leia(Nome)
escreva("Digite o ano de seu Nascimento ")
leia(Ano)
//Processando Operações:
Passado <- 2011-Ano-1
Futuro <- 2011-Ano+10
//Exibindo Resultado das Operações na Tela:
escreval(Nome)
escreval("No Ano Passado em 2010 você fez: ", Passado, " Anos")
escreval("Daqui 10 Anos em 2021 você fará: ", Futuro, " Anos")
fimalgoritmo
6 - Receba uma medida em metros e converta em milímetros.
Código:
algoritmo "exercicio6"
// Função : Receba uma medida em metros e converta em milímetros.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
Metros, Milimetros:real
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite uma Medida em Metros para Conversão em Milimetros. ")
leia(Metros)
//Processando Operações:
Milimetros <- Metros * 1000
//Exibindo Resultado das Operações na Tela:
se Metros = 1 entao
escreva (Metros, " metro equivale a ", Milimetros, " milimetros")
senao
escreva (Metros, " metros equivalem a ", Milimetros, " milimetros")
fimse
fimalgoritmo
7 - Calcule a nota semestral de uma faculdade que consiste em duas notas de 0 a 10. A primeira nota tem peso 4 e a segunda peso 6.
Código:
algoritmo "exercicio7"
// Função : Calcule a nota semestral de uma faculdade que consiste em duas notas de 0 a 10. A primeira nota tem peso 4 e a segunda peso 6.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
NotaA, NotaB, NotaSemestral, NotaPeso4, NotaPeso6:real
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite a 1ª Nota. ")
leia(NotaA)
se NotaA < 0 entao
escreval("A 1ª Nota deve ser um valor entre 0 e 10")
escreval("Digite a 1ª Nota novamente. ")
leia(NotaA)
fimse
se NotaA > 10 entao
escreval("A 1ª Nota deve ser um valor entre 0 e 10")
escreval("Digite a 1ª Nota novamente. ")
leia(NotaA)
fimse
escreva("Digite a 2ª Nota. ")
leia(NotaB)
se NotaB > 10 entao
escreval("A 2ª Nota deve ser um valor entre 0 e 10")
escreval("Digite a 2ª Nota novamente. ")
leia(NotaB)
fimse
se NotaB < 0 entao
escreval("A 2ª Nota deve ser um valor entre 0 e 10")
escreval("Digite a 2ª Nota novamente. ")
leia(NotaB)
fimse
//Processando Operações:
//O Calculo Diz que se o Peso é 4 equivale a 40% então NotaA*4/10 = 40%.
NotaPeso4 <- NotaA*4/10
//O Calculo Diz que se o Peso é 6 equivale a 60% então NotaA*6/10 = 60%.
NotaPeso6 <- NotaB*6/10
NotaSemestral <- NotaPeso4+NotaPeso6
//Exibindo Resultado das Operações na Tela:
escreva("A Nota Semestral é: ")
escreval(NotaSemestral)
fimalgoritmo
8 - Leia uma quantidade de horas, minutos e segundos e imprima o total em segundos.
Código:
algoritmo "exercicio8"
// Função : Leia uma quantidade de horas, minutos e segundos e imprima o total em segundos.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
Horas, Minutos, Segundos, TotalSegundosdaHora, TotalSegundosdosMinutos, TotalGeralemSegundos:inteiro
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite a Hora. ")
leia(Horas)
escreva("Digite os Minutos. ")
leia(Minutos)
escreva("Digite os Segundos. ")
leia(Segundos)
//Processando Operações:
TotalSegundosdaHora <- Horas * 3600
TotalSegundosdosMinutos <- Minutos * 60
TotalGeralemSegundos <- TotalSegundosdaHora+TotalSegundosdosMinutos+Segundos
//Exibindo Resultado das Operações na Tela:
escreval("Em ", Horas, " Horas, ", Minutos, " Minutos e ", Segundos, " Segundos.")
escreval("Temos: ", TotalGeralemSegundos, " Segundos")
fimalgoritmo
9 - Receba um número inteiro e mostre qual a unidade do número.
Código:
algoritmo "exercicio9"
// Função : Receba um número inteiro e mostre qual a unidade do número. Ex: no número 103 a unidade é 3, no número 97 a unidade é 7.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
Numero, Unidade:inteiro
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite um número. ")
leia(Numero)
//Processando Operações:
//O Sinal % ou MOD Significa que o Cálculo Resulta-rá no resto da Divisão.
//Exemplo se o Número for = 12, teremos 12 % 10 que resulta-rá "2", porque 12 dividido por 10 resulta 1 e sobra 2 e o comando MOD Trará o Resultado do Resto.
Unidade <- Numero % 10
//Exibindo Resultado das Operações na Tela:
escreval("O Número ", Numero, " possui ", Unidade, " unidades.")
fimalgoritmo
10 - Escreva um algoritmo que receba o valor de um produto em reais e o desconto em porcentagem a ser oferecido na venda do produto. Informe o valor do desconto e o valor que o produto deverá ser vendido.
Código:
algoritmo "exercicio10"
// Função : Escreva um algoritmo que receba o valor de um produto em reais e o desconto em porcentagem a ser oferecido na venda do produto. Informe o valor do desconto e o valor que o produto deverá ser vendido.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
Valor, Desconto, DescontoFinal, ValordeVenda:real
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite o Valor do Produto. ")
leia(Valor)
escreva("Digite o Valor do Desconto para esse Produto. ")
leia(Desconto)
//Processando Operações:
DescontoFinal <- Valor * Desconto / 100
ValordeVenda <- Valor - DescontoFinal
//Exibindo Resultado das Operações na Tela:
escreval("O Valor de Desconto do Produto é: R$", DescontoFinal)
escreval("O Valor de Venda do Produto é: R$", ValordeVenda)
fimalgoritmo
11 - Sabendo que uma empresa paga 15% de comissão aos seus vendedores receba o nome e o valor vendido no mês de 2 vendedores da empresa e informe a comissão que cada vendedor receberá no mês com seu devido nome.
Código:
algoritmo "exercicio11"
// Função : Sabendo que uma empresa paga 15% de comissão aos seus vendedores receba o nome e o valor vendido no mês de 2 vendedores da empresa e informe a comissão que cada vendedor receberá no mês com seu devido nome.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
ValorA, ComissaoA, ValorB, ComissaoB:real
NomeA, NomeB:string
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite o Nome do 1º Vendedor. ")
leia(NomeA)
escreva("Digite o Valor Vendido no mês por ", NomeA, " ")
leia(ValorA)
escreva("Digite o Nome do 2º Vendedor. ")
leia(NomeB)
escreva("Digite o Valor Vendido no mês por ", NomeB, " ")
leia(ValorB)
//Processando Operações:
ComissaoA <- ValorA*15/100
ComissaoB <- ValorB*15/100
//Exibindo Resultado das Operações na Tela:
escreval(NomeA, " recebeu: R$", ComissaoA, " de comissão no mês.")
escreval(NomeB, " recebeu: R$", ComissaoB, " de comissão no mês.")
fimalgoritmo
12 - Calcular a contribuição ao INSS, Imposto de Renda e a Associação de funcionários a partir do salário bruto, que é dado de entrada. O INSS desconta: 10%, o IR: 25% e a associação: 0,5%. O programa deve imprimir as contribuições e o valor do salário líquido.
Código:
algoritmo "exercicio12"
// Função : Calcular a contribuição ao INSS, Imposto de Renda e a Associação de funcionários a partir do salário bruto, que é dado de entrada. O INSS desconta: 10%, o IR: 25% e a associação: 0,5%. O programa deve imprimir as contribuições e o valor do salário líquido.
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
INSS, ImpostodeRenda, Associacao, Salario, SalarioLiquido:real
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite o Valor do Salário Bruto. ")
leia(Salario)
//Processando Operações:
INSS <- Salario*10/100
ImpostodeRenda <- Salario*25/100
Associacao <- Salario*0.5/100
SalarioLiquido <- Salario-INSS-ImpostodeRenda-Associacao
//Exibindo Resultado das Operações na Tela:
escreval("O Valor do INSS é: R$", INSS)
escreval("O Valor do Imposto de Renda é: R$", ImpostodeRenda)
escreval("O Valor da Associação dos Trabalhadores é: R$", Associacao)
escreval("O Valor do Salário Líquido a Receber é: R$", SalarioLiquido)
fimalgoritmo
13 - Leia um número inteiro de 4 dígitos, calcule e mostre a sua decomposição em unidade, dezena, centena e milhar. Exemplo: 8531 (1 unidade, 3 dezena, 5 centena, 8 milhar)
Código:
algoritmo "exercicio13"
// Função : Leia um número inteiro de 4 dígitos, calcule e mostre a sua decomposição em unidade, dezena, centena e milhar. Exemplo: 8531 (1 unidade, 3 dezena, 5 centena, 8 milhar)
// Autor : Dário Cândido de Oliveira
// Data : 13/02/2011
// Seção de Declarações
var
Numero:inteiro
Unidade, Dezena, Centena, Milhar, DezenaF:real
inicio
// Seção de Comandos
//Escrevendo Variavéis Digitadas na Mémoria RAM:
escreva("Digite um Número Inteiro com 4 Digitos. ")
leia(Numero)
se Numero < 0 entao
escreva("Digite um Número Inteiro com 4 Digitos em 0 e 9999")
leia(Numero)
fimse
se Numero > 9999 entao
escreva("Digite um Número Inteiro com 4 Digitos em 0 e 9999")
leia(Numero)
fimse
//Processando Operações:
//O Sinal % ou MOD Significa que o Cálculo Resulta-rá no resto da Divisão.
//Exemplo se o Número for = 12, teremos 12 % 10 que resulta-rá "2", porque 12 dividido por 10 resulta 1 e sobra 2 e o comando MOD Trará o Resultado do Resto.
Unidade <- Numero % 10
//Para Dezenas o Mod é 100 e depois se divide por 10, porém ao invés de usarmos "/" usamos "div". Porque assim ele trás o resultado como um número inteiro sem vírgulas.
Dezena <- Numero % 100 div 10
//Para Centenas o Mod é 1000 e depois se divide por 100, porém ao invés de usarmos "/" usamos "div". Porque assim ele trás o resultado como um número inteiro sem vírgulas.
Centena <- Numero % 1000 div 100
//Para Milhares o Mod é 10000 e depois se divide por 1000, porém ao invés de usarmos "/" usamos "div". Porque assim ele trás o resultado como um número inteiro sem vírgulas.
Milhar <- Numero % 10000 div 1000
//Exibindo Resultado das Operações na Tela:
escreval("O Número ", Numero, " possui ", Unidade, " unidade.")
escreval("O Número ", Numero, " possui ", Dezena, " dezena.")
escreval("O Número ", Numero, " possui ", Centena, " centena.")
escreval("O Número ", Numero, " possui ", Milhar, " milhar.")
fimalgoritmo
