LP1 (lista 04) - exercicios resolvidos

Prévia do material em texto

01. A) Verdadeiro 
B) Falso 
C) Verdadeiro 
D) Verdadeiro 
E) Verdadeiro 
F) Falso 
G) Falso 
H) Verdadeiro 
I) Falso 
J) Falso 
02. A) x <- (A+B)*D 
B) x <- (A+B)/D*(C+D) 
C) x <- (A+2)*(B-2) 
D) x <- A – B 
E) x <- A + B 
F) x <- A + D 
G) x <- (A+D) /2 
H) x <- (A+D)/2 
 
03. a) algoritmo "3.a" 
var 
a,b: inteiro 
inicio 
escreval ("entre com 2 valores: ") 
leia (a,b) 
se (a>b) entao 
 escreval ("resultado: ",a-b) 
senao 
 escreval ("resultado: ",b-a) 
fimse 
fimalgoritmo 
 
 
 
b) algoritmo "3.b" 
var 
num: inteiro 
inicio 
escreval ("entre com 1 numero: ") 
leia (num) 
se (num<0) entao 
 escreval ("numero positivo: ",num*(-1)) 
senao 
 escreval ("numero positivo: ",num) 
fimse 
fimalgoritmo 
 
c) algoritmo "3.c" 
var 
n1,n2,n3,n4,med: real 
inicio 
escreval ("entre com a nota dos 4 bimestres: ") 
leia (n1,n2,n3,n4) 
med <- (n1+n2+n3+n4)/4 
se (med>=5) entao 
 escreval ("Aprovado com: ",med) 
senao 
 escreval ("Reprovado com: ",med) 
fimse 
fimalgoritmo 
 
d) algoritmo "3.d" 
var 
n1,n2,n3,n4,med,ex: real 
inicio 
escreval ("entre com a nota dos 4 bimestres: ") 
leia (n1,n2,n3,n4) 
med <- (n1+n2+n3+n4)/4 
se (med>=7) entao 
 escreval ("Aprovado") 
senao 
 escreval ("entre com a nota do seu exame: ") 
 leia (ex) 
 med<-(med+ex)/2 
 se (med >= 5) entao 
 escreval ("Aprovado em exame") 
 senao 
 escreval ("Reprovado") 
 fimse 
fimse 
fimalgoritmo 
 
e) algoritmo "3.e" 
var 
a,b,c,del,x1,x2: real 
inicio 
escreval ("entre com os cocientes da equacao do 2 grau: ") 
leia (a,b,c) 
se (a=0)ou(b=0)ou(c=0) entao 
 escreval ("É uma equecao incompleta") 
senao 
 del <- (b^2)-4*a*c 
 se (del<0) entao 
 escreval ("nao possui raizes reais") 
 senao 
 se (del>0) entao 
 x1 <- (-b+raizQ(del))/2*a 
 x1 <- (-b-raizQ(del))/2*a 
 escreval ("x1: ",x1) 
 escreval ("x2: ",x2) 
 senao 
 x1 <- (-b+raizQ(del))/2*a 
 escreval ("x1=x2=",x1) 
 fimse 
 fimse 
fimse 
fimalgoritmo 
 
f) algoritmo "3.f" 
var 
a,b,c: real 
inicio 
escreval ("entre com 3 valores: ") 
leia (a,b,c) 
se (a<b)e(a<c) entao 
 se (b<c) entao 
 escreval (a,b,c) 
 senao 
 escreval (a,c,b) 
 fimse 
fimse 
se (b<a)e(b<c) entao 
 se (a<c) entao 
 escreval (b,a,c) 
 senao 
 escreval (b,c,a) 
 fimse 
fimse 
se (c<b)e(c<a) entao 
 se (a<b) entao 
 escreval (c,a,b) 
 senao 
 escreval (c,b,a) 
 fimse 
fimse 
fimalgoritmo 
 
g) algoritmo "3.g" 
var 
a,b,c,d: inteiro 
inicio 
escreval ("entre com 4 valores: ") 
leia (a,b,c,d) 
se (a mod 6 = 0) entao 
 escreval(a," e divisivel por 2 e 3!") 
fimse 
se (b mod 6 = 0) entao 
 escreval(b," e divisivel por 2 e 3!") 
fimse 
se (c mod 6 = 0) entao 
 escreval(c," e divisivel por 2 e 3!") 
fimse 
se (d mod 6 = 0) entao 
 escreval(d," e divisivel por 2 e 3!") 
