Gabarito Exercicio de Algoritmo

Prévia do material em texto

Algoritmo "ex1 - Sequenciais" 
Var 
 temp,kelvin, fahre:real 
Inicio 
 escreva("Digite a temperatura em ºC: ") 
 leia(temp) 
 kelvin:=temp+273 
 fahre:=(9*temp+160)/5 
 escreval("A temperatura em Fahrenheit é:",fahre) 
 escreval("A temperatura em Kelvin é:",kelvin) 
Fimalgoritmo 
 
2- Algoritmo "ex2 - Sequenciais" 
Var 
 valor:real 
Inicio 
 escreva("Digite a medida em metros: ") 
 leia(valor) 
 escreva("A medida convertida em centimetros é:",valor*100) 
FimAlgoritmo 
 
3- Algoritmo "ex3 - Sequenciais" 
Var 
 larg,alt,volume,comp:real 
Inicio 
 escreva("Digite o comprimento da caixa: ") 
 leia(comp) 
 escreva("Digite a largura da caixa: ") 
 leia(larg) 
 escreva("Digite a altura da caixa: ") 
 leia(alt) 
 volume:=comp*larg*alt 
 escreva("O volume da caixa d´agua é de:",volume) 
FimAlgoritmo 
 
4- Algoritmo "ex4 - Sequenciais" 
Var 
 varA,varB,aux:real 
Inicio 
 escreva("Digite o valor da variavel A: ") 
 leia(varA) 
 escreva("Digite o valor da variavel B: ") 
 leia(varB) 
 aux:=varA 
 varA:=varB 
 varB:=aux 
 escreva("O novo valor da variavel A é:",varA) 
 escreva("O novo valor da variavel B é:",varB) 
FimAlgoritmo 
 
5- Algoritmo "ex5 - Sequenciais" 
Var 
 s0,v,t,S:real 
Inicio 
 escreva("Digite o valor do espaço incial: ") 
 leia(s0) 
 escreva("Digite o valor da velocidade: ") 
 leia(v) 
 escreva("Digite o valor do tempo: ") 
 leia(t) 
 S:=s0+v*t 
 escreva("O espaço percorrido foi de:",S) 
FimAlgoritmo 
 
6- Algoritmo "ex6 - Sequenciais" 
Var 
 numero:real 
Inicio 
 escreva("Digite um numero: ") 
 leia(numero) 
 escreval("O antecessor do numero digitado é:",numero-1) 
 escreval("O sucessor do numero digitado é:",numero+1) 
FimAlgoritmo 
 
7- Algoritmo "ex7 - Sequenciais" 
Var 
 calca,camisa,meia,total:real 
Inicio 
 escreva("Digite a quantidade de camisas: ") 
 leia(camisa) 
 escreva("Digite a quantidade de calças: ") 
 leia(calca) 
 escreva("Digite a quantidade de meias: ") 
 leia(meia) 
 total:=(camisa*5)+(calca*10)+(meia*2) 
 escreva("O valor gasto foi de:",total) 
FimAlgoritmo 
 
8- Algoritmo "ex8 - Sequenciais" 
Var 
 valor1,valor2,valor3,ponderada:real 
Inicio 
 escreva("Digite o valor 1: ") 
 leia(valor1) 
 escreva("Digite o valor 2: ") 
 leia(valor2) 
 escreva("Digite o valor 3: ") 
 leia(valor3) 
 ponderada:=(valor1+(valor2*2)+(valor3*3))/6 
 escreva("A media ponderada dos numeros inseridos foi:",ponderada) 
FimAlgoritmo 
 
9 - Algoritmo "ex9 - Sequenciais" 
Var 
 idade:inteiro 
 soma:real 
Inicio 
 escreva("Digite a idade: ") 
 leia(idade) 
 soma:=idade*(idade+1)/2 
 escreva("A soma das suas idades é:",soma) 
FimAlgoritmo 
 
10 - Algoritmo "ex10 - Sequenciais" 
Var 
 peso,altura,imc:real 
Inicio 
 escreva("Digite o peso: ") 
 leia(peso) 
 escreva("Digite a altura: ") 
 leia(altura) 
 imc:=peso/altura*2 
 escreva("O indice de massa corporal é:",imc:3:2) 
FimAlgoritmo 
11- Algoritmo "ex11 - Sequenciais" 
Var 
 salario,reajuste,novo_salario:real 
Inicio 
 escreva("Digite o salario: ") 
 leia(salario) 
 escreva("Digite o % de reajuste: ") 
 leia(reajuste) 
 novo_salario:=salario+((salario*reajuste)/100) 
 escreva("O novo salario sera:",novo_salario:4:2) 
FimAlgoritmo 
 
12 - Algoritmo "ex12 - Sequenciais" 
Var 
 anos,meses,dias,idade_dias:inteiro 
Inicio 
 escreva("Digite quantos anos possui: ") 
 leia(anos) 
 escreva("Digite quantos meses possui: ") 
 leia(meses) 
 escreva("Digite quantos dias possui: ") 
 leia(dias) 
 idade_dias:=(anos/365)+(meses/30)+dias 
 escreva("Sua idade expressa em dias é:",idade_dias) 
FimAlgoritmo