Trabalho de Seção de Declarações das Variáveis

Algoritmo "Caixa"

 

Var

   // Seção de Declarações das variáveis

   opc: inteiro

   saldo, valorRetirado, valorvenda: real

Inicio

   Escreval(" Caixa do Comércio")

   escreval("")

   saldo <-0

   repita

      Escreval("1 - Saldo do caixa")

      Escreval("2 - Vender")

      Escreval("3 - Retirar do caixa")

      Escreval("4 - Sair")

      leia(opc)

 

      escolha opc

      caso 1

         Escreval("Saldo do caixa é: R$ ", saldo)

      caso 2

         Escreval("Insira o valor da venda:")

         leia(valorvenda)

            saldo <- valorvenda

            escreval (" Saldo :",saldo)

 

 

      caso 3

         Escreval("Informe o valor a ser retirato do caixa:")

         leia(valorRetirado)

         

         se valorRetirado > saldo entao

         escreval (" Retirada não efetuada, o caixa está zerado")

         senao

         se valorRetirado < saldo entao

         Escreval("Retirada feita com Sucesso")

         saldo <- saldo - valorRetirado

         fimse

         fimse

Fimescolha

 

   ate opc = 4

 

Fimalgoritmo