Faça um algoritmo que receba o nome a idade, o sexo e salário fixo de um funcionário. Mostre o nome e o salário líquido:

var
nome, sexo: caractere
idade, x: inteiro
salario: real

inicio

escreva("Digite o nome do funcionário: ")
leia(nome)
x <- 1
enquanto x = 1 faca
    escreva("Digite o sexo (F/M): ")
    leia(sexo)
    se sexo <> "F" entao
        se sexo <> "M" entao
            x <- 1
        senao
            x <- 0
        fimse
    senao
        x <- 0
    fimse
fimenquanto
escreva("Digite a idade: ")
leia(idade)
escreva("Digite o salário: ")
leia(salario)
se sexo = "M" entao
    se idade >= 30 entao
        salario <- salario + 100
    senao
        salario <- salario + 50
    fimse
senao
    se idade >= 30 entao
        salario <- salario + 200
    senao
        salario <- salario + 80
    fimse
fimse
limpatela

escreval(">>> Nome: ",nome)
escreval(">>> Salário: ",salario)

fimalgoritmo


Escrever um algoritmo que leia três valores inteiros distintos e os escreva em ordem crescente

var
num1, num2, num3: inteiro
ordena: vetor[1..3] de inteiro

inicio

escreva("Digite o primeiro número: ")
leia(num1)
escreva("Digite o segundo número: ")
leia(num2)
escreva("Digite o terceiro número: ")
leia(num3)

se num1 > num2 entao
    ordena[3] <- num1
    ordena[2] <- num2
    se num3 > num1 entao
        ordena[3] <- num3
        ordena[2] <- num1
        ordena[1] <- num2
    senao
        se num3 > num2 entao
            ordena[3] <- num1
            ordena[2] <- num3
            ordena[1] <- num2
        senao
            ordena[3] <- num1
            ordena[2] <- num2
            ordena[1] <- num3
        fimse
    fimse
senao
    ordena[3] <- num2
    ordena[2] <- num1
    se num3 > num2 entao
        ordena[3] <- num3
        ordena[2] <- num2
        ordena[1] <- num1
    senao
        se num3 > num1 entao
            ordena[3] <- num2
            ordena[2] <- num3
            ordena[1] <- num1
        senao
            ordena[3] <- num2
            ordena[2] <- num1
            ordena[1] <- num3
        fimse
    fimse
fimse

escreval("Os números em ordem crescente são: ")
escreval(">",ordena[1])
escreval(">",ordena[2])
escreval(">",ordena[3])
fimalgoritmo


Dados três valores A, B e C, em que A e B são números reais e C é um caractere, pede-se para imprimir o resultadoda operação de A por B se C for um símbolo de operador aritmético; caso contrário deve ser impressa uma mensagem de operador não definido. Tratar erro de divisão por zero.

var
A, B: real
C: caractere

inicio

escreva("Digite o primeiro número: ")
leia(A)
escreva("Digite o segundo número: ")
leia(B)
escreva("Digite a operação desejada (+ - / *): ")
leia(C)
escolha C
    caso "+"
        escreval("A+B =",A+B)
    caso "-"
        escreval("A-B =",A-B)
    caso "*"                                                  =
        escreval("A*B =",A*B)
    caso "/"
        se B = 0 entao
            escreval("Erro, um número não pode ser dividido por 0!")
        senao
            escreval("A/B =",A/B)
        fimse
    outrocaso
        escreval("Operador não definido!")
fimescolha

fimalgoritmo

Escrever um algoritmo que leia três valores inteiros e verifique se eles podem ser os lados de um triângulo. Se forem, informar qual o tipo de triângulo que eles formam: equilátero, isóscele ou escaleno

var
la, lb, lc, triangulo: inteiro
inicio

escreva("Digite o lado A do triângulo: ")
leia(la)
escreva("Digite o lado B do triângulo: ")
leia(lb)
escreva("Digite o lado C do triângulo: ")
leia(lc)

se la < (lc+lb) entao
    triangulo <- 1
senao
    se lb < (lc + la) entao
        triangulo <- 1
    senao
        se lc < (lb + la) entao
            triangulo <- 1
        fimse
    fimse
fimse

se triangulo = 1 entao
    se la = lb entao
        se lb = lc entao
            escreval("É um triângulo equilátero!")
        senao
            escreval("É um triângulo isórcele")
        fimse
    senao
        se lb = lc entao
            escreval("É um triângulo isórcele")
        senao
            escreval("É um triângulo escaleno")
        fimse
    fimse
