2 lista de metodos

Prévia do material em texto

1) Construir um algoritmo que leia a idade de uma pessoa e informe se esta pessoa é maior de idade 
ou se é menor de idade ou se é maior de 65 anos. 
 
algoritmo "idade" 
 
var 
idade:inteiro 
inicio 
escreval("informe uma idade") 
leia(idade) 
se((idade>=0)e(idade<18))entao 
 escreval("menor de idade") 
senao 
 se((idade>=18)e(idade<65))entao 
 escreval("maior idade") 
 senao 
 se(idade>=65)entao 
 escreval("65anos ou mais") 
 fimse 
 fimse 
fimse 
fimalgoritmo 
 
 
2) Escreva um algoritmo para determinar se um número A é divisível por outro número B. Esses 
valores devem ser fornecidos pelo usuário. 
 
algoritmo "AB" 
 
var 
A1,B2:inteiro 
inicio 
escreval("informe um numero para A") 
leia(A1) 
escreval("informe outro numero para B") 
leia(B2) 
se(A1 mod B2=0)entao 
 escreval("A e divisil por B") 
senao 
 escreval("A nao e divisil por B") 
fimse 
fimalgoritmo 
 
3) Escrever um algoritmo que leia o ano de nascimento de uma pessoa e o ano atual. Mostrar na tela 
a idade dessa pessoa somente se o ano de nascimento for um ano válido, ou seja, menor que o ano 
atual. Se o ano de nascimento não for um ano válido, escrever: ano de nascimento inválido. 
 
algoritmo "ano" 
 
var 
nascimento,atual,idade:inteiro 
inicio 
escreval("informe ano de nascimento") 
leia(nascimento) 
escreval("informe ano atual") 
leia(atual) 
idade<-2018-1997 
se(nascimento<atual)entao 
 escreval("idade:",21,"anos") 
senao 
 escreval("ano de nascimento nao e valido") 
fimse 
fimalgoritmo 
 
 
4) Faça um algoritmo que verifique a validade de uma senha fornecida pelo usuário. A senha que 
deve estar armazenada no sistema é nX4%. O programa deve mostrar a mensagem “Acesso 
concedido”, se a senha for válida, ou “Acesso não concedido” caso contrário. 
 
algoritmo "senha" 
 
var 
senha:caracter 
inicio 
escreval("informe a senha") 
leia(senha) 
se(senha="nx4%")entao 
 escreval("acesso concedido") 
senao 
 escreval("acesso nao concedido") 
fimse 
fimalgoritmo 
 
5) Ler três números A, B e C, e verificar se o resultado de 3*(A+B)/(A*C)-C+B é maior que o produto 
de A, B e C. 
algoritmo "resultado" 
 
var 
a,b,c,resultado,produto:real 
inicio 
escreval("digite o numero a") 
leia(a) 
escreval("digite o numero b") 
leia(b) 
escreval("digite o numero c") 
leia(c) 
produto<-a*b*c 
resultado<-3*(a+b)/(a+c)-c+b 
se(resultado>produto)entao 
escreval("resultado e maior que o produto de a,b e c") 
senao 
escreval("resultado e menor que o produto de a,b e c") 
fimse 
fimalgoritmo 
 
 
6) Escrever um algoritmo que leia três números inteiros. Informe se eles forem iguais. Se eles forem 
diferentes entre si, imprima o menor deles. 
 
algoritmo "numeros" 
 
var 
x1,x2,x3:inteiro 
inicio 
escreval("digite um numero") 
leia(x1) 
escreval("digite outro numero") 
leia(x2) 
escreval("digite outro numero") 
leia(x3) 
se(x1=x2)e(x1=x3)entao 
 escreval("os numeros sao todos iguais") 
senao 
 se((x1<>x2)e(x1<>x3)e(x2<>x3))entao 
 se((x1<x2)e(x1<x3))entao 
 escreval("x1 e o menor numero") 
 senao 
 se(x2<x1)e(x2<x3)entao 
 escreval("x2 e o menor numero") 
 senao 
 se(x3<x1)e(x3<x2)entao 
 escreval("x3 e o menor numero") 
 fimse 
 fimse 
 fimse 
 fimse 
fimse 
fimalgoritmo 
 
7) Escrever um algoritmo que leia três números inteiros. Informe se eles forem iguais. Se eles forem 
diferentes entre si, imprima em ordem crescente. 
 
algoritmo "ordem" 
 