fimse 
fimalgoritmo 
 
 
h) algoritmo "3.h" 
var 
a,b,c,d: inteiro 
inicio 
escreval ("entre com 4 valores: ") 
leia (a,b,c,d) 
se (a mod 2 = 0) ou (a mod 3 = 0) entao 
 escreval(a," e divisivel por 2 ou por 3!") 
fimse 
se (b mod 2 = 0) ou (b mod 3 = 0) entao 
 escreval(b," e divisivel por 2 ou por 3!") 
fimse 
se (c mod 2 = 0) ou (c mod 3 = 0) entao 
 escreval(c," e divisivel por 2 ou por 3!") 
fimse 
se (d mod 2 = 0) ou (d mod 3 = 0) entao 
 escreval(d," e divisivel por 2 ou por 3!") 
fimse 
fimalgoritmo 
 
i) algoritmo "3.i" 
var 
a,b,c,d,f,x,y: inteiro 
inicio 
escreval ("entre com 5 valores: ") 
leia (a,b,c,d,f) 
x <- -10000 
y <- 10000 
se (a>x) entao 
 x<-a 
fimse 
se (a<y) entao 
 y<-a 
fimse 
se (b>x) entao 
 x<-b 
fimse 
se (b<y) entao 
 y<-b 
fimse 
se (c>x) entao 
 x<-c 
fimse 
se (a<y) entao 
 y<-c 
fimse 
se (d>x) entao 
 x<-d 
fimse 
se (a<y) entao 
 y<-d 
fimse 
se (f>x) entao 
 x<-f 
fimse 
se (a<y) entao 
 y<-f 
fimse 
escreval ("menor: ",y) 
escreval ("maior: ",x) 
fimalgoritmo 
 
j) algoritmo "3.j" 
var 
num: inteiro 
inicio 
escreval ("entre com 1 valor: ") 
leia(num) 
se (num mod 2 =0) entao 
 escreval (num," é par") 
senao 
 escreval (num," é ímpar") 
fimse 
fimalgoritmo 
 
k) algoritmo "3.k" 
var 
num: inteiro 
inicio 
escreval ("entre com 1 valor: ") 
leia(num) 
se (num <=9)e(num>0) entao 
 escreval ("o numero esta na faixa permitida") 
senao 
 escreval ("o numero esta fora da faixa permitida") 
fimse 
fimalgoritmo 
 
l) algoritmo "3.L" 
var 
num: inteiro 
inicio 
escreval ("entre com 1 valor: ") 
leia(num) 
se nao (num > 3) entao 
 escreval ("o numero ",num," nao é maior que 3") 
fimse 
fimalgoritmo 
 
m) algoritmo "3.m" 
var 
nome,sexo: caracter 
inicio 
escreval ("entre com um nome e um sexo: ") 
leia (nome,sexo) 
se (sexo= "masculino")entao 
 escreva ("lho.Sr.",nome) 
 senao 
 escreva("lha.Sra",nome) 
 fimse 
fimalgoritmo 
 
 
01.A) algoritmo "01" 
var 
i:inteiro 
inicio 
Para i de 15 ate 200 faca 
 escreval (i^2) 
 fimpara 
fimalgoritmo 
 
 
 
 
 
 
B) algoritmo "02" 
var 
num,i:inteiro 
inicio 
escreva("entre um valor para a tabuada:") 
leia(num) 
para i de 1 ate 11 faca 
 escreval (num,"x",i,num*i) 
 fimpara 
fimalgoritmo 
 
C) algoritmo "03" 
var 
i, soma: inteiro 
inicio 
para i de 1 ate 100 faca 
 soma <- soma +i 
 fimpara 
 escreval ("soma:",soma) 
fimalgoritmo 
 
D) algoritmo "04" 
var 
i, soma: inteiro 
inicio 
para i de 2 ate 500 passo 2 faca 
 soma <- soma +i 
 fimpara 
 escreval ("soma dos pares:",soma) 
fimalgoritmo 
 
E) algoritmo "05" 
var 
i: inteiro 
inicio 
para i de 0 ate 20 faca 
 se (i mod 2 <> 0) entao 
 escreva (i) 
escreval 
fimse 
fimpara 
fimalgoritmo 
 
F) algoritmo "06" 
var 
i: inteiro 
inicio 
para i de 1 ate 200 faca 
 se (i mod 4=0) entao 
 escreva ("numero e divisil por 4:",i) 
escreval 
fimse 
fimpara 
fimalgoritmo 
 
 
 
 
 
