Algoritmos em visualg com estrutura SE e SENAO

1) Elaborar um algoritmo em pseudocodigo que efetue a leitura de um número inteiro e apresentar uma mensagem informando se o número é par ou ímpar.
algoritmo "Par ou Ímpar"
var
n: inteiro
inicio
escreval("Insira um número inteiro: ")
leia(n)
se(n mod 2 = 0) entao
escreval("O número: ",n," é par")
senao
escreval("O número: ",n," é impar")
fimse
fimalgoritmo

2) Elaborar um algoritmo em pseudocodigo que efetue a leitura de um valor que esteja entre a faixa de 1 a 9. Após a leitura do valor fornecido pelo usuário, o programa deverá indicar uma de duas mensagens: “O valor está na faixa permitida”, caso o usuário forneça o valor nesta faixa, ou a mensagem “O valor está fora da faixa permitida”, caso o usuário forneça valores menores que 1 ou maiores que 9.
algoritmo "Faixa Permitida"
var
n :real
inicio
escreval("Digite um valor: ")
leia(n)
se(n >= 1) e (n <= 9) entao
escreval("O valor está na faixa permitida")
senao
escreval("O valor não está na faixa permitida")
fimse
fimalgoritmo

2) Elaborar um algoritmo em pseudocodigo que efetue a leitura do nome e do sexo de uma pessoa, apresentando como saída uma das seguintes mensagens: “Ilmo Sr.”, para o sexo informado como masculino, ou a mensagem “Ilma Sra.”, para o sexo informado como feminino. Apresente na seqüência da mensagem impressa o nome da pessoa.
algoritmo "Sexo da pessoa"
var
nome, sexo :literal
inicio
escreval("Digite o seu nome: ")
leia(nome)
escreval("Digite o seu sexo: ")
leia(sexo)
se(sexo = "Masculino") entao
escreval("Ilmo Sr. ",nome)
senao
se(sexo = "Feminino") entao
escreval("Ilmo Sra. ",nome)
senao
escreval("Digite um sexo válido")
fimse
fimse
fimalgoritmo

3) Elaborar um algoritmo em pseudocodigo que leia um número. Se positivo armazene-o em uma variável chamada “A”, se for negativo, em uma variável chamada “B”. No final mostrar o resultado das duas variáveis.
algoritmo "Armazenamento"
var
n,a,b :real
inicio
escreval("Digite um número: ")
leia(n)
se(n >= 0) entao
a<- n
escreval("O número :",a," é variável de A")
senao
   b <- n
escreval("O número :",b," é variável de B")
fimse
fimalgoritmo

4) Tendo como dados de entrada a altura e o sexo de uma pessoa, construa um algoritmo empseudocodigo que calcule peso ideal, utilizando as seguintes fórumulas:Para homens: (72.7*h) – 58 Para mulheres: (62.1*h) – 44.7 Onde h equivale a altura da pessoa
algoritmo "Peso Ideal"
var
a, p :real
s :literal
inicio
escreval("Digite o seu sexo F ou M: ")
leia(s)
escreval("Digite a sua altura: ")
leia(a)
se(s = "F") entao
   p <- (62.1 * a) - 44.7
escreval("Seu peso ideal é: ",p)
senao
se(s = "M") entao
      p <- (72.7 * a) - 58
escreval("Seu peso ideal é: ",p)
senao
escreval("Digite um sexo válido")
fimse
fimse
fimalgoritmo

5) Fazer um algoritmo em pseudocodigo para ler quatro valores referentes a quatro notas escolares de um aluno e imprimir uma mensagem dizendo que o aluno foi aprovado, se o valor da média escolar for maior ou igual a 5. Se o aluno não foi aprovado, indicar uma mensagem informando esta condição. Apresentar junto com uma das mensagens o valor da média do aluno para qualquer condição.
algoritmo "Situação com média"
var
n1, n2, n3, n4, media :real
inicio
escreval("Digite a 1ª nota :")
leia(n1)
escreval("Digite a 2ª nota :")
leia(n2)
escreval("Digite a 3ª nota :")
leia(n3)
escreval("Digite a 4ª nota :")
leia(n4)
media<- (n1 + n2 + n3 + n4) / 4
se(media >= 5) entao
escreval("O aluno foi aprovado com média: ",media)
senao
escreval("O aluno não foi aprovado com média: ",media)
fimse
fimalgoritmo

