Exemplos de Algoritmos em Português

Prévia do material em texto

Universidade Veiga de Almeida
Trabalho
de
Algoritmos
Matheus Penha de Lima
2020
Sequenciais
1)
algoritmo "Força g"
var
F, m, g : real
inicio
escreva ("entre com o valor da massa: ")
leia (m)
escreva ("entre com o valor da gravidade: ")
leia (g)
f<-m*g
escreva ("o valor da força gravitocional é",F," N")
fimalgoritmo
2)
algoritmo "temperatura"
var
tc, tk, tf : real
inicio
escreva ("entre com a temperatura em Celsius: ")
leia (tc)
tf<-32+((9*tc)/5)
tk<-tc+273.15
escreva ("A temperatura em Fahrenheit e Kelvin são respectivamente são",tf," F",tk," K")
fimalgoritmo
3)
algoritmo "Potência"
var
 pl, i, r : real
inicio
escreva ("entre com corrente em Ampéres: ")
leia (i)
escreva ("entre com resistência em Ohms: ")
leia (r)
pl<-(i*i)*r
escreva ("o valor da potència dissipada é",pl," watts")
fimalgoritmo
4)
algoritmo "Resistência Equivalente"
var
Req, R1, R2 : real
Inicio
escreva ("entre com o valor do primeiro resistor em Ohms: ")
leia (R1)
escreva ("entre com o valor do segundo resistor em Ohms: ")
leia (R2)
Req<-(R1*R2)/(R1+R2)
escreva ("O valor da resistência equivalente é",Req," Ohms")
fimalgoritmo
5)
algoritmo "Velocidade Escalar"
var
Vem, Vs, Vd : real
Inicio
escreva ("entre com o valor de subida em Km/h: ")
leia(Vs)
escreva ("entre co o valor de descida em Km/h: ")
leia (Vd)
Vem<-(2*Vs*Vd)/(Vs+Vd)
escreva ("O valor da velocidade escalar média é",Vem," Km/h")
fimalgoritmo
6)
algoritmo "Volume"
var
vol, l, c, p : real
inicio
escreva ("entre com o valor da largura em metros: ")
leia (l)
escreva ("entre com o valor do comprimento em metros: ")
leia (c)
escreva ("entre com o valor da profundidade em metros: ")
leia (p)
vol<-l*c*p
escreva ("O volume de solo a ser retirado é",vol," m³")
fimalgoritmo
7)
algoritmo "Corrente Total"
var
Ia, i, Ra, Rb : real
Inicio
escreva ("entre com o valor da corrente")
leia (i)
escreva ("entre com o valor do resistor A")
leia (Ra)
escreva ("entre com o valor do resistor B")
leia (Rb)
Ia<-i*(Rb/(Ra+Rb))
escreva ("O valor da corrente total é",Ia,"A")
fimalgoritmo
8)
algoritmo "Tensão Saída"
var
Us, Rb, Rc, Ue : real
Inicio
escreva ("entre com o valor do resistor de baixo: ")
leia (Rb)
escreva ("entre com o valor do resistor de cima: ")
leia (Rc)
escreva ("entre com o valor da tensão de entrada: ")
leia (Ue)
Us<-(Rb/(Rb+Rc))*Ue
escreva ("o valor da tensão de saída é",Us,"")
fimalgoritmo
Condicionais
1)
algoritmo "Esteira 1"
var
e1, e2 : real
inicio
escreva ("entre com o valor da primeira esteira em Km/h: ")
leia (e1)
escreva ("entre com o valor da segunda esteira em Km/h: ")
leia (e2)
se (e1>e2) entao
 escreva ("a primeira esteira é + rápida")
senao
 se (e1<e2) entao
 escreva ("a segunda esteira é + rápida")
 senao
 se (e1=e2) entao
 escreva ("a primeira esteira é = a segunda")
 fimse
 fimse
fimse
fimalgoritmo
2)
algoritmo "Esteira 2"
var
e1, e2 : real
inicio
escreva ("entre com o valor da primeira esteira em Km/h: ")
leia (e1)
escreva ("entre com o valor da segunda esteira em Km/h: ")
leia (e2)
se (e1>e2) entao
 escreva ("a segunda esteira é + devagar")
senao
 se (e1<e2) entao
 escreva ("a primeira esteira é + devagar")
 senao
 se (e1=e2) entao
 escreva ("a primeira esteira é = a segunda")
 fimse
 fimse
