Ir ao conteúdo
  • Cadastre-se
Regras do Clube do Hardware

Loja de Material Esportivo

joao emilio borges garcia
 Compartilhar

Posts recomendados

joao emilio borges garcia
 

joao emilio borges garcia

Postado
Postado 
Algoritmo "Material Esportivo"
// Função : Criar Algoritmo para Materiais Esportivos
// Autor : João Emilio
// Data : 20/04/2017
// Seção de Declarações
Var
// Seção de Declarações das variáveis
QTnike, QTumbro,QTpuma,QToutros :inteiro
clientes      :vetor[1..20,1..8] de caractere
continuar     :caractere //flag para verificar se deseja continuar cadastrando
MAXIMO        :inteiro  //maximo de Clientes possíveis
i             :inteiro  //utilizado para controlar os for
quant         :inteiro  //quantidade de clientes
cont          :inteiro  //quantidade de impressões na tela (não imprimir tudo de vez)
Pdp           :real
PRECOtotal    :real
taxaAcrescimo :real
VALORpagar    :real
Acresc        :real
Vacresc       :real
receber       :real
j             :real

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
MAXIMO<-4


//CADASTRO DE Clientes
continuar:="s"
enquanto (continuar = "S") ou (continuar = "s") faca

   //APRESENTAÇÃO DO PROGRAMA
   escreval()
   escreval("================================")
   escreval("  JE Materiais Esportivos       ")
   escreval("================================")
   escreval()

   quant:=quant+1
   escreva("Nome do Cliente.........: ")
   leia(Clientes[quant,1])
   escreva("Descrição do Produto....: ")
   leia(Clientes[quant,2])
   escreval("(< NIKE/UMBRO/PUMA >)")
   escreva("Marca do Produto........: ")
   leia(Clientes[quant,3])
   escreva("Quantidade Comprada.....: ")
   leia(Clientes[quant,4])
   escreval()
   escreval()
   se quant < MAXIMO então
      escreva("Quer Cadastrar Mais Um Cliente ?  <  S/N   >  ")
      leia(continuar)
   senao
      escreva("Só Pode Cadastrar Até",MAXIMO," Clientes...  Tecle Enter")
      leia(continuar)
      continuar:="n"
   fimse
   limpatela
fimenquanto


//Variáveis Zeradas
limpatela
cont<-0
para i de 1 ate quant faca
   //Exibição dos resultados
   escreval()
   cont:=cont+1
   escreval("Nome do Cliente -------> ",Clientes[i,1])
   escreval("Descrição do Produto --> ",Clientes[i,2])
   escreval("Marca do Produto ------> ",Clientes[i,3])
   escreval("Quantidade Comprada ---> ",Clientes[i,4])

   //Cálculo dos Produtos
   se (Clientes[i,2]="tenis") e (Clientes[i,3]="nike") então
      Pdp <- 300
      Escreval("PREÇO DO TÊNIS NIKE- -------> R$ 300,00")
      taxaAcrescimo<- 0.05  //Cálculo do Acréscimo
   senao
      se (Clientes[i,2]="bola") e (Clientes[i,3]="umbro") então
         Pdp <- 50
         Escreval("PREÇO DA BOLA UMBRO --------> R$ 50,00")
         taxaAcrescimo<- 0.03   //Cálculo do Acréscimo
      senao
         se (Clientes[i,2]="camiseta") e (Clientes[i,3]="puma") então
            Pdp <- 80
            Escreval("PREÇO DA CAMISETA PUMA -----> R$ 80,00")
            //Contador da Camiseta
            taxaAcrescimo<- 0.01  //Cálculo do Acréscimo
         senao
            Pdp <- 0
            Escreval("**PRODUTO NÃO CADASTRADO** ")
            taxaAcrescimo<- 0
         fimse
      fimse
   fimse

   se (Clientes[i,3]="nike") então
      QTnike:=QTnike+1  //Contador de Produtos Nike
   senao
      se (Clientes[i,3]="umbro") então
         QTumbro:=QTumbro+1  //Contador de Produtos Umbro
      senao
         se (Clientes[i,3]="puma") então
            QTpuma:=QTpuma+1  //Contador de Produtos PUMA
         senao
            QToutros:=QToutros+1 //Contador de Outros Produtos
         fimse
      fimse
   fimse

   //Cálculos
   PRECOtotal <- (caracpnum(Clientes[i,4])*Pdp)      //Cálculo do Preço Total
   Acresc<-(PRECOtotal*taxaAcrescimo)    //CAlculo De Acréscimo
   VALORpagar <-(PRECOtotal+Acresc)  //Cálculo Valor a Pagar


   //Exibe o Preçototal/Valor do Acréscimo/Valor a Pagar
   escreval("Preço Total dos Produtos ---> R$ ",PRECOtotal:3:2)
   escreval("Valor do Acréscimo ---------> R$ ",Acresc:3:2)
   escreval("Valor a Pagar de -----------> R$ ",VALORpagar:3:2)

   receber<-(receber+valorpagar)   //CálculA o Valor  que a Loja Tem a Receber
   Vacresc<-Vacresc+ Acresc     //Calcula o Valor De ACRÉSCIMO  que a Loja Tem a Receber
