LP1 (lista 3) Exercicios Resolvidos

Prévia do material em texto

algoritmo "exercicio 01" 
var 
num: inteiro 
inicio 
escreval ("Entre com um numero: ") 
leia (num) 
se (num >= 18) entao 
 se (num>=65) entao 
 escreval("É maior de 65 anos") 
 senao 
 escreval ("É maior de idade") 
 fimse 
senao 
 escreval("É menor de idade") 
fimse 
fimalgoritmo 
 
algoritmo "exercicio 02" 
var 
num: inteiro 
inicio 
escreval ("Entre com um numero: ") 
leia (num) 
se (num = 5) entao 
 escreval ("O numero é ",num) 
senao 
 se (num = 200) entao 
 escreval ("O numero é ",num) 
 senao 
 se (num = 400) entao 
 escreval ("O numero é ",num) 
 senao 
 se (num >= 500) e (num <= 1000) entao 
 escreval ("O numero esta no intervalo entre 500 e 1000") 
 senao 
 escreval ("O numero esta fora dos escopos") 
 fimse 
 fimse 
 fimse 
fimse 
fimalgoritmo 
 
algoritmo "exercicio 03" 
var 
x: real 
inicio 
escreval ("Entre com o valor de x: ") 
leia (x) 
escreval ("O valor de F(x) é: ",8/(2-x)) 
fimalgoritmo 
 
algoritmo "exercicio 03" 
var 
x: real 
inicio 
escreval ("Entre com o valor de x: ") 
leia (x) 
escreval ("O valor de F(x) é: ",(5*x+3)/(raizQ(x^2-16))) 
fimalgoritmo 
 
 
 
algoritmo "exercicio 04" 
var 
i: inteiro 
inicio 
para i de 1 ate 500 faca 
 se (i mod 5 = 0) entao 
 escreval (i) 
 fimse 
fimpara 
fimalgoritmo 
 
algoritmo "exercicio 05" 
var 
i,soma: inteiro 
inicio 
soma<-0 
para i de 25 ate 200 faca 
 se (i mod 2 = 0) entao 
 soma<-soma+i 
 fimse 
fimpara 
escreval ("Soma dos numeros pares: ",soma) 
fimalgoritmo 
 
algoritmo "exercicio 06" 
var 
i,soma,num: inteiro 
inicio 
soma<-0 
para i de 1 ate 20 faca 
 
 escreval("Numero: ") 
 leia (num) 
 se (num^2 >= 225) entao 
 soma<-soma+num 
 fimse 
fimpara 
escreval ("Soma dos numeros: ",soma) 
fimalgoritmo 
 
algoritmo "exercicio 07" 
var 
i,num,par,impar: inteiro 
inicio 
i <-0 
par <- 0 
impar <- 0 
enquanto i<10 faca 
 escreval ("Numero: ") 
 leia (num) 
 se (num mod 2 =0) entao 
 par <- par +1 
 senao 
 impar <- impar + 1 
 fimse 
 i <- i + 1 
fimenquanto 
escreval ("Qntd de numeros PARES: ",par) 
escreval ("Qntd de numeros IMPARES: ",impar) 
fimalgoritmo 
 
 
algoritmo "exercicio 08" 
var 
i,n: inteiro 
h,soma: real 
inicio 
i <-1 
h<-1 
soma <- 0 
escreval ("Numero: ") 
leia (n) 
enquanto i<=n faca 
 se (i mod 2 =0) entao 
 h <- (-1) / i 
 senao 
 h <- 1/ i 
 fimse 
 soma <- soma + h 
 i <- i + 1 
fimenquanto 
escreva ("H: ",soma) 
fimalgoritmo 
 
algoritmo "exercicio 09" 
var 
i,a,b,x,y,mmc: inteiro 
inicio 
mmc<-1 
escreval ("Entre com 2 numeros: ") 
leia (a,b) 
para i de 2 ate a faca 
 repita 
 x<-1 
 y<-1 
 se (a mod i = 0) entao 
 a<-a\i 
 x<-i 
 fimse 
 se (b mod i = 0) entao 
 b<-b\i 
 y<-i 
 fimse 
 se (x=y) entao 
 mmc<-mmc*y 
 senao 
 mmc<-mmc*x*y 
 fimse 
 ate (a mod i <> 0)e(b mod i <> 0) 
fimpara 
escreval ("mdc: ",mmc) 
fimalgoritmo 
 
algoritmo "exercicio 10" 
var 
i,a,b,x,y,mdc: inteiro 
inicio 
mdc<-1 
escreval ("Entre com 2 numeros: ") 
leia (a,b) 
para i de 2 ate a faca 
 repita 
 x<-1 
 y<-1 
 se (a mod i = 0) entao 
 a<-a\i 
 x<-i 
 fimse 
 se (b mod i = 0) entao 
 b<-b\i 
 y<-i 
 fimse 
 se (x=y) entao 
 mdc<-mdc*y 
 fimse 
 ate (a mod i <> 0)e(b mod i <> 0) 
fimpara 
escreval ("mdc: ",mdc) 
fimalgoritmo 
 
algoritmo "exercicio 11" 
var 
num,i,cont,soma: inteiro 
inicio 
soma<-0 
para i de 1 ate 5 faca 
 escreval ("Entre com um numeros inteiro e positivo: ") 
 leia (num) 
 se (num mod 3 = 0) entao 
 soma<-soma+num 
 cont<-cont+1 
 fimse 
fimpara 
escreval ("A media dos numeros multiplos de 3 é: ",soma/cont) 
fimalgoritmo 
 
algoritmo "exercicio 12" 
var 
num,i,j: inteiro 
soma: real 
inicio 
soma<-0 
enquanto num <> -1 faca 
 escreval ("Entre com um numero diferente de -1: ") 
 leia (num) 
 escreval ("Numero digitado: ",num) 
 se (num mod 8 = 0) entao 
 i <- i + 1 
 fimse 
 se (num <> -1) entao 
 soma <- soma + num 
 j <- j + 1 
 fimse 
 escreval 
fimenquanto 
escreval ("Total de numero multiplos de 8: ",i) 
escreval ("Media de todos os numeros: ",soma/j) 
fimalgoritmo