Algoritmos Prontos em Visual G, C++ e Pascal

[pic 1]

SERVIÇO PÚBLICO FEDERAL

MINISTÉRIO DA EDUCAÇÃO

UNIVERSIDADE FEDERAL DO PARÁ

ENGENHARIA ELÉTRICA

CAMPUS TUCURUÍ

ALGORITMO

Quézia Monteiro da Silva

Matrícula: 201633940001

TUCURUÍ

2016

Algoritmos em VisualG

1° Algoritmo

algoritmo "Área do retângulo"

// Função :Definir a área do retângulo com base nos valores da base,

//e da altura

Var

base,altura, area: real

inicio

    Escreval("Digite o valor da base do retângulo: ")

    Leia(Base)

    Escreval("Digite o valor da altura do retângulo: ")

    Leia(Altura)

area <- Base * altura   //operação

    Escreval("A área é do retângulo é: ",area)

FimAlgoritmo

2° Algoritmo

Algoritmo "Tipagem Sanguínea"

  // Determinar receptores para um dado tipo sanguineo

Var

s: caractere

Inicio

    escreval("Digite sua tipagem sanguínea:")

    leia(s)

 escolha s

 caso "o-"

    escreval("Voçê é um doador universal")

 caso "O+"

    escreval("Voçê pode doar para receptores do tipo: O+,A+,B+,AB+")

 caso "A-"

    escreval("Voçê pode doar para receptores do tipo: A-,A+,AB-,AB+")

 caso "A+"

    escreval("Voçê pode doar para receptores do tipo: A+,AB+")

 caso "B-"

    escreval("Voçê pode doar para receptores do tipo: B-,B+,AB-,AB+")

 caso "B+"

    escreval("Voçê pode doar para receptores do tipo: B+,AB+")

 caso "AB-"

    escreval("Voçê pode doar para receptores do tipo: AB-,AB+")

 caso "AB+"

    escreval("Voçê pode doar para receptores do tipo: AB+")

 fimescolha

    escreval("Doe Sangue!")

Fimalgoritmo

3°Algoritmo

Algoritmo "Salario"

   // Recebe o salário-base de um funcionário.

   //Mostre o salário a receber co gratificação de 5%

   // e paga imposto de 7% sobre o salário base

Var

 sal, grat, imp, desc, novoSal: real

Inicio

   escreva ("Digite o sálário base do funcionário: ")

   leia (sal)

grat <- sal * 0.05 //inicio da operação

imp <- sal * 0.07

desc <- sal - imp

novoSal <- desc + grat

   escreva ("O salário do funcionário a receber é: ", novoSal)

Fimalgoritmo

4°Algoritmo

Algoritmo "Porcentagem"

   // apresente o valor de um dado produto

   //e tirar seu desconto em porcentagem

Var

porc, prod, desc, new: real

Inicio

    escreval("Digite o valor do produto:")

    leia(prod)

    escreval("Digite o valor do desconto desse produto em porcetagem:")

    leia(porc)

 desc <-(prod*porc)/100 //inicio da operação

 new <- prod-desc

 escreval("O novo valor do produto é:", new)

 Fimalgoritmo

5° Algoritmo

algoritmo "Parcelamentos"

   // Função : dividir valores de contas

var

compra,presta: real

inicio

   escreval("Sistema de pretação de contas")

   escreva("Digite o valor da compra: ")

    leia(compra)

presta<-compra/5

   escreval("O cliente deverá pagar 5 prestações de R$",presta," cada")

fimalgoritmo

6° Algoritmo

algoritmo "Notas"

   // Função : Dar media e classificação de notas

var

matricula,a,b,media:real

classificacao:caractere

inicio

    escreval("Digite numero de matricula:")

    leia(matricula)

    escreval ("Digite a pontuação da primeira prova:")

    leia (a)

    escreval ("Digite a pontuação da segunda prova:")

    leia (b)

    escreval("A soma é", a+b )

 media<-(a+b)/2    //inicio da operação

 se media >= 9 entao

 classificacao <- "Exelente"

 senao

 se media >= 7 entao

 classificacao <- "Bom"

 senao

 se media >= 5 entao

 classificacao <- "Regular"

 fimse

 fimse

 fimse

 se media < 5 entao

 classificacao <- "Insuficiente"

 fimse

 limpatela

    escreval("Matrícula: ",matricula)

    escreval("Nota final: ",media)

    escreval("Classificação: ",classificacao)

 fimalgoritmo

7° Algoritmo

Algoritmo "Autorização para assistir programas"

    // Descrição   : Com base na idade,

    //informar se o usuario tem ou não autorização para assistir o programa

 ano, idade:real

 Inicio

    escreval("Esse programa contém cenas inadequadas para menores de 18 anos.")

    escreval("Digite o ano de seu nascimento:")

    leia(ano)

 idade<-(2016-ano)

    escreval("Voçê tem",idade, " anos")

 se (idade >= 18) entao

    escreval ("Acesso autorizado."," Divirta-se.")

 fimse

 se (idade < 18) entao

    escreval("Acesso não autorizado.")

 fimse

 Fimalgoritmo

8°Algoritmo

          algoritmo "Pagamento de profissional"

// Função : salário de um profissional por hora trabalhada

  // Profissional Nível 1 (Fundamental) - R$25,00 por hora/trabalhada

 // Professor Nível 2 (Medio) - R$50,00 por hora/trabalhada

 // Professor Nível 3 (Superior) - R$75,00 por hora/trabalhada