fimpara




//TOTAL
escreval()
escreval("======================================")
escreval("Total de Produtos NIKE Vendidos ------> ",QTnike)
escreval("Total de Produtos UMBRO Vendidos -----> ",QTumbro)
escreval("Total de Produtos PUMA Vendidos ------> ",QTpuma)
escreval("Total de OUTROS Produtos  Vendidos ---> ",QToutros)
escreval()
escreval("Valor Total recebido com Acréscimo ---> R$ ",Vacresc:3:2)
escreval("Valor Total recebido Pela LOJA -------> R$ ",receber:3:2)
escreval("======================================")


fimalgoritmo

 

adicionado 1 minuto depois

Algoritmo “Algo35_Loja material esportivo”

Criar um algoritmo para uma loja de material esportivo

Receber na tela:

Ø  Nome do cliente

Ø  Descrição do produto

Ø  Marca do produto

Ø  Quantidade vendida

Mostrar o preço do produto de acordo com a descrição e a marca, conforme abaixo:

Descrição “tênis” marca “Nike” = R$300,00

Descrição “Bola” marca “Umbro” = R$50,00

Descrição “Camiseta” marca “Puma” = R$80,00

Obs: Outros produtos, mostrar a mensagem “Produto não cadastrado”

Calcular o preço total (QU*PUP)

Ø  Mostrar o preço total

Calcular um acréscimo sobre o preço total, de:

5% para produtos da marca com “Nike”

3% para produtos da marca com “Umbro”

1% para produtos da marca com “Puma”

Ø  Mostrar valor do acréscimo

Ø  Mostrar valor a pagar

Mostrar no final:

Ø  Quantidade total de produtos da marca “Nike” vendidos

Ø  Quantidade total de produtos da marca “Umbro” vendidos

Ø  Quantidade total de produtos da marca “Puma” vendidos

Ø  Valor total (em dinheiro) recebido com acréscimo

Ø  Valor total (em dinheiro) recebido pela loja

adicionado 3 minutos depois

Olá gostaria de saber se Tem algum jeito de eu quando colocar o produto e ele Dar *Não Cadastrado* se nao tem como ele naõ exibir o *Preço Total/Valor do Acréscimo/Valor a Pagar*!!?

  • Curtir 1
Link para o comentário
Compartilhar em outros sites
devair1010
 

devair1010

Postado
Postado

@joao emilio borges garcia     para isso é preciso incluir mais um se ali na hora de

Exibe o Preçototal/Valor do Acréscimo/Valor a Pagar .   então o código ficaria assim : 

Algoritmo "Material Esportivo"
// Função : Criar Algoritmo para Materiais Esportivos
// Autor : João Emilio
// Data : 20/04/2017
// Seção de Declarações
Var
// Seção de Declarações das variáveis
QTnike, QTumbro,QTpuma,QToutros :inteiro
clientes      :vetor[1..20,1..8] de caractere
continuar     :caractere //flag para verificar se deseja continuar cadastrando
MAXIMO,i      :inteiro  //maximo de Clientes possíveis
quant         :inteiro  //quantidade de clientes
cont          :inteiro  //quantidade de impressões na tela (não imprimir tudo de vez)
Pdp           :real
PRECOtotal    :real
taxaAcrescimo :real
VALORpagar    :real
Acresc        :real
Vacresc       :real
receber       :real
j             :real

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
MAXIMO<-4
//CADASTRO DE Clientes
continuar:="s"
enquanto continuar <> "N" faca
  //APRESENTAÇÃO DO PROGRAMA
  escreval()
  escreval("================================")
  escreval("  JE Materiais Esportivos       ")
  escreval("================================")
  escreval()
  quant:=quant+1
  escreva("Nome do Cliente.........: ")
  leia(Clientes[quant,1])
  escreva("Descrição do Produto....: tenis  bola  camiseta ")
  leia(Clientes[quant,2])
  escreval("(< NIKE/UMBRO/PUMA >)")
  escreva("Marca do Produto........: ")
  leia(Clientes[quant,3])
  escreva("Quantidade Comprada.....: ")
  leia(Clientes[quant,4])
  escreval()
  escreval()
  escreva("Quer Cadastrar Mais Um Cliente ?  <  S/N   >  ")
  leia(continuar)
  se quant+1 > maximo ENTÃO
    escreva("Só Pode Cadastrar Até",MAXIMO," Clientes...  Tecle Enter")
    leia(continuar)
    continuar:="n"
  fimse
  limpatela