fimse

fimalgoritmo

A escola \u201cAPRENDER\u201d faz o pagamento de seus professores por hora/aula. Faça um algoritmo que calcule e exiba o
            // salário de um professor. Sabe-se que o valor da hora/aula segue a tabela abaixo:
            // Professor Nível 1 R$12,00 por hora/aula
            // Professor Nível 2 R$17,00 por hora/aula
            // Professor Nível 3 R$25,00 por hora/aula


var
nivel, horas: inteiro
inicio

escreval("Escola APRENDER ")
escreva("Digite o nível do professor (1/2/3): ")
leia(nivel)
escreva("Digite o número de horas trabalhadas: ")
leia(horas)

se nivel = 1 entao
    escreval("O professor ganha",horas*12)
senao
    se nivel = 2 entao
        escreval("O professor ganha",horas*17)
    senao
        escreva("O professor ganha",horas*25)
    fimse
fimse

fimalgoritmo

var
residencia, kw: inteiro
consumo: real

inicio

escreval("Informe o tipo de residência: ")
escreval("1 - Residência")
escreval("2 - Comércio")
escreval("3 - Indústria")
leia(residencia)
escolha residencia
    caso 1
        escreva("Informe a quantidade de KW gastos no mês: ")
        leia(kw)
        consumo <- kw * 0.60
        escreval("Valor da conta: ",consumo)
    caso 2
        escreva("Informe a quantidade de KW gastos no mês: ")
        leia(kw)
        consumo <- kw * 0.48
        escreval("Valor da conta: ",consumo)
    caso 3
        escreva("Informe a quantidade de KW gastos no mês: ")
        leia(kw)
        consumo <- kw * 1.29
        escreval("Valor da conta: ",consumo)
    outrocaso
        escreval("Tipo de residência inválido!")
fimescolha
fimalgoritmo

Faça um algoritmo que receba a idade de 75 pessoas e mostre mensagem informando "maior de idade" e "menor de idade" para cada pessoa. Considere a idade a partir de 18 anos como maior de idade.

var
x, idade: inteiro

inicio

para x de 1 ate 75 faca
     escreva("Digite a idade: ")
     leia(idade)
     se idade >= 18 entao
        escreval("Fulano é maior de idade!")
     fimse
fimpara

fimalgoritmo

Escrever um algoritmo que leia o nome e o sexo de 56 pessoas e informe o nome e se ela é homem ou mulher. No final informe total de homens e de mulheres.

var
nome, sexo: caractere
x, h, m: inteiro

inicio

para x de 1 ate 5 faca
     limpatela
     escreva("Digite o nome: ")
     leia(nome)
     escreva("H - Homem ou M - Mulher: ")
     leia(sexo)
     escolha sexo
         caso "H"
              h <- h + 1
         caso "M"
              m <- m + 1
         outrocaso
              escreval("Sexo só pode ser H ou M!")
     fimescolha
fimpara
limpatela
escreval("Foram inseridos",h," Homens")
escreval("Foram inseridos",m," Mulheres")

fimalgoritmo

A concessionária de veículos CARANGO VELHO está vendendo os seus veículos com desconto. Faça um algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente de vários carros. O desconto deverá ser calculado de acordo com o ano do veículo. Até 2000 - 12% e acima de 2000 - 7%. O sistema deverá perguntar se deseja continuar calculando desconto até que a resposta seja: \u201c(N) Não\u201d . Informar total de carros com ano até 2000 e total geral.

var

programa, opc: caractere

ano, total, total2000: inteiro

valor, valorFinal, desconto: real

inicio

programa <- "S"

enquanto programa <> "N" faca

   limpatela

   escreva("Digite o valor do carro: ")

   leia(valor)

   escreva("Digite o ano do carro: ")

   leia(ano)

   se ano <= 2000 entao

      desconto <- 0.12

      total2000 <- total2000 + 1

      total <- total + 1

   senao

      desconto <- 0.07

      total <- total + 1

   fimse

   desconto <- desconto * valor

   valorFinal <- valor - desconto

   escreval("O valor do carro com desconto é de: ",valorFinal)

   escreval("")

   escreva("Deseja continuar calculando? (S) Sim - (N) Não - ")

   leia(opc)

   escolha opc

   caso "S"

      programa <- "S"

   caso "N"

      programa <- "N"

   outrocaso

      programa <- "S"

      limpatela

      escreval("As opções disponíveis são apenas S ou N!!!")

      leia(opc)

   fimescolha

