Ir para conteúdo

POWERED BY:

Arquivado

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

Wagner sz

[Resolvido] visuAlg

Recommended Posts

E ae, beleza? queria ajuda com esse algoritmo, até desenvolvi ele mais deu erro, porque?

Desenvolvido no visuAlg.

 

algoritmo "Ex9"

// Elabore um programa que receba duas variáveis numéricas e através de uma estrutura de

// decisão switch...case mostre a soma destas variáveis, ou a subtração, ou a multiplicação

// ou a divisão, de acordo com o valor recebido em uma terceira variável.

var

x,op,y: inteiro

inicio

// Seção de Comandos

escreval("Digite o primeiro número: ")

leia (x)

escreval("Digite o segundo número: ")

leia (y)

 

limpatela

 

escreval("1 - Soma")

escreval("2 - Subtração")

escreval("3 - Multiplicação")

escreval("4 - Divisão")

 

escreval ("Digite o número da operação: ")

leia (op)

 

caso op

seja 1 faca

escreval(x ," + ", y," = ", x+y)

 

seja 2 faca

escreval(x ," - ", y," = ", x-y)

 

seja 3 faca

escreval(x ," * ", y," = ", x*y)

 

seja 4 faca

se (y = 0)entao

escreval ("Não existe divisão por 0.")

 

senao

escreval(x ," / ", y," = ", x/y)

 

fimse

fimalgoritmo

Compartilhar este post


Link para o post
Compartilhar em outros sites

algoritmo "Ex9"

// Elabore um programa que receba duas variáveis numéricas e através de uma estrutura de

// decisão switch...case mostre a soma destas variáveis, ou a subtração, ou a multiplicação

// ou a divisão, de acordo com o valor recebido em uma terceira variável.

var

x,y,op: inteiro

 

inicio

// Seção de Comandos

 

 

escreval("Digite o primeiro número: ")

leia (x)

escreval("Digite o segundo número: ")

leia (y)

 

limpatela

 

escreval("1 - Soma")

escreval("2 - Subtração")

escreval("3 - Multiplicação")

escreval("4 - Divisão")

 

escreval ("Digite o número da operação: ")

leia (op)

escolha op

caso 1

 

escreval(x ," + ", y," = ", x+y)

 

caso 2

escreval(x ," - ", y," = ", x-y)

 

caso 3

escreval(x ," * ", y," = ", x*y)

 

caso 4

se (y = 0)entao

escreval ("Não existe divisão por 0.")

 

senao

escreval(x ," / ", y," = ", x/y)

fimescolha

 

fimalgoritmo

 

 

 

ai vai ficar assim da uma olhada ai e testa

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.