Ajuda em VisuALG

[victorh.marques]

Boa Tarde criei este algoritimo, ele deve receber 2 numeros e efetuar as seguintes operações

- Soma

- Subtração

- Multiplicação e Divisão

Porém não consigo colocalo para executar

se alguém puder ajudar segue o script:

algoritmo "semnome"
// Função :
// Autor :
// Data : 10/3/2011
// Seção de Declarações
var
  n1,n2,rst:real
  op:caractere
inicio
// Seção de Comandos
repita
   escreva ("Informe o 1° Numero  : ")
   leia (n1)
   escreva ("Informe o 2° Numero  : ")
   leia (n2)
   escreva ("Informe a Operação +,-,*,/  : ")
   leia (op)

   // Processamento
   escolha op
   caso (op = "+")
      rst <- (n1 + n2)
      escreval ("O Resultado da Operação = ",rst)
   caso (op = "-")
      rst <- (n1 - n2)
      escreval ("O Resultado da Operação = ",rst)
   caso (op = "*")
      rst <- (n1 * n2)
      escreval ("O Resultado da Operação = ",rst)
   caso (op = "/")
      se n2 <> 0 então
         escreval ("Não é Diviel por '0' !")
      senao
         rst <- (n1 / n2)
         escreval ("O Resultado da Operação = ",rst)
      fimse
   outrocaso
      escreval ("Não efetuamos este tipo de operação ! ")
   fimescolha
   escreva ("Deseja Continuar as Operações s/n ? ")
   leia (op)
   se (op <> "s") então
      interrompa
   fimse
   fimrepita
fimalgoritmo

O VisuALG acusa que esperava um expressão do tipo 'CARACTER'.

E tem um segundo segundo algorritimo que é o seguinte:

Fazer um programa que receba duas notas, calcular e mostras a média aritmética e as seguintes menssamgens:

Média Aritimétrica - mensagem

0,0 até 4,0 - Reprovado

4,1 até 6,9 - Exame

7,0 até 10 - Aprovado

var
nota1,nota2,media: real
inicio
// Seção de Comandos
escreva ("Informe a nota do 1° Aluno : ")
leia (nota1)
escreva ("Informe a nota do 2° Aluno : ")
leia (nota2)

// Processo
media <- (nota1 + nota2)/2
escolha media
caso (media <= 4)
   escreval ("Reprovado !")
   escreval ("Com média : ",media)
caso (media >= 4.1)
   escreval ("Exame !")
   escreval ("Com média : ",media)
   se (media < 6.9) então
      escreval ("Exame !")
      escreval ("Com média : ",media)
   senao
      escreval ("Aprovado !")
      escreval ("Com média : ",media)
   fimse
fimescolha

o visuALG ta acusando que media n é real

e não esta executando

Obrigado !

[fabidoo]

Ao invés usar o comando "CASO" use "SE...então" acho que pode ser ai seu erro.

[victorh.marques]

esse primeiro exercicio pode ser feito com a estrutura 'CASO' e 'SE'

eu ja fiz ele com 'SE', mais eu tava querendo fazer com a estrutura 'CASO'

para eu ver como funciona a aplicação dela entendeo ?

[CiD182]

tipo, tava testando e tb nao tava entendo o erro, mas encontrei aqui numa apostila a sintaxe certa para "caso"

escolha op

caso "+"

...

e assim para td o resto, sem repetir a variavel "op", aqui funcionou. Espero que ajude.

[victorh.marques]

deu certo brother valeu !

[gandalfnho]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.