Exemplos de Algoritmos Simples em Português

Prévia do material em texto

1) Faça um algoritmo que leia um número inteiro. Calcular e imprimir a metade do número, 
somente se ele for maior que 20. 
 
Algoritmo "maior que 20" 
Var 
a:inteiro 
b:real 
Inicio 
escreva ("digite um numero") 
leia (a) 
b:=a/2 
se (b>20) entao 
 escreva ("A e maior que 20") 
senao 
 escreva ("A e menor que 20") 
fimse 
Fimalgoritmo 
 
2) Faça um algoritmo para ler um número inteiro. Verificar se o número está no intervalo 
entre 50 (inclusive) e 100 (inclusive), se estiver, imprimir “Pertence ao intervalo”, senão 
imprimir “Não pertence ao intervalo”. 
 
Algoritmo "pertence" 
Var 
a:inteiro 
Inicio 
escreval ("digite um numero") 
leia (a) 
se (a>=50) e (a<=100) entao 
 escreval ("Pertence ao intervalo") 
senao 
 escreval ("Nao pertence ao intervalo") 
fimse 
Fimalgoritmo 
 
3) Ler dois valores inteiros e apresentar a diferença do maior pelo menor. Supor que não 
sejam iguais. 
 
algoritmo "diferença" 
var 
A,B: Inteiro 
inicio 
escreval ("digite o primeiro numero:") 
leia(A) 
escreval ("digite o segundo numero:") 
leia(B) 
se (A>B) entao 
 escreval ("A diferença entre os números e",(A-B)) 
senao 
 escreval ("A diferença entre os números e",(B-A)) 
fimse 
fimalgoritmo 
4) Ler dois números (ponto flutuante) e apresentá-los em ordem decrescente. Supor que 
não sejam iguais. 
 
algoritmo "decrescente" 
var 
A,B: real 
inicio 
escreval ("digite o primeiro numero:") 
leia(A) 
escreval ("digite o segundo numero:") 
leia(B) 
se (A>B) entao 
 escreval ("os numero em ordem decrescente sao",a,b) 
senao 
 escreval ("os numero em ordem decrescente sao",b,a) 
fimse 
fimalgoritmo 
 
5) A empresa XSoftware concedeu um bônus de 20% do valor do salário a todos os 
funcionários com tempo de trabalho na empresa igual ou superior a cinco anos e de 10% 
aos demais funcionários. Faça um algoritmo que leia o salário e a quantidade de anos de 
casa de um funcionário, calcule e imprima o valor do bônus. 
 
algoritmo "xsoftware" 
var 
salario,anos:real 
inicio 
escreval ("digite seu salario") 
leia (salario) 
escreval ("digite os ano de trabalho na empresa") 
leia (anos) 
se (anos>=5) entao 
 escreval ("seu novo salario e",salario*1.20) 
senao 
 escreval ("seu novo salario é",salario*1.10) 
fimse 
fimalgoritmo 
 
6)Faça um algoritmo que receba a idade de uma pessoa e mostre se ela é maior de idade 
ou não. 
 
algoritmo "maioridade" 
var 
idade:inteiro 
inicio 
escreval ("digite sua idade") 
leia (idade) 
se (idade>=18) entao 
 escreval ("voce é maior de idade") 
senao 
 escreval ("voce é menor de idade") 
fimse 
fimalgoritmo 
7) Faça um algoritmo que leia a altura e o sexo de uma pessoa, calcule e mostre seu peso 
ideal. Usar as fórmulas a seguir para calcular o peso ideal: 
Para o sexo masculino: (72,7 * altura) – 58 
Para o sexo feminino: (62,1 * altura) – 44,7 
 
algoritmo "peso" 
var 
sexo:caracter 
altura:real 
inicio 
escreval ("digite sua altura") 
leia (altura) 
escreval ("Digite o seu sexo M para Masculino e F para Feminino") 
leia (sexo) 
se (sexo="m") entao 
 escreval ("seu peso ideal e",(72.7*altura)-58) 
senao 
 escreval ("seu peso ideal e",(62.1*altura)-44.7) 
fimse 
fimalgoritmo 
 
8) A prefeitura do Rio de Janeiro abriu uma linha de crédito para os funcionários 
estatutários. O valor máximo da prestação não poderá ultrapassar 30% do salário bruto. 
Fazer um algoritmo que leia o salário bruto e o valor da prestação e informar se o 
empréstimo pode ou não ser concedido. 
Exemplo: 
Salário bruto: 1200,00 
Valor da prestação: 400,00 
Empréstimo não pode ser concedido!! 
 
algoritmo "credito" 
var 
salario,prestacao:real 
inicio 
escreval ("digite o seu salario") 
leia(salario) 
escreval ("digite o valor da prestaçao a ser pago") 
leia (prestacao) 
se (prestacao>salario*0.30) entao 
 escreval ("emprestimo nao pode ser concedido") 
senao 
 escreval ("emprestimo pode ser concedido") 
fimse 
fimalgoritmo