algoritmo visualg

[Lûîz Arthur 0]

pessoal tou precisando da ajuda de vocês nesse três algoritmos:

 

1-faca com que os alunos sejam classificados para um campeonato de futebol de acordo com as suas respectivas idades e classes em que competição.

 

Idade Grupo

10 a 12 Infantil

13 a 15 Mirim

16 a 18 Juniores

 

 

2- utilizando a instrução caso elabore um algoritmo que deverá permitir escolher uma das 4 operações matemáticas como: soma,multiplicação,subtração e a divisão entre dois valores.Lembrando que o resultado deverá ser exibido no fim do algoritmo.

 

3- numa loja sempre os clientes pagam suas mensalidades em dia recebem um desconto de 10% mas caso estejam em atraso lhes é cobrada uma multa de 1% sobre cada dia de atraso,sabendo que a multa é calculada sobre a seguinte formula Mensalidade= valor+(valor*(multa/100)*dias) elabore uma formula para calcular o desconto e um algoritmo que permita escolher uma destas duas situações.

 

espero contar com ajuda de vocês!!!

 

[Sergio Cavalcante 6]

algoritmo "Ajuda "

// Função :

// Autor : Sergio Cavalcante

// Data : 28/07/2014

// Seção de Declarações

var

idade:inteiro

inicio

Escreva("Informe uma idade: ")

leia(idade)

escolha idade

caso 10 ate 12

Escreva("Infantil")

caso 13 ate 15

Escreva("Mirim")

caso 16 ate 18

Escreva("Juniores")

outrocaso

Escreva("Fora da faixa")

fimescolha

fimalgoritmo

algoritmo "Ajuda "

// Função :

// Autor : Sergio Cavalcante

// Data : 28/07/2014

// Seção de Declarações

var

num1,num2:inteiro

op:caracter

inicio

Escreval("informe 2 numeros: ")

leia(num1,num2)

Escreva("Escolha uma operação - + * /: ")

leia(op)

escolha op

caso "+"

Escreva("A soma e: ",num1+num2)

caso "-"

Escreva("A subtração e:",num1-num2)

caso "*"

Escreva("A multiplicação é : ",num1*num2)

caso "/"

Escreva("A divisão é: ",num1/num2)

outrocaso

Escreva("error")

fimescolha

fimalgoritmo

[Lûîz Arthur 0]

muito obrigado Sergio pela ajuda,mas nesse terceiro já sei como fazer o desconto e a multa,mas ñ sei se é pra juntar as duas formulas e criar um algoritmo ou se é as duas separadas.

[Sergio Cavalcante 6]

Imagine que o vencimento dele fosse para o dia 22/07/2000 e ele pagou no dia 24/08/2000 nesse caso ele atrasou um mês e dois dias ,calculando 30+2 levando em consideração que todos os meses tem 30 dias então teremos 32 dias de atrasos ok..Agora imagine que o cliente atrasou 3 meses e alguns dias então a coisa começa a complicar de verdade...você vai ter que usar( " e" "ou" ) para comparar varias situações .

[Lûîz Arthur 0]

eu fiz assim juntei as duas situações

algoritmo "semnome"

// Função :

// Autor :

// Data : 28/07/2014

// Seção de Declarações

var

multa,valor,desconto,mensalidade,valor_final:real

dias:inteiro

situacao,mult,descont:caractere

inicio

// Seção de Comandos

escreval("Escolha uma das situações: multa ou desconto?")

leia(situacao)

escolha situacao

caso "mult"

escreval("Digite o valor da mensalidade")

leia(valor)

escreval("Digite o valor da multa")

leia(multa)

escreval("Digite a quantidade de dias em atraso")

leia(dias)

mensalidade <- valor + valor*multa/100*dias

escreval("o valor da mensalidade com a multa é:",mensalidade)

caso "descont"

escreval("digite um valor da mensalidade: ")

leia(valor)

desconto <- (valor*10/100)

valor_final <- (valor - desconto)

escreval("o desconto de 10% é: ",desconto)

escreval("o Valor da mensalidade com desconto é:",valor_final)

fimescolha

fimalgoritmo

mas mê de um exemplo de como ficaria a sua ideia no visualg.

[Sergio Cavalcante 6]

algoritmo "sSergio Cavalcante"

// Função :

// Autor :

// Data : 29/07/2014

// Seção de Declarações

var

dia,mes,ano:inteiro

