Vim dividir coisas novas que estou aprendendo, como todo mundo começa de algum lugar eu também, rumo ao conhecimento na área de desenvolvimento de software.
Abaixo um pequeno passo que dei, fiz um bloco de algoritmo em portugol aprendendo estrutura básica feito no VISUALG
Se testar vai ver que roda... até mais pessoal...
algoritmo "COMPOSIÇÃO CUSTO"
// Função : testar custo
// Autor : Erik Ignatowicz
// Data : 24/08/2010
// Seção de Declarações
var
QTD, VLR_UNIT, VLR_TOTAL, VLR_ICMS, VLR_IPI, VLR_FRETE, VLR_ICMS_FRETE ,VLR_CUSTO, VLR_CUSTO_UNITARIO: REAL
PERC_ICMS, PERC_IPI,PERC_ICMS_FRETE , COD_PROD : INTEIRO
DESC_PROD: CARACTER
inicio
// Seção de Comandos
ESCREVAL ("Informe código e descrição do produto")
LEIA (COD_PROD)
LEIA (DESC_PROD)
ESCREVAL ("Informe quantidade e valor unitário")
LEIA (QTD)
LEIA (VLR_UNIT)
ESCREVAL ("Informe aliquota de ICMS e IPI")
LEIA (PERC_ICMS)
LEIA (PERC_IPI)
ESCREVAL ("Informe valor de frete e alíquota ICMS")
LEIA (VLR_FRETE)
LEIA (PERC_ICMS_FRETE)
VLR_TOTAL <- (VLR_UNIT * QTD)
VLR_ICMS <- (VLR_TOTAL * PERC_ICMS /100)
VLR_IPI <- (VLR_TOTAL * PERC_IPI /100)
VLR_ICMS_FRETE <- (VLR_FRETE * PERC_ICMS_FRETE /100)
VLR_CUSTO <- (VLR_TOTAL + VLR_IPI + VLR_FRETE)
VLR_CUSTO_UNITARIO <- (VLR_CUSTO / QTD)
ESCREVAL ("ABAIXO DEMONSTRAÇÃO DO CUSTO TOTAL E CUSTO UNITÁRIO DO ITEM")
ESCREVA ("Valor custo total é")
ESCREVAl (VLR_CUSTO)
ESCREVA ("Valor custo unitário total é")
ESCREVA (VLR_CUSTO_UNITARIO)
fimalgoritmo