fimenquanto

escreval("Foram calculados",total2000," carro(s) com ano até 2000")

escreval("Total geral: ",total)

fimalgoritmo

Escrever um algoritmo que leia os dados de N pessoas (nome, sexo, idade e saúde) e informe se está apta ou não para cumprir o serviço militar obrigatório. Informe os totais.

var

programa, idade, apto: inteiro

nome, sexo, saude, opc: caractere

totApto, total: inteiro

inicio

programa <- 1

enquanto programa = 1 faca

    limpatela

    apto <- 1

    saude <- "B"

    total <- total + 1

    escreva("Digite o nome: ")

    leia(nome)

    escreva("Digite o sexo (M/F): ")

    leia(sexo)

    escreva("Digite a idade: ")

    leia(idade)

    se idade < 18 entao

        apto <- 0

    fimse

    escreval("Digite o estado de saúde: ")

    escreva("(B) Bom - (R) - Ruim - ")

    leia(saude)

    se saude = "R" entao

        apto <- 0

    senao

        se saude <> "B" entao

            apto <- 0

        fimse

    fimse

    se apto = 1 entao

        totApto <- totApto + 1

    fimse

    escreval("Deseja continuar filtrando (S/N)? ")

    leia(opc)

    se opc = "N" entao

        programa <- 0

    fimse

fimenquanto

limpatela

escreval("Resumo geral: ")

escreval("Foram filtrados: ",total," pessoas")

escreval("Aptos: ",totApto)

escreval("")

fimalgoritmo

Faça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos. Mostre como resultado se houve lucro, prejuízo ou empate para cada produto. Informe media de preço de custo e do preço de venda.

 

var

x: inteiro

precoVenda, precoCusto: real

mediaCusto, mediaVenda: real

inicio

// Seção de Comandos 

para x de 1 ate 40 faca

    limpatela

    escreva("Digite o preço de custo: ")

    leia(precoCusto)

    mediaCusto <- mediaCusto + precoCusto

    escreva("Digite o preço de venda: ")

    leia(precoVenda)

    mediaVenda <- mediaVenda + precoVenda

    

    se precoVenda < precoCusto entao

        escreval("Houve prejuízo na venda")

    senao

        se precoVenda = precoCusto entao

            escreval("Houve empate na venda")

        fimse

        se precoVenda > precoCusto entao

            escreval("Houve lucro na venda")

        fimse

    fimse

    

fimpara

limpatela

escreval("A média de preço de custo foi: ",mediaCusto/40)

escreval("A média de preço de venda foi: ",mediaVenda/40)

fimalgoritmo

Faça um algoritmo que receba um número e mostre uma mensagem caso este número sege maior que 80, menor que 25 ou igual a 40.

var

numero: inteiro

inicio

escreva("Digite um número: ")

leia(numero)

se numero > 80 entao

    escreval("O número é maior que 80")

senao

    se numero < 25 entao

        escreval("O número é menor que 25")

    senao

        se numero = 40 entao

            escreval("O número é igual a 40")

        fimse

    fimse

fimse

fimalgoritmo

Faça um algoritmo que receba N números e mostre positivo, negativo ou zero para cada número.

var

programa, numero: inteiro

opc: caractere

inicio

programa <- 1

enquanto programa = 1 faca

    limpatela

    escreva("Digite um número: ")

    leia(numero)

    se numero > 0 entao

        escreval("Positivo")

    senao

        se numero = 0 entao

            escreval("O número é igual a 0")

        fimse

        se numero < 0 entao

            escreval("Negativo")

        fimse

    fimse

    escreva("Deseja finalizar? (S/N) ")

    leia(opc)

    se opc = "S" entao

        programa <- 0

    fimse

fimenquanto

fimalgoritmo

 Faça um algoritmo que leia dois números e identifique se são iguais ou diferentes. Caso eles sejam iguais imprima uma mensagem dizendo que eles são iguais. Caso sejam diferentes, informe qual número é o maior, e uma mensagem que são diferentes.

 

var

num1, num2: inteiro

inicio

escreva("Digite o primeiro número: ")

leia(num1)

escreva("Digite o segundo número: ")

leia(num2)

se num1 = num2 entao

    escreval("Os números são iguais!")

