trabalho resolvido de algoritmos

Prévia do material em texto

1. 
algoritmo "soma quatro números" 
var nro1, nro2, nro3, nro4, soma:inteiro 
inicio 
escreval("Primeiro número: ") 
leia(nro1) 
escreval("Segundo número: ") 
leia(nro2) 
escreval("Terceiro número: ") 
leia(nro3) 
escreval("Quarto número: ") 
leia(nro4) 
soma <- nro1+nro2+nro3+nro4 
escreval("A soma é: ",soma) 
fimalgoritmo 
 
 
 2. 
algoritmo "média de 3 notas" 
var nota1, nota2, nota3, media:real 
inicio 
escreval("Primeira nota: ") 
leia(nota1) 
escreval("Segunda nota: ") 
leia(nota2) 
escreval("Terceira nota: ") 
leia(nota3) 
media <- (nota1+nota2+nota3)/3 
escreval("A média das notas é: ",media) 
fimalgoritmo 
 
 
 
 
3. 
algoritmo "aumento do salário" 
var salario, novo_salario:real 
inicio 
escreval("Salário atual: ") 
leia(salario) 
novo_salario <- salario * 1.25 
escreval("O novo salário é: ",novo_salario) 
fimalgoritmo 
 
 
 
 
4. 
algoritmo "hipotenusa" 
var cateto_a, cateto_b, hipotenusa:real 
inicio 
escreval("Cateto A: ") 
leia(cateto_a) 
escreval("Cateto B: ") 
leia(cateto_b) 
hipotenusa <- raizq(cateto_a*cateto_a + cateto_b*cateto_b) 
escreval("A hipotenusa é: ",hipotenusa) 
fimalgoritmo 
 
 
5. 
algoritmo "área do triângulo" 
var base, altura, area_triangulo:real 
inicio 
escreval("Base: ") 
leia(base) 
escreval("Altura: ") 
leia(altura) 
area_triangulo <- (base * altura) / 2 
escreval("A área do triângulo é: ", area_triangulo) 
fimalgoritmo 
 
 
 6. 
algoritmo "área do círculo" 
var raio, area_circulo:real 
inicio 
escreval("Raio: ") 
leia(raio) 
area_circulo <- 3.14*raio*raio 
escreval("A área do círculo é: ", area_circulo) 
fimalgoritmo 
 
 
7. 
algoritmo "área do trapézio" 
var base_maior, base_menor, altura, area_trapezio:real 
inicio 
escreval("Base maior: ") 
leia(base_maior) 
escreval("Base menor: ") 
leia(base_menor) 
escreval("Altura: ") 
leia(altura) 
area_trapezio <- ((Base Maior + Base Menor)/2) x Altura 
escreval("Área do trapézio: ", area_trapezio) 
fimalgoritmo 
 
 
8. 
algoritmo "MUV" 
var S0, V0, a, t, S:real 
inicio 
escreval("S0: ") 
leia(S0) 
escreval("V0: ") 
leia(V0) 
escreval("Aceleração: ") 
leia(a) 
escreval("Tempo: ") 
leia(t) 
S <- S0 + V0*t + (a/2)*t*t 
escreval("Distância percorrida ",S) 
fimalgoritmo 
 
 
9. 
algoritmo "Celsius para Farenheit" 
var celsius, farenheit:real 
inicio 
escreval("Temperatura em graus Celsius: ") 
leia(celsius) 
Farenheit <- (9*Celsius)/5 + 32 
escreval("Temperatura em graus farenheit ", farenheit) 
fimalgoritmo 
 
 
10. 
algoritmo "Farenheit para Celsius" 
var celsius, farenheit:real 
inicio 
escreval("Temperatura em graus Farenheit: ") 
leia(farenheit) 
celsius <- (5.0/9.0) * (Farenheit - 32) 
escreval("Temperatura em graus celsius= ", celsius) 
fimalgoritmo 
 
 
11. 
algoritmo "baskhara" 
var a, b, c, delta, x1, x2:real 
inicio 
escreval("A: ") 
leia(a) 
escreval("B: ") 
leia(b) 
escreval("C: ") 
leia(c) 
delta <- b*b-4*a*c 
escreval("Delta: ",delta) 
x1 <- (-b + raizq(delta))/2*a 
escreval("x1: ",x1) 
x2 <- (-b - raizq(delta))/2*a 
escreval("x2: ",x2) 
fimalgoritmo 
 
 
12. 
algoritmo "idade em dias" 
var idade_anos, idade_dias:real 
inicio 
escreval("Idade em anos: ") 
leia(idade_anos) 
idade_dias <- idade_anos*365 
escreval("O número de dias é: ",idade_dias) 
fimalgoritmo 
 
 
 
 
 
