Question

VisualG

Elabore algoritmos que utilizem função ou procedimento para resolver as questões abaixo:
a) verifique se um número é par ou ímpar;
b) acrescente um ponto na nota de um aluno;
c) retire um ponto na nota de um aluno;
d) acrescente 10% ao preço um produto;
e) desconte 10% ao preço de um produto;
f) Receba dois números, se eles forem idênticos some, caso sejam diferentes multiplique.
g) Receba dois números e faça o quadrado do primeiro e o cubo do segundo.

Answer 1

Resposta:

Sinceramente, se você está aprendendo Algoritmos, não deveria procurar por respostas prontas, ao invés disso, deveria procurar informações e construir as suas próprias. Mas de qualquer modo, aqui vão as respostas(faz um tempo que não mexo com Algoritmos em Portugol, mas vou dar o meu melhor!).

Explicação:

Letra A)

Passo 1 - Comece criando as variáveis que você pretende usar(declare apenas algumas de início, se for preciso, crie outras conforme o andamento do teu programa).

Passo 2 - Agora é a hora de pedir os números para o usuário (caso seja um programa de interação com o usuário, é claro. Se não for, apenas armazene os valores que deseja)

Passo 3 - Aqui você vai precisar de uma estrutura condicional, neste caso, utilizaremos a estrutura "Se, Entao, Senao e FimSe".

Vai ficar basicamente assim

algoritmo "Cálculo PAR/IMPAR"

var

n1: Inteiro

início

Escreva("Digite um número inteiro qualquer: ")

Leia(n1)

Se(n1 % 2 = 0) entao

EscrevaL("O número escolhido é PAR")

senao

EscrevaL ("O número escolhido é IMPAR)

FimSe

fimalgoritmo

_____________________________________________

Letra B)

Passo 1 - Comece criando as variáveis que você pretende usar(declare apenas algumas de início, se for preciso, crie outras conforme o andamento do teu programa).

Passo 2 - Você deve pedir a nota do aluno desejado e depois somar mais 1, é bem simples.

Fica assim

algoritmo "AdicionandoNota"

var

nota: Real

inicio

EscrevaL ("Digite a nota do aluno: ")

Leia(nota)

Escreva("A nova nota do aluno é ", nota + 1)

fimalgoritmo

_____________________________________________

Letra C)

Passo 1 - Faça o mesmo da letra B, mas dessa vez, utilize o operador aritmético " - "(subtração).

Fica assim

algoritmo "RetirandoNota"

var

nota: Real

inicio

EscrevaL ("Digite a nota do aluno: ")

Leia(nota)

Escreva("A nova nota do aluno é ", nota - 1)

fimalgoritmo

_____________________________________________

Letra D)

Passo 1 - Você só precisa pedir os valores ao usuário e fazer um cálculo de porcentagem que se aplique á máquina.

Fica assim

algoritmo "CalculoPorcentagem"

var

preço, valor: Real

inicio

EscrevaL ("Valor do produto: ")

Leia(valor)

preço <- valor * 10 / 100

Escreva("O novo valor do produto é ", valor + preço)

fimalgoritmo

_____________________________________________

Letra E)

Passo 1 - Faça o mesmo da letra D, mas dessa vez, só invés de somar o valor, subtraia.

Dessa Maneira

algoritmo "CalculoPorcentagem2"

var

preço, valor: Real

inicio

EscrevaL ("Valor do produto: ")

Leia(valor)

preço <- valor * 10 / 100

Escreva("O novo valor do produto é ", valor - preço)

fimalgoritmo

_____________________________________________

Letra F)

Passo 1 - Aqui você vai precisar pedir os valores para o usuário.

Passo 2 - Utilize uma estrutura condicional, no caso desta questão, será a estrutura "Se, Entao, Senao e FimSe".

Saca só!

algoritmo "SomaEMultiplicação"

var

numero1, numero2, somar, multiplicar: Inteiro

inicio

EscrevaL ("Digite um número inteiro: ")

Leia(numero1)

EscrevaL ("Digite outro número inteiro: ")

Leia(numero2)

somar <- numero1 + numero2

multiplicar <- numero1 * numero2

Se(numero1 = numero2) entao

Escreva("Eles são iguais, então a soma é ", somar)

senao

Escreva("Eles são diferentes, então a multiplicação é ", multiplicar)

FimSe

fimalgoritmo

_____________________________________________

Letra G)

Passo 1 - Peça os valores ao usuário

Passo 2- Faça a exponenciação

Assim

algoritmo "QuadradoECubo"

var

quadrado, cubo: Inteiro

inicio

EscrevaL ("Digite um número: ")

Leia(quadrado)

EscrevaL ("Digite outro: ")

Leia(cubo)

EscrevaL ("O quadrado do primeiro é ", quadrado ^ 2)

Escreva ("O cubo do segundo é ", cubo ^ 3)

fimalgoritmo

BONS ESTUDOS!!!