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

Como educar as novas gerações?

Bom devido ao grande conhecimento, ao grande avanço da tecnologia, das informações, da comunicação cada vez mais as crianças estão tendo informação mais rápidas que antigamente e isso requer hoje dos pais, dos educadores uma atenção maior em relação a isso porque as vezes o próprio pai, o próprio educador faça com que ele tenha menos informação, as vezes a criança tem mais tempo para pesquisar na internet, estar verificando os veículos de comunicação e isso até dificulta a educação hoje do filho, e a do modo em geral e inclusive hoje, no meu modo de pensar você tem que estar acompanhando lado a lado a criança, estar participando na vida dela em cada momento, de cada etapa de sua vida que para que você tenha essa pessoa sempre do seu lado para que você saiba que esteja acompanhando todos os movimentos da criança, do adolescente e ate chegar a sua juventude. Sempre acompanhando essas etapas para que você não tenha decepções futuras e buscando da melhor forma a educação, não só a educação familiar, mas também dando essa educação na escola. Levando esse ser até um meio de ensino para que possa estar encaminhando com conhecimento porque a base do jovem hoje é a educação familiar, a educação mesmo é em casa, a educação familiar é vai que estar formando a personalidade da pessoa e isso é muito importante, porque a partir do momento que ele tem uma base familiar, ele vai ter um ingresso na sociedade, ele vai ter uma colocação no meio social muitas das vezes dependendo até da escola.

Já perdoei erros...

Já perdoei erros quase imperdoáveis

Eu tentei substituir pessoas insubstituíveis, e esquecer pessoas inesquecíveis,

olha! Eu já fiz coisas por impulso

Já me decepcionei por pessoas que nunca pensei em me decepcionar, mas, também decepcionei alguém

Eu já abracei pra proteger

Já dei risada quando não podia

Fiz amigos eternos

Amei e fui amado, mas também já fui rejeitado

Fui amado e não amei

Já gritei, pulei de tanta felicidade

Já vivi de amor e fiz juras ouvindo musicas e olhando fotos

Já liguei só pra escutar uma voz 

Já me apaixonei um dia por um sorriso

Já pensei que ia morrer de tanta felicidade, e tive medo de perder alguém tão especial, e acabei perdendo, mas vivi e ainda vivo.

Bom mesmo é ir à luta com determinação  abraçar a vida com paixão, viver com paixão!!!

Perder com classe, vencer com ousadia, porque o mundo, não tenha dúvida! Pertence a quem se atreve. E a vida é muita, muita, muita...  pra ser insignificante. E essa vida é hoje.

O PODER DA ESCOLHA

 Tudo na vida é uma questão de escolha, o fato é que toda escolha tem uma consequência e como tem hein !!! escolher que caminho para realizar um sonho, conquistar uma meta, investir em algo, mas a realidade é que a gente vai pagar um preço por isso, mas é uma escolha! A gente pode perder algo ou pode ganhar ao fazer aquela escolha; então a minha dica é que você reflita sobre suas atitudes procure ser menos impulsivo e perceba que não existe o certo ou errado tudo é uma questão de valoração pessoal e uma avaliação sobre o que se perde com a escolha, com cada escolha, com cada atitude que tomamos.   
Lembre-se toda escolha tem consequências, então reflita um pouco antes de agir e acredite você terá mais liberdade em dizer sim ou não e aprender a dizer não para os eventos da sua vida e contenteza irá se arrepender bem menos de resultados bem indiferentes daqueles esperados.

REFLITA MAIS !