senao

    se num1 > num2 entao

        escreval("O número",num1," é maior que o número",num2)

        escreval("Eles são diferentes!!!")

    senao

        escreval("O número",num2," é maior que o número",num1)

        escreval("Eles são diferentes!!!")

    fimse

fimse

fimalgoritmo

Faça um algoritmo que leia um número de 1 a 5 e escreva por extenso. Caso o usuário digite um número que não esteja neste intervalo, exibir mensagem: número inválido.

var

numero: inteiro

inicio

escreva("Digite um número de 1 a 5: ")

leia(numero)

escolha numero

caso 1

   escreval("Um")

caso 2

   escreval("Dois")

caso 3

   escreval("Três")

caso 4

   escreval("Quatro")

caso 5

   escreval("Cinco")

outrocaso

   escreval("Número Inválido!!!")

fimescolha

fimalgoritmo

A concessionária de veículos CARANGO está vendendo os seus veículos com desconto. Faça um algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente. O desconto deverá ser calculado sobre o valor do veículo de acordo com o combustível (álcool \u2013 25%, gasolina \u2013 21% ou diesel \u201314%). Com valor do veículo zero encerra entrada de dados. Informe total de desconto e total pago pelos clientes.

var

desconto, valorPago, valorVeiculo: real

totalDesconto, totalPago: real

combustivel, opc: caractere

inicio

valorVeiculo <- 1

opc <- "x"

enquanto valorVeiculo <> 0 faca

    limpatela

    escreva("Digite o valor do veículo: ")

    leia(valorVeiculo)

    se valorVeiculo <> 0 entao

        escreval("Digite o combustível")

        escreva("(G)asolina / (A)lcool / (D)iesel: ")

        leia(combustivel)

        escolha combustivel

            caso "A"

                desconto <- 0.25 * valorVeiculo

            caso "G"

                desconto <- 0.21 * valorVeiculo

            caso "D"

                desconto <- 0.14 * valorVeiculo

            outrocaso

                escreval("Combustível inválido!")

                escreval("Não haverão descontos!")

                desconto <- 0

        fimescolha

        valorPago <- valorVeiculo - desconto

        totalDesconto <- totalDesconto + desconto

        totalPago <- totalPago + valorPago

        escreval("Desconto no veículo: ",desconto)

        escreval("Valor total a ser pago: ",valorPago)

        escreval("Tecle enter para continuar...")

        leia(opc)

    fimse

fimenquanto

limpatela

escreval("Resumo geral: ")

escreval("Total de descontos: ",totalDesconto)

escreval("Total Pago pelos clientes: ",totalPago)

fimalgoritmo

Escrever um algoritmo para uma empresa que decide dar um reajuste a seus 584 funcionários de acordo com os

            // seguintes critérios:

               // a) 50% para aqueles que ganham menos do que três salários mínimos;

               // b) 20% para aqueles que ganham entre três até dez salários mínimos;

               // c) 15% para aqueles que ganham acima de dez até vinte salários mínimos;

               // d) 10% para os demais funcionários.

            // Leia o nome do funcionário, seu salário e o valor do salário mínimo. Calcule o seu novo salário reajustado. Escrever o nome do funcionário, o reajuste e seu novo salário. Calcule quanto à empresa vai aumentar sua folha de pagamento.

var

salarioMinimo, novoSalario, reajuste, reajusteTotal, folha, novaFolha, calc, salario: real

nome, opc: caractere

x: inteiro

inicio

opc <- "x"

escreval(" Sistema de reajuste salarial ")

escreva("Digite o valor atual do salário mínimo: ")

leia(salarioMinimo)