G) algoritmo "07" 
var 
i: inteiro 
inicio 
para i de 0 ate 15 faca 
 escreva (3^i) 
 escreval 
 fimpara 
fimalgoritmo 
 
H) algoritmo "08" 
var 
B,Ex:inteiro 
inicio 
escreva("entre com a base e o expoente") 
leia (B,Ex) 
escreva("o resultado e:",B^Ex) 
fimalgoritmo 
 
I) algoritmo "09" 
var 
Fib,i,ant:inteiro 
inicio 
fib <- 1 
para i de 0 ate 15 faca 
ant<- fib- ant 
escreva (fib) 
fib <- fib + ant 
fimpara 
 escreval 
fimalgoritmo 
 
J) algoritmo "10" 
var 
i: inteiro 
j:real 
inicio 
para i de 10 ate 100 faca 
j <- (9* i/ 5) + 32 
 escreval ("elsios:",i," fahrenheit:",j) 
 fimpara 
fimalgoritmo 
K) algoritmo "11" 
var 
soma,a: real 
i:inteiro 
inicio 
a <- 2 
para i de 1 ate 64 faca 
soma <- soma + a^i 
fimpara 
 escreval ("soma",soma) 
fimalgoritmo 
 
L) algoritmo "12" 
var 
i,j,num,soma,fat: inteiro 
inicio 
escreval ("entre com 15 valores: ") 
para i de 1 ate 15 faca 
 leia (num) 
 fat <- 1 
 para j de 1 ate num faca 
 fat<- fat*j 
 fimpara 
 soma<- soma + fat 
fimpara 
escreval("soma",soma) 
fimalgoritmo 
 
M) algoritmo "13" 
var 
num, soma, md: real 
i: inteiro 
inicio 
escreva ("entre com 10 numeros: ") 
para i de 1 ate 10 faca 
 leia (num) 
 soma <- soma + num 
fimpara 
md <- soma /10 
escreval ("soma: ",soma) 
escreval ("media: ",md) 
fimalgoritmo 
 
N) algoritmo "14" 
var 
num, soma, md: real 
i: inteiro 
inicio 
escreva ("entre com valores positivos: ") 
enquanto (num>=0) faca 
 soma <- soma + num 
 leia (num) 
 i <- i + 1 
fimenquanto 
md <- soma / i 
escreval ("soma: ",soma) 
escreval ("quantidade de numero: ",i-1) 
escreval ("media: ",md) 
fimalgoritmo 
 
O) algoritmo "15" 
var 
i,fat,j: inteiro 
inicio 
para i de 1 ate 10 faca 
 se (i mod 2 <> 0) entao 
 fat <- 1 
 para j de 1 ate i faca 
 fat <- fat*j 
 fimpara 
 escreval (fat) 
 fimse 
fimpara 
fimalgoritmo 
 
P) algoritmo "16" 
var 
i,cont: inteiro 
med, soma: real 
inicio 
para i de 50 ate 70 faca 
 soma <- soma + i 
 cont <- cont +1 
fimpara 
med <- soma / cont 
escreval ("soma: ",soma) 
escreval ("media: ",med) 
fimalgoritmo 
 
Q) algoritmo "17" 
var 
cond,nome: caracter 
l,c,s: inteiro 
inicio 
enquanto (cond <> "nao") faca 
escreval ("entre com um nome (quarto, banheiro..): ") 
leia (nome) 
escreval ("entre com a largura e o comprimento: ") 
leia (l,c) 
escreva ("a area é: ",l*c) 
s<-s+l*c 
escreval 
escreval ("deseja continuar?? ") 
leia (cond) 
fimenquanto 
escreval ("a area total do terreno: ",s) 
fimalgoritmo 
 
R) algoritmo "17" 
var 
x,y,num: inteiro 
inicio 
x<- 10000 
y<- -10000 
repita 
 escreval ("entre com um numero positivo ") 
 leia (num) 
 se (num>0)entao 
 se (num>y)entao 
 y<-num 
 fimse 
 se (num<x)entao 
 x<-num 
 fimse 
 fimse 
ate (num <0) 
escreval ("maior: ",y) 
escreval ("menor: ",x) 
fimalgoritmo 
 
S) algoritmo "17" 
var 
a,b,i,num: real 
inicio 
escreval ("entre com 2 valores: ") 
leia (a,b) 
num <- a 
enquanto (num>=0) faca 
num <- num - b 
i <- i + 1 
fimenquanto 
escreval ("o valor inteiro é: ",i-1) 
fimalgoritmo