fimse
3)
algoritmo "Petróleo e Gás"
var
c : caractere
inicio
escreva ("entre com o nome do continente: ")
leia (C)
se (C = "america do norte") entao
 escreva ("O percentual de petróleo e gás natural respectivamente são 3,5% e 5,0%")
senao
 se (c = "america latina") entao
 escreva ("O percentual de petróleo e gás natural respectivamente são 13,0% e 6,0%")
 senao
 se (c = "europa") entao
 escreva ("O percentual de petróleo e gás natural respectivamente são 2,0% e 3,6%")
 senao
 se (c = "ex-uniao sovietica") entao
 escreva ("O percentual de petróleo e gás natural respectivamente são 6,3% e 38,7%")
 senao
 se (c = "oriente medio") entao
 escreva ("O percentual de petróleo e gás natural respectivamente são 64,0% e 33,0%")
 senao
 se (c = "africa") entao
 escreva ("O percentual de petróleo e gás natural respectivamente são 7,2% e 7,7%")
 senao
 
 se (C = "asia") ou (c = "oceania") entao
 escreva ("O percentual de petróleo e gás natural respectivamente são 4,0% e 6,0%")
 fimse
 fimse
 fimse
 fimse
 fimse
 fimse
fimse
fimalgoritmo
	
4)
algoritmo "Ângulos"
var
a:real
inicio
escreva ("entre com o valor do ângulo entre 0 e 360 em graus: ")
leia (a)
se (a>0) e (a<90) entao
 escreva("O ângulo ", a , " pertence ao primeiro quadrante")
senao
 se (a>90) e (a<180) entao
 escreva("O ângulo", a , " pertence ao segundo quadrante")
 senao
 se (a>180) e (a<270) entao
 escreva("O ângulo", a , " pertence ao terceiro quadrante")
 senao
 se (a>270) e (a<360) entao
 escreva("O ângulo", a , " pertence ao quarto quadrante")
 senao
 se (a=0) ou (a=90) ou (a=180) ou (a=270) ou (a=360)entao
 escreva("O ângulo", a , " pertence ao eixo")
 senao
 escreva("o angulo não esta entre os valores de 0 e 360 graus")
 fimse
 fimse
 fimse
 fimse
fimse
fimalgoritmo
5)
algoritmo "Aplicação Concreto"
var
a : caractere
inicio
escreva ("entre com a aplicação desejada: ")
leia (a)
se (a = "base para fundações de pisos") entao
 escreva ("o traço de massa é: 1 saco de cimento, 8 1/2 latas de areia, 11 1/2 latas de brita, 2 latas de água")
senao
 se (a = "fundações") entao
 escreva ("o traço de massa é: 1 saco de cimento, 5 latas de areia, 6 1/2 latas de brita, 1 1/2 latas de água")
 senao
 se (a = "pilares, vigas, vergas e lajes") entao
 escreva ("o traço de massa é: 1 saco de cimento, 4 latas de areia, 5 1/2 latas de brita, 1 1/4 latas de água")
 senao
 fimse
 fimse
fimse
fimalgoritmo
6)
algoritmo "Plano Cartesiano"
var
x, y : real
inicio
escreva ("entre com a primeira coordenada: ")
leia (x)
escreva ("entre com a segunda coordenada: ")
leia (y)
se (x > 0) e (y > 0) entao
 escreva ("as coordenadas pertencem ao 1º quadrante")
senao
 se (x < 0) e (y > 0) entao
 escreva ("as coordenadas pertencem ao 2º quadrante")
 senao
 se (x < 0) e (y < 0) entao
 escreva ("as coordenadas pertencem ao 3º quadrante")
 senao
 se (x > 0) e (y < 0) entao
 escreva ("as coordenadas pertencem ao 4º quadrante")
 senao
 fimse
 fimse
 fimse
fimse
fimalgoritmo
7)
algoritmo "Ph"
var
ph : real
inicio
escreva ("entre com o ph da substância: ")
leia (ph)
se (ph >= 0) e (ph < 7) entao
 escreva ("a substância é ácida")
senao
 se (ph = 7) entao
 escreva ("a substância é neutra")
 senao
 se (ph > 7) e (ph <= 14) entao
 escreva ("a substância é alcalina")
 senao
 fimse
 fimse
fimse
fimalgoritmo