Portfolio de algoritmo

algoritmo "Soma das medias"
// Função : Calcular Media De Notas
// Autor : Sergio
// Data : 04/09/2012
// Seção de Declarações var nota1,nota2,media: real

inicio escreval ("Digite as Notas") leia (nota1,nota2) media <- (nota1*2+nota2*3)/5 escreva ("O Resultado é =",media)
// Seção de Comandos
Fimalgoritmo

algoritmo "Estrutura Sequencial 5"
// Função :
// Autor : Sergio
// Data : 04/09/2012
// Seção de Declarações var a,b,c: real

inicio escreval ("Digite Os Valores") leia (a,b) c <- a+b escreva ("O Resutado é =",C)
// Seção de Comandos
Fimalgoritmo

algoritmo "Produto"
// Função : Calcular Desconto De 10 % No Produto
// Autor : Sergio
// Data : 04/09/2012
// Seção de Declarações var prod,novo: real

inicio escreval ("Digite o Preço do produto") leia (prod) novo <- prod-(prod*0.10) escreva ("O Novo Preço é =",novo)
// Seção de Comandos
Fimalgoritmo

algoritmo "Salario"
// Função : Calcular Salario Com A Comissão
// Autor : Sergio
// Data : 04/09/2012
// Seção de Declarações var SL,SL1,SLN: real

inicio escreval ("Digite Seu Salario Em Seguida Sua Comissão") leia (SL,SL1)
SLN <- (SL1*0.04)+SL escreva ("Seu Salario Com A Comissão é =",SLN)
// Seção de Comandos fimalgoritmo algoritmo "Peso"
// Função : Calcular Peso
// Autor : Sergio
// Data : 05/09/2012
// Seção de Declarações var Peso,Pesonovo,pesonovo1: real

inicio escreval ("Digite Seu Peso") leia (Peso)
Pesonovo <- peso+(Peso*0.15) escreval ("Seu Peso se engordar 15% será =",pesonovo)
Pesonovo1 <- peso-(Peso*0.20) escreval ("Seu Peso se emagrecer 20% será =",pesonovo1)
// Seção de Comandos
Fimalgoritmo

algoritmo "Peso em Gramas"
// Função : Tranformar Peso Em Gramas
// Autor : Sergio
// Data : 04/09/2012
// Seção de Declarações var Peso,pesogramas: real

inicio escreval ("Digite Seu Peso:") leia (Peso) pesogramas <- (Peso*1000) escreval ("Seu Peso Em Gramas é =",pesogramas)
// Seção de