dia_v,mes_v,ano_v:inteiro

aux1,aux2:inteiro

inicio

Escreval("Informe Data do pagamento dia,mes,ano: ")

leia(dia,mes,ano)

Escreva("Dia",dia,"|Mes",mes,"| Ano:",ano)

Escreval("")

Escreval("Informe Data do Vencimento dia,mes,ano: ")

leia(dia_V,mes_V,ano_V)

se (dia = dia_v)e(mes=mes_v)e(ano =ano_v)entao

Escreval("Pagamento em dia")

fimse

se (dia < dia_v) entao

aux1 <- (dia_v - dia)

fimse

se mes < mes_v entao

aux2 <- (mes_v - mes)*30)+ aux1

fimse

Escreva(" Atraso de: " ,aux2," dias")

fimalgoritmo

use essa data para teste data pagamento 01\02\2013 e data de vencimento 01\03\2013 ele vai mostrar que esta atrasado 30 dias, agora tu vai ter que fazer alguns comandos para testar os dias por exemplo : vencimento 01\01\2003 e pagou no dia 10\01\2003 ou seja atraso de 9 dias ...

[Sergio Cavalcante 6]

algoritmo "Ajuda"

// Função :

// Autor :Sergio cavalcante

// Data : 29/07/2014

// Seção de Declarações

var

dia,mes,ano:inteiro

dia_venc,mes_venc,ano_venc:inteiro

aux,aux1,result:inteiro

inicio

Escreval("Informe a data o pagamento: DIA - MES - ANO ")

leia(dia,mes,ano)

Escreva("A data de pagamento e: ",dia,"/",mes,"/",ano)

Escreval("")

Escreva("------------------------------------------------")

Escreval("")

Escreval("Informe a data de Vencimento : DIA - MES - ANO ")

leia(dia_venc,mes_venc,ano_venc)

se(dia_venc = dia)e(mes_venc = mes)e(ano_venc=ano) entao

Escreval("Em dias")

fimse

se (dia < dia_venc)e(mes=mes_venc)entao

aux <-(dia_venc - dia)

result <- aux

fimse

se(dia = dia_venc)e(mes < mes_venc)entao

aux <- dia

result <-(mes_venc - mes)*30

fimse

se (dia < dia_venc)e(mes < mes_venc)entao

aux <- (dia_venc - dia)

aux1 <-(mes_venc - mes)

result <- (aux+30)*aux1

fimse

se (dia > dia_venc)e(mes < mes_venc) entao

aux <-(dia - dia_venc)

aux1 <-(mes_venc - mes)

result <-(aux+30)*aux1

fimse

Escreva("Total de dias em atrasos : ",result)

fimalgoritmo

Cara testa ai , só lembrando que eu não adotei regras para o ano ,e que todos os meses tem 30 dias

[Lûîz Arthur 0]

para que serve a variável aux e o que significa aux

[Sergio Cavalcante 6]

na verdade você pode atribuir qualquer nome as variaveis na verdade eu usei a palavra aux por q ela usada em muitos livros de programação ou seja aux e abreviação de auxilar , percebi que existe algumas variáveis aux desnecessário no código más serve de questionamento para você que esta começando agora

 

 

Duvida posso ajudar pelo team view

[Lûîz Arthur 0]

ok,mas esse algoritmo que vc me propôs teria que ter o valor da mensalidade pra depois ser calculado o desconto e multa,eu acho q teríamos que juntar o meu algoritmo apresenta acima com seu de agora.

mas no caso pra isso acontecer teria se saber a data de vencimento da mensalidade e depois se estaria em atraso para ser cobrada a multa de 1% sobre cada dia de atraso ou caso contrario o desconto de 10%,por isso eu disse temos que juntar o meu algoritmo e o seu os dois juntos são a resposta certa,mas ainda ñ sei como junta-los

[Sergio Cavalcante 6]

Escreva("Total de dias em atrasos : ",result)

se result > 1 entao

Escreval("")

Escreva("Informe o valor da mensalidade: ")

leia(valor)

fimse

se result >= 1 entao

Mensal<- valor+(valor*0.1)*result)

Escreva( mensal)

senao

Escreva("Não existe multa")

fimse

mais ou menos assim junta tudo

[Lûîz Arthur 0]

ajuda ai Sergio

qual a vantagem de utilizarmos o comando caso no lugar do comando se no visualg?