13. 
algoritmo "compara N1 e N2" 
var n1, n2:inteiro 
inicio 
escreval("Primeiro número: ") 
leia(n1) 
escreval("Segundo número: ") 
leia(n2) 
se n1>n2 entao 
 escreval("n1 é maior que n2") 
senao 
 se n1=n2 entao 
 escreval("n1 é igual a n2") 
 senao 
 escreval("n1 é menor que n2") 
 fimse 
fimse 
fimalgoritmo 
 
 
14. 
algoritmo "aprovado_reprovado" 
var nota1, nota2, Faltas, Media: real 
inicio 
escreval("Digite a primeira nota: ") 
leia(nota1) 
escreval("Digite a segunda nota: ") 
leia(nota2) 
escreval("Quantas faltas? ") 
leia(Faltas) 
media <- (nota1 + nota2) / 2 
se (media>=6) e (Faltas<10) entao 
 escreval("APROVADO") 
senao 
 escreval("REPROVADO") 
fimse 
fimalgoritmo 
 
 
 
 
 
15. 
algoritmo "nota por conceito" 
var nota1, nota2, nota3, Media: real 
inicio 
escreval("Digite a primeira nota: ") 
leia(nota1) 
escreval("Digite a segunda nota: ") 
leia(nota2) 
escreval("Digite a terceira nota: ") 
leia(nota3) 
media <- (nota1 + nota2 + nota3) / 3 
se (media>=5) entao 
 se (media>=7.5) entao 
 escreval("A") 
 senao 
 escreval("B") 
 fimse 
senao 
 se (media>=2.5) entao 
 escreval("C") 
 senao 
 escreval("D") 
 fimse 
fimse 
fimalgoritmo 
 
 
 
16. 
algoritmo "imposto" 
var salario, imposto: real 
inicio 
escreval("Digite o valor do salário: ") 
leia(salario) 
se (salario<500) entao 
 imposto <- salario * 0.05 
fimse 
se (salario>=500) e (salario<850) entao 
 imposto <- salario * 0.10 
fimse 
se (salario>=850) entao 
 imposto <- salario * 0.15 
fimse 
escreval("Imposto= ", imposto) 
fimalgoritmo 
 
 
17. 
algoritmo "aumento nos preços" 
var preco, novo_preco: real 
inicio 
escreval("Preço atual do produto?: ") 
leia(preco) 
se (preco>=500) entao 
 novo_preco <- preco * 1.05 
senao 
 novo_preco <- preco * 1.10 
fimse 
escreval("Novo preço= ", novo_preco) 
fimalgoritmo 
 
 
 
 
 
 
 
18. 
algoritmo "tabuada" 
var numero, contador, produto : inteiro 
inicio 
contador <- 0 
escreval("Tabuada de qual número? ") 
leia(numero) 
enquanto contador<=10 faca 
 produto <- contador*numero 
 escreval(numero, " * ", contador, " = ", produto) 
 contador <- contador + 1 
fimenquanto 
fimalgoritmo 
 
 
19. 
algoritmo "media 100 numeros" 
var contador, soma, numero, media : real 
inicio 
contador <- 0 
soma <- 0 
enquanto contador<100 faca 
 escreval("Numero= ") 
 leia(numero) 
 soma <- soma + numero 
 contador <- contador + 1 
fimenquanto 
media <- soma/100 
escreval("Média= ", media) 
fimalgoritmo 
 
 
20. 
algoritmo "fatorial" 
var fat, contador : inteiro 
inicio 
fat <- 1 
escreval("Fatorial de qual número? ") 
leia(contador) 
escreva("fatorial de ", contador) 
enquanto contador>1 faca 
 fat <- fat*contador 
 contador <- contador - 1 
fimenquanto 
escreva(" é igual a ", fat) 
fimalgoritmo