para x de 1 ate 584 faca

    limpatela

    escreva("Digite o nome: ")

    leia(nome)

    escreva("Digite o salário: ")

    leia(salario)

    calc <- salarioMinimo * 3

    se salario < calc entao

        reajuste <- 0.50 // Reajuste de 50%

        reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste

        folha <- folha + salario // Folha de pagamento antiga

        novoSalario <- salario + (reajuste * salario) // Salário reajustado

        novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

        

        limpatela

        escreval(">>> Nome: ",nome)

        escreval(">>> Reajuste = 50%: ",reajuste*salario)

        escreval(">>> Novo salário: ",novoSalario)

        escreval(">>> Tecle enter para continuar...")

        leia(opc)

    senao

        calc <- salarioMinimo * 10

        se salario <= calc entao

            reajuste <- 0.20 // Reajuste de 20%

            reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste

            folha <- folha + salario // Folha de pagamento antiga

            novoSalario <- salario + (reajuste * salario) // Salário reajustado

            novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

            limpatela

            escreval(">>> Nome: ",nome)

            escreval(">>> Reajuste = 20%: ",reajuste*salario)

            escreval(">>> Novo salário: ",novoSalario)

            escreval(">>> Tecle enter para continuar...")

            leia(opc)

        senao

            calc <- salarioMinimo * 20

            se salario <= calc entao

                reajuste <- 0.15 // Reajuste de 15%

                reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste

                folha <- folha + salario // Folha de pagamento antiga

                novoSalario <- salario + (reajuste * salario) // Salário reajustado

                novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

                limpatela

                escreval(">>> Nome: ",nome)

                escreval(">>> Reajuste = 15%: ",reajuste*salario)

                escreval(">>> Novo salário: ",novoSalario)

                escreval(">>> Tecle enter para continuar...")

                leia(opc)

            senao

                reajuste <- 0.10 // Reajuste de 10%

                reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste

                folha <- folha + salario // Folha de pagamento antiga

                novoSalario <- salario + (reajuste * salario) // Salário reajustado

                novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

                limpatela

                escreval(">>> Nome: ",nome)

                escreval(">>> Reajuste = 10%: ",reajuste*salario)

                escreval(">>> Novo salário: ",novoSalario)

                escreval(">>> Tecle enter para continuar...")

                leia(opc)

            fimse

        fimse

    fimse

fimpara

escreval("")

escreval("A empresa aumentou a folha de pagamento em:",novaFolha - folha," Reais")

fimalgoritmo

Faça um algoritmo que receba o número do mês e mostre o mês correspondente. Valide mês inválido

var

mes: inteiro

inicio

escreval("Digite o número do mês: ")

leia(mes)

escolha mes

caso 1

    escreval("Janeiro")

caso 2

    escreval("Fevereiro")

caso 3

    escreval("Março")

caso 4

    escreval("Abril")

caso 5

    escreval("Maio")

caso 6

    escreval("Junho")

caso 7

    escreval("Julho")

caso 8

    escreval("Agosto")

caso 9

    escreval("Setembro")

caso 10

    escreval("Outubro")

caso 11

    escreval("Novembro")

caso 12

    escreval("Dezembro")

outrocaso

    escreval("Mês inválido!")

fimescolha

fimalgoritmo

Faça um algoritmo que receba um valor que foi depositado e exiba o valor com rendimento após um mês.
Considere fixo o juro da poupança em 0,70% a. m.

var
correcao, deposito: real

inicio

escreval("Sistema de depósito do Banco do Oeste")
escreva("Digite o valor depositado: ")
leia(deposito)
correcao <- 0.7 * deposito
escreva("O rendimento do depósito após um mês é de: ",deposito+correcao)

fimalgoritmo

A Loja Mamão com Açúcar está vendendo seus produtos em 5 (cinco) prestações sem juros. Faça um algoritmo que receba um valor de uma compra e mostre o valor das prestações.

var
compra, prestacao: real

inicio

escreval (" Loja Mamão com Açúcar ")
escreval ("Digite o valor da compra: ")
leia(compra)
prestacao <- compra/5
escreval("O cliente deverá pagar 5 prestações de R$",prestacao," cada")

fimalgoritmo


Faça um algoritmo que receba o preço de custo de um produto e mostre o valor de venda. Sabe-se que o preço de custo receberá um acréscimo de acordo com um percentual informado pelo usuário.

var
custo, venda, percent: real

inicio
// Seção de Comandos
escreval ("Digite o custo do produto: ")
leia(custo)
escreval ("Digite o percentual para venda: ")
leia(percent)
percent <- (percent/100) * custo
venda <- custo + percent
escreval l("O valor de venda é: ",venda)

fimalgoritmo

O custo ao consumidor de um carro novo é a soma do custo de fábrica com a percentagem do distribuidor e dos impostos (aplicados, primeiro os impostos sobre o custo de fábrica, e depois a percentagem do distribuidor sobre o resultado). Supondo que a percentagem do distribuidor seja de 28% e os impostos 45%. Escrever um algoritmo que leia o custo de fábrica de um carro e informe o custo ao consumidor do mesmo.

var