var 
x1,x2,x3,menor,meio,maior:inteiro 
inicio 
escreval("digite um numero") 
leia(x1) 
escreval("digite outro numero") 
leia(x2) 
escreval("digite outro numero") 
leia(x3) 
se((x1=x2)e(x1=x3))entao 
 escreval("os numeros sao iguais") 
senao 
 se((x1<>x2)e(x1<>x3)e(x2<>x3))entao 
 se((x1<x2)e(x1<x3))entao 
 menor<-x1 
 senao 
 se((x2<x1)e(x2<x3) 
 menor<-x2 
 senao 
 se((x3<x1)e(x3<x2)) 
 menor<-x3 
 fimse 
 fimse 
 fimse 
 se((x1>x2)e(x1<x3))entao 
 meio<-x1 
 senao 
 se((x1>x3)e(x1<x2))entao 
 meio<-x1 
 senao 
 se((x2>x1)e(x2<x3))entao 
 meio<-x2 
 senao 
 se((x2>x3)e(x2<x1))entao 
 meio<-x2 
 senao 
 se((x3>x1)e(x3<x2))entao 
 meio<-x3 
 senao 
 se((x3>x2)e(x3<x1))entao 
 meio<-x3 
 fimse 
 fimse 
 fimse 
 fimse 
 fimse 
 fimse 
 se((x1>x2)e(x1>x3))entao 
 maior<-x1 
 senao 
 se((x2>x1)e(x2>x3))entao 
 maior<-x2 
 senao 
 se((x3>x1)e(x3>x2))entao 
 maior<-x3 
 fimse 
 fimse 
 fimse 
 escreval("ordem:",menor,",",meio,",",maior,".") 
 fimse 
 fimse 
fimalgoritmo 
 
8) Fazer um programa que leia um número inteiro de 3 casas decimais e imprima se o algarismo da 
casa das centenas é par ou ímpar. 
 
9) Faça um algoritmo que leia 3 números inteiros e determine: 
a) Se os 3 forem iguais, verifique o número é par ou impar; 
b) Se os 3 forem diferentes, apresente o resultado da média simples dos números. 
 
algoritmo "numeros" 
 
var 
n1,n2,n3:inteiro 
mediasimples:real 
inicio 
escreval("informe um numero") 
leia(n1) 
escreval("informe outro numero") 
leia(n2) 
escreval("informe outro numero") 
leia(n3) 
se((n1=n2)e(n1=n3))entao 
 se(n1 mod n2=0)entao 
 escreval("e par") 
 senao 
 escreval("e impar") 
 fimse 
senao 
 se((n1<>n2)e(n1<>n3)e(n2<>n3))entao 
 mediasimples<-(n1*n2*n3)/2 
 escreval("media simples:",3) 
 fimse 
fimse 
fimalgoritmo 
 
10) Uma agência bancária possui dois tipos de investimentos, conforme o quadro a seguir. Faça um 
programa que receba o tipo de investimento e o valor do investimento e que calcule e mostre o valor 
corrigido de acordo com o tipo de investimento. 
- Tipo 1 – poupança – 3% 
- Tipo 2 – Fundos de renda fixa – 4% 
 
11) Faça um algoritmo que receba três números inteiros e mostre qual é o maior deles. 
 
algoritmo "tresnumeros" 
 
var 
x1,x2,x3:inteiro 
inicio 
escreval("digite um numero") 
leia(x1) 
escreval("digite outro numero") 
leia(x2) 
escreval("digite outro numero") 
leia(x3) 
se(x1>x2)e(x1<x3)entao 
 escreval("x1 e o maior numero") 
senao 
 se(x2>x1)e(x2>x3)entao 
 escreval("x2 e o maior numero") 
 senao 
 se(x3>x1)e(x3>x2)entao 
 escreval("x3 e o maior numero") 
 fimse 
 fimse 
fimse 
fimalgoritmo 
 
12) Faça um algoritmo que divida dois números inteiros. Faça as devidas condições para que não 
ocorram erros na execução. 
 
algoritmo "divisao" 
 
var 
n1,n2:inteiro 
resultado:real 
inicio 
escreval("digite um numero") 
leia(n1) 
escreval("digite outro numero") 
leia(n2) 
se(n1<>0)entao 
 resultado<-n1/n2 
 escreval("total:"resultado) 
senao 
 escreval("operaçao nao pode ser efetuada") 
fimse 
fimalgoritmo