Buscar

Lista de algoritmos

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

Você viu 3, do total de 4 páginas

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

Prévia do material em texto

algoritmo "ímpar ou par"
var
a,b:inteiro
inicio
escreval("Dgite dois valore seguidos por ENTER.")
Leia (a,b)
se (a%2=0) entao
 se (b%2=0) entao
 escreval("Os dois são pares.")
 senao
 escreval("O primeiro é par e o segundo é impar.")
 fimse
senao
 se (b%2=0) entao
 escreval("O primeiro é impar e o segundo é par.")
 senao
 escreval("Os dois são Impares")
 fimse
fimse
fimalgoritmo
algoritmo "Media ponderada ou aritmética"
var
a,b,c:Real
O:caractere
inicio
escreval("Digite as notas separadas por ENTER")
Leia (a,b,c)
escreval("Escolha uma opção.")
escreval("1-Média Aritmética")
escreval("2-Média ponderada(3,3,4)")
Leia (O)
se (O="1") entao
 escreval("A média aritmética é ",(a+b+c)/3)
senao
 escreval("A média ponderada(3,3,4) é",(3*a+3*b+4*c)/10)
fimse
fimalgoritmo
algoritmo "número de divisores"
// Seção de Declarações 
var
 a,d,n,r:inteiro
inicio
// Seção de Comandos 
escreval("Digite um número.")
Leia (A)
d<-A
enquanto d>=2 faca
R<-a%(d)
d<-(d-1)
se r=0 entao
n<-n+1
fimse
fimenquanto
escreval("O número de divisores de ",a," é",n+1)
fimalgoritmo
Algoritmo Fatorial
algoritmo "fatorial"
var
n,a,fat:inteiro
inicio
fat<-1
escreval("Fatorial de quanto.")
leia (n)
para a de 1 ate n faca
Fat<-Fat*a
fimpara
escreval("Fatorial de",n," é:",fat)
fimalgoritmo
Algoritmo "IMC"
var
M,H,IMC:real
inicio
// Seção de Comandos
escreva("Qual a sua massa?")
Leia (m)
escreva("Qual a sua altura?")
Leia (h)
IMC<-m/(h*h)
se IMC<18.5 entao
 escreva ("Abaixo do peso.")
senao
 se IMC<25 entao
 escreva ("Peso normal.")
 senao
 se IMC<30 entao
 escreva ("Sobre peso.")
 senao
 se IMC<35 entao
 escreva ("Obeso leve.")
 senao
 se IMC<40 entao
 escreva ("Obeso moderado.")
 senao
 se IMC>=40 entao
 escreva("Obeso mórbito.")
 fimse
 fimse
 fimse
 fimse
 fimse
fimse
fimalgoritmo
Algoritmo número de divisores
var
 a,d,n,r:inteiro
inicio
// Seção de Comandos 
escreval("Digite um número.")
Leia (A)
d<-A
enquanto d>=2 faca
R<-a%(d)
d<-(d-1)
se r=0 entao
n<-n+1
fimse
fimenquanto
escreval("O número de divisores de ",a," é",n+1)
fimalgoritmo
algoritmo "maior e menor"
var
T1,T2,T3 : numerico
menor,maior :numerico
inicio
escreval("Entre com os valores das temperaturas separados por ENTER")
Leia (T1,T2,T3)
se T1>T2 entao
 se T2>T3 entao
 menor<-T3
 maior<-T1
 senao
 menor<-T2
 se T1>T3 entao
 maior<-T1
 senao
 n<-T1
 maior<-T3
 fimse
 fimse
senao
 se T2<T3 entao
 menor<-T1
 maior<-T3
 senao
 maior<-T2
 se T1>T3 entao
 menor<-T3
 senao
 menor<-T1
 fimse
 fimse
fimse
escreval("A menor foi de",menor," e a maior de",maior)
fimalgoritmo
algoritmo "Equação do segundo grau"
var
x1,x2,a,b,c,delta: real
inicio
// Seção de Comandos
Escreval ("Escreva os coeficientes da equação.")
escreval("Coeficiente de x².")
Leia (a)
escreval("Coeficiente de x.")
Leia (B)
escreval("Termo independente.")
Leia (c)
delta<-(b*b-(4*a*c))
se delta<0 entao
 escreval ("As raízes não são reais")
senao
 x1<-(-b+delta^(1/2))/2*a
 x2<-(-b-delta^(1/2))/2*a
 escreval("As raízes são ",x1," e ",x2)
fimse
fimalgoritmo
algoritmo "maior e menor"
var
Maior,Menor,a,b,c :numerico
inicio
Escreval("Digite três números seguidos por ENTER")
Leia (a,b,c)
//Calculo do maior
se (a<>b) e (a<>c) e (b<>C) entao
 se (a>b) e (a>c) entao
 maior<-a
 se b>c entao
 Menor<-c
 senao
 Menor<-b
 fimse
 fimse
 se (b>a) e (b>c) entao
 maior<-b
 se a>c entao
 menor<-c
 senao
 menor<-a
 fimse
 fimse
 se (c>a) e (c>b) entao
 maior<-c
 se a>b entao
 menor<-b
 senao
 menor<-a
 fimse
 fimse
 Escreva ("O maior é ",maior," e o menor é ",Menor)
senao
 escreva ("Não pode haver números repetidos.")
fimse
fimalgoritmo

Outros materiais