custoFabrica, custoFinal: real

inicio

escreva("Informe o custo de fábrica do veículo: ")

leia(custoFabrica)

custoFinal <- custoFabrica + (0.28 * custoFabrica) + (0.45 * custoFabrica)

custoFinal <- custoFinal + (0.45 * custoFinal)

escreval ("O custo para o consumidor final é de: ",custoFinal)

fimalgoritmo

Faça um algoritmo que receba um número e diga se este número está no intervalo entre 100 e 200.

var

numero: inteiro

inicio

escreval("Digite um número: ")

leia(numero)

se numero >= 100 entao

   se numero <= 200 entao

      escreval("O número está no intervalo entre 100 e 200")

   senao

        escreval("O número não está no intervalo entre 100 e 200")

   fimse

senao

   escreval("O número não está no intervalo entre 100 e 200")

fimse

fimalgoritmo

Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150 (inclusive).

var

x, num, intervalo: inteiro

inicio

para x de 1 ate 80 faca

     escreva("Digite um número: ")

     leia(num)

     se num >= 10 entao

        se num <= 150 entao

           intervalo <- intervalo + 1

        fimse

     fimse

fimpara

escreval("Ao total, foram digitados",intervalo,"números no intervalo entre 10 e 150")

 

fimalgoritmo

Faça um algoritmo que receba a idade de 75 pessoas e mostre mensagem informando "maior de idade" e "menor de idade" para cada pessoa. Considere a idade a partir de 18 anos como maior de idade.

var

x, idade: inteiro

inicio

para x de 1 ate 75 faca

   escreva("Digite a idade: ")

   leia(idade)

   se idade >= 18 entao

      escreval("Fulano é maior de idade!")

   fimse

fimpara

fimalgoritmo

Nada como ajudar aos estudantes em resolução de algoritmo.

Escreva um algoritmo que leia o nome de um vendedor, o seu salário fixo e o total de vendas efetuadas por ele no mês (em dinheiro). Sabendo que este vendedor ganha 15% de comissão sobre suas vendas efetuadas, informar o seu nome, o salário fixo e salário no final do mês

var
nome: caractere
salario: real
vendas: real
comissao: real
salarioFinal: real

inicio

escreval ("Sistema de gestão de vendedores")
escreval ("Digite o nome do vendedor: ")
leia(nome)
escreval (" Digite o salário: ")
leia(salario)
escreval (" Informe a quantidade de vendas deste no mês: ")
leia(vendas)
// Cálculo da comissão e salário final
comissao <- 0.15 * vendas
salarioFinal <- salario + comissao
limpatela
escreval("RESUMO ")
escreval(" Nome: ",nome)
escreval("Salário: ",salario)
escreval("Salário Final (salário + comissão): ",salarioFinal)

fimalgoritmo


Ler dois valores para as variáveis A e B, e efetuar as trocas dos valores de forma que a variável A passe a possuir o valor da variável B e a variável B passe a possuir o valor da variável A. Apresentar os valores trocados.

var
a, b, troca: inteiro

inicio

escreval ("Digite o valor(numérico) da variável A: ")
leia(a)
escreval ("Digite o valor(numérico) da variável B: ")
leia(b)
troca <- a
a <- b
b <- troca
limpatela
escreval ("O novo valor de A é: ",a)
escreval ("O novo valor de B é: ",b)

fimalgoritmo


Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit. A fórmula de conversão é: F=(9*C+160) / 5, sendo F a temperatura em Fahrenheit e C a temperatura em Celsius.

var
cel, far: real

inicio

escreval ("Tabela de conversão: Celcius -> Fahrenheit )
escreval ("Digite a temperatura em Celcius: ")
leia(cel)
far <- (9*cel+160)/5
escreval ("A nova temperatura é: ",far,"ºF")

fimalgoritmo


Elaborar um algoritmo que efetue a apresentação do valor da conversão em real (R$) de um valor lido em dólar (US$). O algoritmo deverá solicitar o valor da cotação do dólar e também a quantidade de dólares disponíveis com o usuário.

var
rs, us, cotacao, dolaDisponivel: real

inicio

escreval ("Cotação do Dólar ")
escreval ("Qual a cotação atual do dólar? ")
leia (cotacao)
escreval ("Quantos dólares você possui? ")
leia(us)
rs <- us/cotacao
limpatela
escreval(us," Dólares equivalem á: ",rs," R$")

fimalgoritmo