Dificuldades com algoritmo em Portugol no VisualG

migueldsp · 1 de maio de 2012

Tenho esse exercicio para fazer no Visualg, eu até consegui fazer o começo mas na hora de o programa me retornar a resposta ta dando problema.

segue abaixo a questão e o que eu consegui fazer.

Será que alguem poderia me ajudar? Mesmo que não me de a resposta, uma dica já ajuda, fiquei umas 6h procurando o erro e não acho!

Faça um Programa que leia 2 números e em seguida pergunte ao usuário qual

operação ele deseja realizar. O resultado da operação deve ser acompanhado de uma

frase que diga se o número é:

• par ou ímpar;

• positivo ou negativo;

• inteiro ou decimal.

var
x, y, result: real

op: caractere

inicio

// Seção de Comandos

escreval ("insira dois números:")

leia (x,y)

escreval ("Qual operação deseja fazer?")

leia (op)

escolha op

caso "adicao", "soma"

result <- x + y

caso "subtracao", "menos"

result <- x - y

caso "multiplicacao", "vezes", "mult"

result <- x * y

caso "divisao", "dividir", "div"

result <- x / y

outrocaso

escreva ("operação inválida")

escreval

fimalgoritmo

fimescolha

se int (result) = result então

se result mod 2 = 0 então

se (result) >= 0 então

escreva (result, " é par, positivo e inteiro")

senao

escreva (result, " é par, negativo e inteiro")

fimse

senao

se (result) >= 0 então

escreva (result, " é ímpar, positivo e inteiro")

senao

escreva (result, " é ímpar, negativo e inteiro")

fimse

fimse

senao

se (result) >= 0 então

escreva (result, " é ímpar, positivo e decimal")

senao

escreva (result, " é ímpar, negativo e decimal")

fimse

fimse

escreval

fimalgoritmo

LNW · 1 de maio de 2012

Salve, Miguel,

Você sabe que não é possível dizer se um número decimal é par ou ímpar, certo?

Exemplo: 9 / 5 = 1.8. Eu não posso dizer que esse resultado é par ou ímpar, visto que não pertence ao conjunto Z (inteiros).

Eu mexi no seu programa e ajustei esse detalhe e inclui um teste de consistência para a operação digitada:

algoritmo "xpto"

var

x, y, result : real
op           : caractere

inicio

escreval ("Insira dois números:")
leia (x, y)

repita
   escreval ("Qual operação deseja fazer?")
   leia (op)

   escolha op
   caso "adicao", "soma"
      result <- x + y
   caso "subtracao", "menos"
      result <- x - y
   caso "multiplicacao", "vezes", "mult"
      result <- x * y
   caso "divisao", "dividir", "div"
      result <- x / y
   outrocaso
      escreval
      escreval ("Operação inválida!")
      escreval
      op <- "inv"
   fimescolha
ate op <> "inv"

escreval
escreva (result, " é ")

se ( int (result) = result ) então
   se ( int (result) mod 2 ) = 0 então
      escreva ("par, inteiro e ")
   senao
      escreva ("ímpar, inteiro e ")
   fimse
senao
   escreva ("decimal e ")
fimse

se ( result < 0 ) então
   escreva ("negativo")
senao
   escreva ("positivo")
fimse

escreval

fimalgoritmo

PS: Observe que o fórum aqui insiste em fazer a correção ortográfica das palavras. O então no programa acima aparece com o til. Mas é sem o til mesmo.

NW

Henrique Werneck · 3 de maio de 2012

Prestes, fiz este algoritmo e agora preciso colocar uma repetição e que finalize digitando s e continue digitando c. Favor me orientar.

Obrigado

Fiz este algoritmo abaixo e preciso colocar o comando de repetição repita e colocar uma opção para o usuário digitar s para sair e c para continuar.Obrigado

algoritmo "Aluno"

// Função : Pedir ao usuário digitar nomes de alunos e suas idades e

// mostrar a quantidade de pessoas, o total das idades e a

// média das idades.

// Autor : Henrique

// Data : 2/5/2012

// Seção de Declarações

var

idade,i:inteiro

anodenascimento,anoatual:inteiro

media:real

inicio