Algoritmos

1º

algoritmo "consumo médio de um carro"

var

dist,comb,calc:real

inicio

escreval("Informe a distancia, em Km:")

leia(dist)

escreval("Informe o combustivel gasto, em L:")

leia(comb)

calc<-(dist/comb)

escreval("O consumo medio é:",calc, " Km/L")

fimalgoritmo

2º

algoritmo "salario final de um vendedor"

var

nome: caracter

sf,venda,calc: real

inicio

escreval("Informe seu nome:")

leia(nome)

escreval("Informe seu salario fixo:")

leia(sf)

escreval("Informe seu total de vendas, em reais:")

leia(venda)

calc<-sf+(venda*0.15)

escreval("Nome do vendedor:",nome)

escreval("Seu salario fixo é ",sf," R$")

escreva("Salario final é ",calc," R$")

fimalgoritmo

3º

algoritmo "informando a data"

var

dia,mes,ano: inteiro

inicio

escreval("Informe a data no formato DD/MM/AA")

escreval("Sendo (dia=DD)/(mes=MM)/(ano=AA)")

leia(dia,mes,ano)

escreval(ano,"/",mes,"/",dia)

fimalgoritmo

4º

algoritmo "numero por extenço"

var

i: real

inicio

escreval("informe um numero entre 1 e 5:")

leia(i)

escolha i

caso 1

escreval("Numero UM")

caso 2

escreval("Numero DOIS")

caso 3

escreval("Numero TRÊS")

caso 4

escreval("Numero QUATRO")

caso 5

escreval("Numero CINCO")

outrocaso

escreval("Numero invalido")

fimescolha

fimalgoritmo

5º

algoritmo "loja de carros"

var

desc,calc,comb,valor: real

inicio

escreval("Informe o tipo de combustivel")

escreval("(1)Alcool,(2)Gasolina,(3)Diesel")

leia(comb)

escreval("informe o valor do carro:")

leia(valor)

escolha comb

caso 1

desc<- valor*0.25

calc<- valor-desc

escreval("O desconto total é:",desc)

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

caso 2

desc<- valor*0.21

calc<- valor-desc

escreval("O desconto total é:",desc)

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

caso 3

desc<- valor*0.14

calc<- valor-desc

escreval("O desconto total é:",desc)

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

outrocaso

escreval("informe o tipo de combustivel certo")

fimescolha

fimalgoritmo

6º

algoritmo "reajuste de uma empresa"

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

...