Exercícios em VisuAlg
Por: josepheneto • 27/5/2015 • Trabalho acadêmico • 722 Palavras (3 Páginas) • 237 Visualizações
algoritmo "Ex1"
var
a: inteiro
inicio
escreva ("informe um numero")
escreval
leia (a)
se a > 10 entao
escreval ("Numero maior que 10")
senao
escreva("numero menor que 10")
fimse
fimalgoritmo
/*********************************************/
algoritmo "Ex2"
var
a,b: inteiro
inicio
escreva ("informe um numero")
escreval
leia (a)
escreva ("informe outro numero")
escreval
leia (b)
se a = b entao
escreval ("Numeros iguais")
senao
escreva("numeros diferentes")
fimse
fimalgoritmo
/*************************************************/
algoritmo "Ex3"
var
num,res: real
inicio
escreva ("informe um numero")
escreval
leia (num)
res <- num MOD 2
se res = 0 entao
escreval ("Numeros par")
senao
escreva("numero impar")
fimse
fimalgoritmo
/****************************************************/
algoritmo "Ex4"
var
a, b, res : inteiro
inicio
leia(a)
leia(b)
res <- a/b
res <- a MOD b
se res = 0 entao
escreva("Divisivel")
senao
escreva("Não Divisivel")
fimse
fimalgoritmo
/******************************************************/
algoritmo "Ex5"
var
a, b : real
inicio
escreva ("informe um numero")
escreval
leia(a)
escreva ("informe um numero")
escreval
leia(b)
se a > b entao
escreva(a)
senao
escreva(b)
fimse
fimalgoritmo
/*********************************************************/
algoritmo "Ex6"
var
a, b : real
inicio
escreva ("informe um numero")
escreval
leia(a)
escreva ("informe um numero")
escreval
leia(b)
se a < b entao
escreva(a,b)
fimse
fimalgoritmo
/************************************************************/
algoritmo "Ex7"
var
b2, x1, x2, delta, a, b, c :real
inicio
escreva("Digite o valor de a: ")
leia(a)
escreva("Digite o valor de b: ")
leia(b)
escreva("Digite o valor de c: ")
leia(c)
b2 <- b*b
delta <- b2 - 4 * a * c
se a = 0 entao
escreva("'A' tem que ser diferente de '0'")
senao
se delta > 0 entao
escreval("Existem duas raizes")
x1 <- (-b+raizQ(delta)) / 2*a
x2 <- (-b-raizQ(delta)) / 2*a
escreval("Primeira raiz X'", x1)
escreval("Segunda raiz X''", x2)
senao
...