Programa Para Calcular Seguro de Um Carro

Seguro Carro - VisuALG

// Dado os Dados

2-) Faça um programa que seja capaz de realizar o cálculo de seguro de um carro. O cálculo deve ser proporcional a condição escolhida abaixo pelo usuário.

Condições: 

a-) Acrescentar ao valor do seguro 2% caso a pessoa seja solteira.

b-) Acrescentar ao valor do seguro 8% caso a pessoa seja solteira, do sexo masculino e sua idade esteja entre 18 a 25 anos.

c-) Acrescentar ao valor do seguro 3% caso a pessoa seja Casada e do sexo masculino.

d-) Caso a pessoa seja do sexo feminino e solteira, a pessoa irá ter um desconto de 2% no valor do seguro.

algoritmo "SF Studio Calc"
// Função :  Calcular o Seguro
// Autor :  Renato Franco, Guilherme Francisco
// Data : 09/04/2014
// Seção de Declarações 
var

       // Variavel Idade  [:inteiro]
      idade :inteiro
      
      // Variavel Sexo, Estado, Nome [:Caracter]
      sexo, estado nome:caracter
      
      // Variavel Carro, Seguro, Resultado [:Real]
      carro, seguro, resultado: real

inicio
// Seção de Comandos 

   // Entrada do valor do Carro
   escreva(" Digite o Valor do Carro : ")
      leia(carro)
   
   // Entrada do Valor do Seguro
    escreva(" Digite o Valor do Seguro : ")
      leia(seguro)

  // Entrada do Estado Civil
   escreva(" Digite Estado Civil : ")
      leia(estado)

  // Entrada de Idade
   escreva(" Digite Sua Idade : ")
      leia(idade)

  // Entrada do Sexo da Pessoa
   escreva(" Digite o Seu Sexo : ")
      leia(sexo)
      
     // Caso 1
     
          //  Calculo do  Seguro com as Seguintes Condições
             // Estado : Solteiro
            //  Sexo : Masculino
           // Idade : (((Maior que (19) e (Menor que (25)))

    se ((estado = "solteiro") e (sexo = "masculino") e ( idade >= 19 ) e ( idade <= 25 )) entao
       resultado <- (carro * 0.08) + seguro
       escreva(" O Valor do Serguro com 0.08% de Acrescimo = ", resultado)

    // Case  2
    
        //  Calculo do  Seguro com as Seguintes Condições
           // Estado : Casada ou Casado
          //  Sexo : Masculino
    
    // se
       se ((estado = "casada") ou (estado = "casado") e (sexo = "masculino")) entao
       resultado <- (carro * 0.03) + seguro
       escreva(" O Valor do Serguro com 0.03% de Acrescimo = ", resultado)

   // se
   
       //  Calculo do Seguro com as Seguintes Condições
           // Estado : Solteira
          // Sexo   : Feminino
   
     // se
       se ((estado = "solteira") e (sexo = "feminino")) entao
       resultado <- (carro * 0.02) - seguro
       escreva(" O Valor do Serguro com 0.02% de Acrescimo = ", resultado)



    // Se nao
    senao
       resultado <- (carro * 0.02) + seguro
       escreva(" O Valor do Serguro  com 0.02% de Acrescimo", resultado)

    fimse // se[1]
  fimse  // se[2]
 fimse  // se[3]




fimalgoritmo