DownLoad PortátiL - Sejam Bem Vindos !!!

O que são programas portáteis ?

Programas Portáteis : são programas que não contém um instalador, ou seja: ele só executa !!! Podendo rodar em pendrives portáteis sem problemas, e sem mudar NADA a interface dos programas...eles funcionam NORMALMENTE, apenas não precisam instalar. Economize espaço no seu HD e tempo ! Aproveitem !

Ass: W.Phelipe

sábado, 21 de junho de 2008

Algoritmooooo (Supermercado)

Links para pegar o script em arquivo ALG*

--------------------------Pacote--------------------------------
http://rapidshare.de/files/39809569/recupera__o.rar.html
------------------------------------------------------------------





http://rapidshare.de/files/39788734/outros.html

ou

http://w17.easy-share.com/1700701148.html

ou

http://forum.livresideias.com/viewtopic.php?f=1&t=12

=========================================================

algoritmo "Supermercado"
var
CodigosProdutos: vetor[0..49] de inteiro
PrecosUnit: vetor[0..49] de real
I,J,qtdprodutos,codigo: inteiro
Existe:logico
Continua: caracter
funcao CalculaPromocao(valor:real):real
var
resul:real
inicio
se (valor <= 100) entao resul <- valor * 0.9 senao se (valor<= 245) entao resul <- valor * 0.85 senao resul <- valor * 0.83 fimse fimse retorne(resul) fimfuncao inicio //Algoritmo principal // Definição da quantidade de produtos escreval("Informe quantos produtos deseja cadastrar(mínimo 1 e máximo 50): ") leia(qtdprodutos) enquanto ((qtdprodutos <> 50)) faca
escreval("ERRO - Quantidade inválida!!")
escreval("Informe quantos produtos deseja cadastrar(mínimo 1 e máximo 50: ")
leia(qtdprodutos)
fimenquanto
//Leitura dos dados que serão armazenados
para I de 0 ate (qtdprodutos - 1) faca
repita
Existe <- falso escreval("Informe o código do ",(I + 1),"º produto: ") leia(CodigosProdutos[I]) para J de 0 ate (I-1) faca se (CodigosProdutos[J] = CodigosProdutos[I]) entao escreval("ERRO - Código já cadastrado!!") Existe <- verdadeiro interrompa fimse fimpara ate (nao(Existe)) escreval("Informe o preço desse ",(I + 1),"º produto: ") leia(PrecosUnit[I]) fimpara //Pesquisa do Produto escreval("============ PESQUISA DE PRODUTO ============") repita escreval escreva("Informe o código do produto desejado: ") leia(codigo) para I de 0 ate (qtdprodutos - 1) faca se (Codigo = CodigosProdutos[I]) entao escreval("Código do produto: ",CodigosProdutos[I]) escreval("Preço Unitário: ",PrecosUnit[I]) escreval("Preço promocional: ",CalculaPromocao(PrecosUnit[I])) interrompa senao se (I >= qtdprodutos - 1) entao
escreval("ERRO - Código não cadastrado!!")
fimse
fimse
fimpara
escreval
escreval("Deseja pesquisar algum outro produro(S)im ou (N)ão ? ")
leia(Continua)
ate (Continua = "N")
limpatela()
escreval("BOAS FÉRIAS!!")
fimalgoritmo