Documento sem nome (1)

Prévia do material em texto

Algoritmos que conseguimos resolver
algoritmo "28"
inicio
escreva("e preciso fazer todos os algoritmos para aprender")
fimalgoritmo
algoritmo "30"
var:produto:real
produto<-28*43
escreva("o produto entre os dois e:",produto)
fimalgoritmo
algoritmo "31"
var ma:real
inicio
ma<-(8+9+7)/3)
escreva("aritmética e:",ma)
fimalgoritmo
algoritmo "32"
var : num:inteiro
inicio
escreva("entre com um numero")
leia(num)
escreva("numero:",num)
fimalgoritmo
algoritmo "33"
var:num1,num2:real
inicio
escreva("entre com um numero")
leia(num1)
escreva("entre com outro numero")
leia(num2)
escreva("numero 1:", num1)
escreva("numero 2:", num2)
Fimalgoritmo
algoritmo "34"
var num,suc,ant:inteiro
inicio
escreva("digite um numero")
leia(num)
ant<-(num -1)
suc<-(num+1)
escreva("o antecesso de ant,ant)
fimalgoritmo
algoritmo "36"
var :num1,num2,soma:real
inicio
escreva("entre com um numero:")
leia(num1)
escreva("entre com outro numero:")
leia(num2)
soma<-num1+num2
fimalgoritmo
algoritmo "37"
var:logaritmo,num:real
inicio
escreva("entre com logaritmo:")
leia(num)
logaritmo(num\10)
escreva("logaritmo:" ,logaritmo,"\n")
escreva("\n")
fimalgoritmo
algoritmo "38"
var:num,terca:real
inicio
escreva("digite um numero:")
leia(num)
terca(num/3)
escreva("a terça parte é:",terca,"\n")
fimalgoritmo
algoritmo "39"
var:valor1,valor2,media:real
inicio
escreva("digite dois valores:")
leia(valor1)
leia(valor2)
media<-(valor1+valor2)/2
escreva("a média aritmetica é:",media, "\n")
fimalgoritmo
algoritmo "40"
var quoc,rest,val1,val2: inteiro
inicio
escreva("digite o dividendo")
leia(val1)
escreva("digite o divisor")
leia(val2)
quoc<-val1 div val2)
rest<-(val1 % val2)
escreva("o dividendo:", val1)
escreva("o divisor:", val2)
escreva("o quociente:", quoc)
escreva("o resto:", rest)
fimalgoritmo
algoritmo "41"
var : a,b,c,d,mp:real
inicio:
escreva("entre com 1 numero :")
leia(a)
escreva("entre com 2 numero :")
leia(b)
escreva("entre com 3 numero:")
leia(c)
escreva("entre com 4 numero:")
leia(d)
mp<-(a*1+b*2+c*3+d+4)/10
escreva("media poderada e:",mp)
escreva("/n")
fimalgoritmo
algoritmo "42"
var angulo,rang:real
inicio
escreva("digite angulo em graus")
leia(angulo)
rang<-(angulo*3.14159/180)
escreva("o seno :", rang)
escreva("o co-seno:", rang)
escreva("o tangente:", rang)
escreva("o co-secante:",1/rang)
escreva("o secante:",1/rang)
escreva("o contangente:",1/rang)
fimalgoritmo
algoritmo "43"
var:num,base,logoritmo:real
inicio
escreva("entre com logoritmo:")
leia(num)
escreva("entre com a base:")
leia(base)
logoritmo(num/base)
escreva("logoritmo deb",num,"bna based",base,"be:b",logoritmo,"\n")
escreva("\n")
fimalgoritmo
algoritmo "44"
var:num,base,logoritmo:real
inicio
escreva("entre com logoritmo:")
leia(num)
escreva("entre com a base:")
leia(base)
logoritmo(num/base)
escreva("logoritmo deb",num,"bna based",base,"be:b",logoritmo,"\n")
escreva("\n")
fimalgoritmo
algoritmo "45"
var :num,quad,raizquad:real
inicio
escreva("digite numero:")
leia(num)
quad<-(num*2)
raizquad<-raiz(num)
escreva("numero",num,"/n")
escreva("quadrado",quad,"/n")
escreva("raiz quadrada",raizquad,"/n")
escreva("\n")
fimalgoritmo
algoritmo "46"
var: saldo,nsaldo:real
inicio
escreva("digite saldo:")
leia(saldo)
nsaldo<-saldo*1.01
escreva("novo saldo",nsaldo)
escreva("\n")
fimalgoritmo
algoritmo "47"
var num,num1,c,u,g:inteiro
inicio
escreva("digite um número de 3 digitos")
leia(num)
c<-(num div 100)
u<-(num%100 div 10)
g<-(num%10)
num1(<-g*100+d*10+c)
escreva("numero:", num)
escreva("invertido:", num1)
fimalgoritmo
algoritmo "48"
var sm,qtdade,preco,vp,vd:real
inicio
escreva("entre com o salario minimo")
leia(sm)
escreva("entre com a quantidade de quilowatt")
leia(qtdade)
preco<-sm/700
vp<-preco*qtdade
vd<-vp*0.9
escreval("preço do quilowatt:", preco, "valor a ser pago: ",vp)
fimalgoritmo
algoritmo "50"
var perimetro, area, diagonal, base, altura:real
inicio
escreva("digite a base")
leia(base)
escreva("digite altura")
leia(altura)
perimetro<-2*(base+altura)
area<-base*altura
diagonal<-bass**2+altura**2
escreva ("perímetro:", perimetro)
escreva("área:", area)
escreva("diagonal:", diagonal)
fimalgoritmo
algoritmo "51"
var raio,perimetro,area:real
inicio
escreva ("digite raio")
leia(raio)
perimetro<-2* pi *raio
area<- pi * raio **2
escreva("perimetro:", perimetro)
escreva("área:", area)
fimalgoritmo
algoritmo "52"
var lado,perimetro,diagonal,area: real
inicio
escreva("digite o lado do quadrado")
leia(lado)
perimetro<-4*lado
area<-lado**2
diagonal<-lado*2
escreva("perímetro:", perimetro)
escreva("área:", area)
escreva("diagonal:", diagonal)
fimalgoritmo
algoritmo "54"
var a,b:real
inicio
escreva("entre com a base")
leia(a)
escreva("entre a altura do um triângulo")
leia(b)
escreva("area=",(a*b)/2)
fimalgoritmo
algoritmo "55"
var diag,diage,area:real
inicio
escreva("medida da diagonal maior ")
leia(diag)
escreva("medida da diagonal menor")
leia(diage)
area<-(diag*diage/2)
escreva("área:", area)
fimalgoritmo
algoritmo "56"
var nome:caractere
var idade:inteiro
inicio
escreva("digite nome")
leia(nome)
escreva("digite idade")
leia(idade)
escreva("nome:", nome)
escreva("idade:", idade)
fimalgoritmo
algoritmo "59"
var a,b,c:real
inicio
escreva("entrar com um cateto")
leia(a)
escreva ("entra com dois cateto")
leia(b)
c<-(b**2+a**2)
escreva("a hipotenusa é:",c)
fimalgoritmo
algoritmo "61"
var quinto,razao,termo:inteiro
inicio
escreva("entre com o 1° termo")
leia(termo)
escreva("entre com a razão")
leia(razao)
quinto<-termo*razao ^4
escreva("no quinto termo é:", quinto)
fimalgoritmo
algoritmo "62"
var preco,npreco:real
inicio
escreva("digite o valor do produto")
leia(preco)
npreco<-preco*0.91
escreva("novo preço com desconto é:", npreco)
fimalgoritmo
algoritmo "63"
var vha,pd,td,sb,sl:real
var na:inteiro
inicio
escreva ("horas trabalhadas")
leia(na)
escreva("valor da hora-aula")
leia(vha)
escreva("percentual de desconto")
leia(pd)
sb<-na*vha
td<-(pd/100)*sb)
sl<-sb-td
escreva("salario liquido:", sl)
fimalgoritmo
algoritmo "64"
var f,c: real
inicio
escreva("digite o valor da temperatura em graus centígrados")
leia(c)
f<-(9*c+160/5)
escreva("o valor da temperatura em graus fahrenheit é:",f)
fimalgoritmo
algoritmo "65"
var volume,altura,raio:real
inicio
escreva("digite altura da lata")
leia(altura)
escreva("digire o raio da lata")
leia(raio)
volume<-3.14159*raio**2*altura
escreva("o volume da lata é:", volume)
fimalgoritmo
algoritmo "67"
var prest,valor, taxa:real
var:tempo:inteiro
inicio
escreva("digite o valor da prestação")
leia(valor)
escreva ("digite a taxa")
leia(taxa)
escreva("digite numero de meses")
leia(tempo)
prest<-(valor+(valor*(taxa/100)*tempo))
escreva("o valor da prestação em atraso é:",prest)
fimalgoritmo
algoritmo "71"
var hora,minuto,sminuto:inteiro
inicio
escreva("entre com a hora atual")
leia(hora)
escreva("entre com minutos")
leia(minuto)
sminuto<-hora*60+minuto
escreva("se passaram: ",sminuto, "minutos")
fimalgoritmo
algoritmo "72"
var deposito,taxa,valor, total:real
inicio
escreva("entre com deposito")
leia(deposito)
escreva("entre com taxa e juros")
leia(taxa)
valor<-deposito*taxa/100
total<-deposito+valor
escreval("rendimentos: ",valor, "Total: ", total)
fimalgoritmo
algoritmo "74"
var salmin,salpe, num:real
inicio
escreva("entre com salario mínimo")
leia(salmin)
escreva("entre com salario da pessoa")
leia(salpe)
num<-salpe/salmin
escreva("a pessoa ganha ",num, "salarios míninos")
fimalgoritmo
algoritmo "83"
var num,inver,abso:real
inicio
escreva("digite numero")
leia(num)
se(num>0)entao
(inver<-1/num)
escreva("inverso: ",inver)
senao
abso<-num * -1
# ou abso<-abs(num)
escreva("absoluto:", abso)
fimse
fimalgoritmo
algoritmo "85"
var a,b,c,max:real
inicio
escreva ("digite numero")
leia(a)
escreva("digite 2 numero")
leia(b)
escreva("digite 3 numero")
leia(c)
se(a>b)entao
se(a>c) entao
{max<- a}
senao
{max<-c}
senao
se(b>c)entao
{max<-b}
senao
{max<-c}
escreva("max")
fimse
fimse
fimse
fimalgoritmo
algoritmo "86"
var num:real
inicio
escreva("digite numero")
leia(num)
se(num>0)entao
escreva("positivo")senao
fimse
se(num<0)entao
escreva("negativo")
senao
escreva("nulo")
fimse
fimalgoritmo
algoritmo "87"
var res:caractere
inicio
escreva("qual capital do brasil")
leia(res)
se(res="Brasilia") entao
escreva("parabens")
senao
fimse
se(res="Brasilia") entao
escreva("certo, mas atenção para a grafia: Brasília")
senao
escreva("errado! estude mais!")
fimse
fimalgoritmo
algoritmo "90"
var num: real
inicio
escreva("digite número")
leia(num)
se(num >20) entao
escreva("número ")
fimse
fimalgoritmo
algoritmo "91"
var :v1,v2,soma:real
inicio
escreva("digite um numero")
leia(v1)
escreva("digite dois numero")
leia(v2)
soma<-v1+v2
se(soma>10)entao
escreva("soma é:", soma)
fimse
fimalgoritmo
algoritmo "92"
var v1, v2, soma:real
inicio
escreva("digite um numero")
leia(v1)
escreva("digite dois numero")
leia(v2)
soma <- v1 + v2
se(soma>20)entao
escreva("soma :", soma+8)
senao
escreva("soma :", soma-5)
fimse
fimalgoritmo
algoritmo "93"
var v1:real
inicio
escreva("digite um numero")
leia(v1)
se(v1>0)entao
escreva("raiz é:", v1)
fimse
senao
se(v1<0)entao
escreva("quadrado é:",v1**2)
fimse
fimalgoritmo
algoritmo "94"
var v1:inteiro
inicio
escreva("digite numero")
leia(v1)
se(v1%3==0)entao
escreva("multiplo de 3")
senao
escreva("não e multiplo de 3")
fimse
fimalgoritmo
algoritmo "95"
var v1:inteiro
inicio
escreva("digite um numero")
leia(v1)
se(v1%5==0)entao
escreva(" divisivel por 5")
senao
escreva("não divisivel por 5")
fimse
fimalgoritmo
Professor,esses foram os algoritmos que conseguimos fazer,faltou alguns,devido o acesso
ao visulg,e os celulares de dois integrantes NN instalou o pseudocode,qualquer dúvida,fale
conosco!