6) Fazer um algoritmo em pseudocodigo ler quatro valores referentes a quatro notas escolares de um aluno e imprimir uma mensagem dizendo que o aluno foi aprovado, se o valor da média escolar for maior ou igual a 7.0. Se o valor da média for menor que 7.0, solicitar a nota de exame, somar com o valor da média e obter nova média. Se a nova média for maior ou igual a 5, apresentar uma mensagem dizendo que o aluno foi aprovado em exame. Se o aluno não foi aprovado, indicar uma mensagem informando esta condição. Apresentar junto com as mensagenso valor da média do aluno, para qualquer condição.
algoritmo "Situação do Aluno"
var
n1, n2, n3, n4, media, nrecup, mrecup :real
inicio
escreval ("Digite a primeira nota: ")
leia (n1)
escreval ("Digite a segunda nota: ")
leia (n2)
escreval ("Digite a terceira nota: ")
leia (n3)
escreval ("Digite a quarta nota: ")
leia (n4)
media<-(n1+n2+n3+n4)/4
se(media >=7)entao
escreval ("O aluno está aprovado com média: ",media)
senao
escreval ("O aluno está de recuperação com média: ",media)
escreval ("Digite a nota de recuperação: ")
leia(nrecup)
mrecup<-(media + nrecup)/2
se(mrecup>=5)entao
escreval("O aluno foi aprovado na recuperação com media: ",mrecup)
senao
escreval("O aluno não foi aprovado na recuperação com média: ",mrecup)
fimse
fimse
fimalgoritmo

7) Fazer um algoritmo em pseudocodigo para ler o ano de nascimento de uma pessoa, calcular emostrar sua idade e, também, verificar e mostrar se ela já tem idade para votar (16 anos ou mais)e para conseguir a Carteira de Habilitação (18 anos ou mais).
algoritmo "Maior Idade"
var
ano, idade: inteiro
inicio
escreval("digite seu ano de nascimento: ")
leia(ano)
idade<- 2013 - ano
escreval("Sua idade é: ",idade)
se(idade >= 18) entao
escreval("Ja tem idade para votar")
escreval("Já tem idade para ter habilitação")
senao
se(idade >= 16 ) entao
escreval("Já tem idade npara votar")
senao
escreval("Não pode votar e nem ter habilitação")
fimse
fimse
fimalgoritmo

8) Escrever um algoritmo para ler três valores inteiros e escrever na tela o maior e o menordeles. Considere que todos os valores são diferentes.
algoritmo "Maior e Menor Valor"
var
v1, v2, v3: inteiro
inicio
escreval("Digite o primeiro valor: ")
leia(v1)
escreval("Digite o segundo valor: ")
leia(v2)
escreval("Digite o terceiro valor: ")
leia(v3)

se(v1 > v2) e (v1 > v3) e (v2 > v3) entao
escreval("O maior valor é: ",v1," e o menor é: ",v3)
senao
se(v1 > v2) e (v1 > v3) e (v3 > v2) entao
escreval("O maior valor é: ",v1," e o menor é: ",v2)
senao
se(v2 > v1) e (v2 > v3) e (v1 > v3) entao
escreval("O maior valor é: ",v2," e o menor é: ",v3)
senao
se(v2 > v1) e (v2 > v3) e (v3 > v1) entao
escreval("O maior valor é: ",v2," e o menor é: ",v1)
senao
se(v3 > v1) e (v3 > v2) e (v1 > v2) entao
escreval("O maior valor é: ",v3," e o menor é: ",v2)
senao
se(v3 > v1) e (v3 > v2) e (v2 > v1) entao
escreval("O maior valor é: ",v3," e o menor é: ",v1)
fimse
fimse
fimse
fimse
fimse
fimse
fimalgoritmo

 RETIRADO DE:http://forum.imasters.com.br

0 comentários: