Exercícios para criar algoritmos

1 – calcular a área de um retângulo

• A área de uma figura geométrica retangular é calculada pela fórmula área = largura x

altura

• As variáveis de entrada são altura e largura, do tipo real, pois pode haver medida com

parte fracionária

• Poderíamos criar uma variável de saída para a área, porém podemos calcular e mostrar o

resultado sem usar essa variável

• O esboço da solução em linguagem natural seria:

o Solicitar valor da largura e altura

o Calcular área e mostrar resultado

algoritmo "area retangulo"

var

altura, largura: real

inicio

Escreva("Digite a altura: ")

Leia(altura)

Escreva("Digite a largura: ")

Leia(largura)

Escreval("A área é: ",altura*largura)

fimalgoritmo

2 - Armazenar dois números em variáveis e trocar os valores das variáveis

algoritmo "troca variaveis"

// para fazer a troca de valores de duas variáveis

// é necessário uma variável auxiliar pois se fizermos

// a troca direta, um dos valores será perdido

var

a,b,aux: inteiro

inicio

Escreva("Digite o valor para a variavel A: ")

Leia(a)

Escreva("Digite o valor para a variavel B: ")

Leia(b)

aux <- a // guarda valor de a em aux para não ser perdido

a <- b // guarda valor de b em a

b <- aux // guarda valor de aux em b

Escreva("Valores após a troca: a=",a," b=",b)

fimalgoritmo

3 - Calcular as raízes de uma equação do segundo grau

algoritmo "raizes equacao do 2o grau"

// OBS: Como o VisuAlg não tem a função RAIZ(), iremos solicitar

// o valor da raiz de delta ao usuário. Em uma linguagem que tenha

// a função RAIZ(), basta fazer raizdelta <- raiz(delta)

var

a,b,c,delta,raizdelta,x1,x2: real

inicio

Escreval("Raizes de uma equação do 2o grau")

escreva("Digite o valor de a: ")

Leia(a)

escreva("Digite o valor de b: ")

Leia(b)

escreva("Digite o valor de c: ")

Leia(c)

// calcula delta

delta <- b^2 - 4 * a * c

Escreval("Valor de DELTA: ",delta)

// verifica se delta é negativo (não tem raizes)

se delta<0 entao

escreva("Essa equação não tem raízes reais.")

senao

// OBS: como o VisuAlg não calcula raiz quadrada, iremos pedir

// o valor ao usuário

Escreva("Qual a raiz de ",delta,"? ")

Leia(raizdelta)

x1<-( -b + raizdelta ) / 2 * a

x2<-( -b - raizdelta ) / 2 * a

Escreval("As raízes são: x1=",x1," x2=",x2)

FimSe

fimalgoritmo

4 - Calcular o custo estimado com combustível em uma viagem de carro

• A lógica para solução deste problema é a seguinte: cada carro tem um consumo típico para

cada tipo de combustível (gasolina ou álcool), medido em quilômetros por litro (Km/l).

Dividindo a distância a ser percorrida na viagem por esse parâmetro (Km/l), podemos

saber quantos litros de combustível serão necessários. Após isso, basta multiplicar essa

quantidade de litros pelo preço unitário do litro de combustível.

• As variáveis de entrada estão destacadas no item anterior e deverão ser todas do tipo real

pois todas podem ter valores fracionários. A variável de saída será o custo, que é opcional

pois podemos calcular e mostrar o resultado sem usar essa variável

• O esboço da solução em linguagem natural seria:

o Solicitar os dados de entrada: quilômetros por litro, distancia a ser percorrida e preço

unitário do litro de combustível

o Calcular o custo e mostrar resultado

algoritmo