Trabalho de base de programação.
Aluno: Guilherme de Lira Medeiros
2 – Efetuar a leitura de dois valores e apresentá-los em ordem crescente.
algoritmo "ordem crescente de dois valores"
var
n1, n2 : inteiro
inicio
Escreval("primeiro valor: ")
leia(n1)
escreval("segundo valor: ")
leia(n2)
se (n1<n2) entao
escreval(n1, " é o primeiro")
escreval(n2, " é o segundo")
senao
escreval(n2, " é o primeiro")
escreval(n1, " é o segundo")
fimse
fimalgoritmo
Trabalho de base de programação. Aluno: Guilherme de Lira Medeiros
Elaborar um programa que efetue o cálculo do reajuste de salário de um
funcionário. Considere que o funcionário deverá receber um reajuste de 15%
caso seu salário seja menor que 500. Se o salário for maior ou igual a 500 mas
menor ou igual a 1000, seu reajuste será de 10%, e caso seja ainda maior que
1000, o reajuste deverá ser de 5%.
algoritmo "reajuste salarial"
var
s, r : real
inicio
escreval("informe o salario")
leia(s)
se (s<500) entao
r <- (s*1.15)
senao
se (s>=500) ou (s<=1000) entao
r <- (s*1.10)
fimse
se (s>1000) entao
r <- (s*1.05)
fimse
fimse
escreval("o reajuste é: ", r)
fimalgoritmo
Trabalho de base de programação. Aluno: Guilherme de Lira Medeiros
Efetuar a leitura de três valores (a,b,c) apresentá-los em ordem crescente.
algoritmo "ordemdosnumeros"
var
n1, n2, n3, primeiro_numero, segundo_numero, terceiro_numero : inteiro
inicio
escreval("informe o primeiro número: ")
leia(n1)
escreval("informe o segundo número: ")
leia(n2)
escreval("informe o terceiro número: ")
leia(n3)
se (n1<n2) e (n1<n3) entao
primeiro_numero <- n1
se n2<n3 entao
segundo_numero <- n2
terceiro_numero <- n3
senao
segundo_numero <- n3
terceiro_numero <- n2
fimse
fimse
se (n2<n1) e (n2<n3) entao
primeiro_numero <- n2
Trabalho de base de programação. Aluno: Guilherme de Lira Medeiros
se n1<n3 entao
segundo_numero <- n1
terceiro_numero <- n3
senao
segundo_numero <- n3
terceiro_numero <- n1
fimse
fimse
se (n3<n2) e (n3<n1) entao
primeiro_numero <- n3
se n2<n3 entao
segundo_numero <- n2
terceiro_numero <- n1
senao
segundo_numero <- n2
terceiro_numero <- n1
fimse
fimse
escreval("primeiro número é: ", primeiro_numero)
escreval("segundo número é: ", segundo_numero)
escreval("terceiro número é: ", terceiro_numero)
fimalgoritmo
Trabalho de base de programação. Aluno: Guilherme de Lira Medeiros
Efetuar a leitura de três valores (a,b,c) e efetuar o cálculo da equação de
segundo grau, apresentando as duas raízes, se para os valores informados for
possível efetuar o referido cálculo.
algoritmo "equacaodo2grau"
var
a, b, c , delta, x1, x2 : real
inicio
escreval("informe o valor de a: ")
leia(a)
escreval("informe o valor de b: ")
leia(b)
escreval("informe o valor de c: ")
leia(c)
se (a<0) entao
escreval("calculo impossivel")
senao
delta <- (b^2)-(4*a*c)
se (delta<0) entao
escreval("calculo impossivel")
senao
x1 <- (-b + raizq(delta))/ 2*a
x2 <- (-b - raizq(delta))/ 2*a
escreval("primeira raiz é: ", x1)
escreval("segunda raiz é: ", x2)
Trabalho de base de programação. Aluno: Guilherme de Lira Medeiros
fimse
fimse
fimalgoritmo
Ler dois valores numéricos e apresentar a diferença do maior para o menor.
algoritmo "diferençadomaiorpromenor"
var
a, b, maior, menor, diferenca : inteiro
inicio
escreval("escreva um valor qualquer: ")
leia(a)
escreval("escreva um outro valor qualquer: ")
leia(b)
se (a<b) entao
menor <- a
maior <- b
senao
menor <- b
maior <- a
fimse
diferenca <- (maior - menor)
escreval("a diferenca entre o maior numero e o menor numero é: ", diferenca)
fimalgoritmo
Trabalho de base de programação. Aluno: Guilherme de Lira Medeiros
Efetuar a leitura de um número inteiro positivo ou negativo e apresentá-lo
como sendo positivo.
algoritmo "apresentarumnumeropositivo"
var
a, n : inteiro
inicio
escreval("escreva um numero inteiro qualquer: ")
leia(a)
se (a<0) entao
n <- (a*(-1))
senao
n <- a
fimse
escreval("o numero positivo é: ", n)
fimalgoritmo
Trabalho de base de programação. Aluno: Guilherme de Lira Medeiros
Efetuar a leitura de 4 números inteiros e apresentar os que são divisíveis por 2
ou 3.
algoritmo "divisibilidadede2e3"
var
a, b, c, d : inteiro
inicio
escreval ("Digite o primeiro valor ")
leia(a)
escreval ("Digite o segundo valor ")
leia(b)
escreval ("Digite o terceiro valor ")
leia(c)
escreval ("Digite o quarto valor ")
leia(d)
se (a%3=0) entao
escreval(a ," é divisivel por 3")
fimse
se (b%3=0) entao
escreval(b ," é divisivel por 3")
fimse
se (c%3=0) entao
escreval(c ," é divisivel por 3")
fimse
se (d%3=0) entao
Trabalho de base de programação. Aluno: Guilherme de Lira Medeiros
escreval(d ," é divisivel por 3")
fimse
se (a%2=0) entao
escreval(a ," é divisivel por 2")
fimse
se (b%2=0) entao
escreval(b ," é divisivel por 2")
fimse
se (c%2=0) entao
escreval(c ," é divisivel por 2")
fimse
se (d%2=0) entao
escreval(d ," é divisivel por 2")
fimse
fimalgoritmo