fimenquanto
//Variáveis Zeradas
limpatela
cont<-0
para i de 1 ate quant faca
  //Exibição dos resultados
  escreval()
  cont:=cont+1
  escreval("Nome do Cliente -------> ",Clientes[i,1])
  escreval("Descrição do Produto --> ",Clientes[i,2])
  escreval("Marca do Produto ------> ",Clientes[i,3])
  escreval("Quantidade Comprada ---> ",Clientes[i,4])
  //Cálculo dos Produtos
  se (Clientes[i,2]="tenis") e (Clientes[i,3]="nike") ENTÃO
    Pdp <- 300
    Escreval("PREÇO DO TÊNIS NIKE- -------> R$ 300,00")
    taxaAcrescimo<- 0.05  //Cálculo do Acréscimo
  senao
    se (Clientes[i,2]="bola") e (Clientes[i,3]="umbro") ENTÃO
      Pdp <- 50
      Escreval("PREÇO DA BOLA UMBRO --------> R$ 50,00")
      taxaAcrescimo<- 0.03   //Cálculo do Acréscimo
    senao
      se (Clientes[i,2]="camiseta") e (Clientes[i,3]="puma") ENTÃO
        Pdp <- 80
        Escreval("PREÇO DA CAMISETA PUMA -----> R$ 80,00")
        //Contador da Camiseta
        taxaAcrescimo<- 0.01  //Cálculo do Acréscimo
      senao
        Pdp <- 0
        Escreval("**PRODUTO NÃO CADASTRADO**    Tecle Enter ")
        taxaAcrescimo<- 0
        leia(continuar)
      fimse
    fimse
  fimse

  se (Clientes[i,3]="nike") ENTÃO
    QTnike:=QTnike+1  //Contador de Produtos Nike
  senao
    se (Clientes[i,3]="umbro") ENTÃO
      QTumbro:=QTumbro+1  //Contador de Produtos Umbro
    senao
      se (Clientes[i,3]="puma") ENTÃO
        QTpuma:=QTpuma+1  //Contador de Produtos PUMA
      senao
        QToutros:=QToutros+1 //Contador de Outros Produtos
      fimse
    fimse
  fimse

  //Cálculos
  PRECOtotal <- (caracpnum(Clientes[i,4])*Pdp)      //Cálculo do Preço Total
  Acresc<-(PRECOtotal*taxaAcrescimo)    //CAlculo De Acréscimo
  VALORpagar <-(PRECOtotal+Acresc)  //Cálculo Valor a Pagar

  //Exibe o Preçototal/Valor do Acréscimo/Valor a Pagar
  se pdp <> 0 ENTÃO
    escreval("Preço Total dos Produtos ---> R$ ",PRECOtotal:3:2)
    escreval("Valor do Acréscimo ---------> R$ ",Acresc:3:2)
    escreval("Valor a Pagar de -----------> R$ ",VALORpagar:3:2)
  fimse
  receber<-(receber+valorpagar)   //CálculA o Valor  que a Loja Tem a Receber
  Vacresc<-Vacresc+ Acresc     //Calcula o Valor De ACRÉSCIMO  que a Loja Tem a Receber
fimpara

//TOTAL
escreval()
escreval("======================================")
escreval("Total de Produtos NIKE Vendidos ------> ",QTnike)
escreval("Total de Produtos UMBRO Vendidos -----> ",QTumbro)
escreval("Total de Produtos PUMA Vendidos ------> ",QTpuma)
escreval("Total de OUTROS Produtos  Vendidos ---> ",QToutros)
escreval()
escreval("Valor Total recebido com Acréscimo ---> R$ ",Vacresc:3:2)
escreval("Valor Total recebido Pela LOJA -------> R$ ",receber:3:2)
escreval("======================================")
fimalgoritmo

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novas respostas.
 Compartilhar
Ir à lista de tópicos

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!