Ir ao conteúdo

Dificuldades com algoritmo em Portugol no VisualG


migueldsp

Posts recomendados

Postado

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! :wacko:

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

Postado

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

Postado

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

// Seção de Comandos

escreval ("Digite o ano de nascimento do usuário:")

leia (anodenascimento)

escreval ("Digite o ano atual:")

leia (anoatual)

idade:=anoatual-anodenascimento

escreval ("Ele tem", idade, " anos")

se idade>=18 então

escreva("Ele é maior de idade")

senao

escreva ("Ele é menor de idade")

fimse

fimalgoritmo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!