O codigo ta funcionando,porém quando escolho a opcao caminhao ele pedi os atributos do outro caso, e eu precisava que se fosse digitado caminhao ele fizesse o que tava pedindo la, so caso fiz so um teste com a mensagem OK. porém se digito ele pedi atributos do primeiro caso e so no final passa pela mensagem..se alguem uder ajudar agradeco.. Codigo:
escreval ("Digite o tipo de veiculo")leia (tipoVeiculo)se (tipoVeiculo = "automovel") entãoescreval ("Escolha a marca do veiculo : Ford,Chev,fiat")leia(marcaLeg)fimsese (marcaLeg = marcaLegA[1])entãovalorTotal <- marcaValA[1]senaofimsese (marcaLeg = marcaLegA[2]) entãovalorTotal <- marcaValA[2]senaofimsese (marcaLeg = marcaLegA [3])entãovalorTotal <- marcaValA[3]senaofimseescreval ("Digite o ano de fabricação: 2015, 2014, 2013,2012 ou 2011")leia (anoFab)se (anoFab = anoFabriA[1]) entãovalorTotal <- valorTotal * anoFabriPerceA[1]senaofimsese (anoFab = anoFabriA[2]) entãovalorTotal <- valorTotal * anoFabriPerceA[2]senaofimsese (anoFab = anoFabriA[3]) entãovalorTotal <- valorTotal * anoFabriPerceA[3]senaofimsese (anoFab = anoFabriA[4]) entãovalorTotal <- valorTotal * anoFabriPerceA[4]senaofimsese (anoFab = anoFabriA[5]) entãovalorTotal <- valorTotal * anoFabriPerceA[5]senaofimseescreval("Digite o numero de portas desejado: 2, 3 ou 4")leia(numPortas)se (numPortas = numPortasA[1]) entãovalorTotal <- valorTotal * percPortasA[1]senaofimsese (numPortas = numPortasA [2]) entãovalorTotal <- valorTotal * percPortasA[2]senaofimsese (numPortas = numPortasA [3]) entãovalorTotal <- valorTotal * percPortasA[3]senaofimseescreval("escolha o estado de conservacao: bom, ruim ou excelente")leia(estadoConserv)se (estadoConserv = estadoConservacaoA[1] )entãovalorTotal <- valorTotal * percentualConservA[1]senaofimsese (estadoConserv = estadoConservacaoA[2])entãovalorTotal <- valorTotal * percentualConservA[2]senaofimsese (estadoConserv = estadoConservacaoA[3])entãovalorTotal <- valorTotal * percentualConservA[3]senaofimseescreval("valor total do veiculo: ", valorTotal)escreval("Escolha a potencia: 1.0, 1.2, 1.4, 1.6")leia(potenciaA)se (potenciaA = 1.0)entãovalorTotal <- valorTotal * 1senaofimsese (potenciaA = 1.2) entãovalorTotal <- valorTotal * 1.1senaofimsese (potenciaA = 1.4)entãovalorTotal <- valorTotal * 1.2senaofimsese (potenciaA = 1.6)entãovalorTotal <- valorTotal * 1.3senaofimseescreval("valor total do veiculo: ", valorTotal)se (tipoVeiculo = "caminhao") entãoescreval("ok")senaofimsefimalgoritmo