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 progama que receba duas notas, calcular e mostras a média aritmética e as seguintes menssamgens:
Média Aritimétrica - Menssagem
0,0 até 4,0 - Reprovado
4,1 até 6,9 - Exame
7,0 até 10 - Aprovado
o Script:
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 !
