Baixe o app para aproveitar ainda mais
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
Compartilhar