Algoritmo 20 questoes respondidas

Prévia do material em texto

Algoritmo "Exercicio_01"
Var
Nome:caracter
nota1, nota2, nota3, nota4, media: real
Inicio
escreva("Digite o nome do aluno: ")
leia (nome)
escreva("Digite o valor da primeira nota: ")
leia (nota1)
escreva("Digite o valor da segunda nota: ")
leia (nota2)
escreva("Digite o valor da terceira nota: ")
leia (nota3)
escreva("Digite o valor da quarta nota: ")
leia (nota4)
media <- (nota1+nota2+nota3+nota4)/4
escreva (nome, " obteve a media aritmetica: " , media)
Fimalgoritmo
Algoritmo "Exercicio_02"
Var
numero:real
Inicio
escreva ("Digite um número: ")
leia(numero)
escreva ("Dobro:",2*numero, " Triplo: ", 3*numero)
Fimalgoritmo
Algoritmo "Exercicio_03"
Var
salario, NovoSalario:real
Inicio
escreva ("Informe o valor do salario R$: ")
leia(salario)
NovoSalario <- salario*1.3
escreva ("Novo salario R$:", NovoSalario)
Fimalgoritmo
Algoritmo "Exercicio_04"
Var
ano,idade:inteiro
Inicio
escreva("Ano de nascimento: ")
leia(ano)
idade <- 1996-ano
escreva ("Idade em relacao a 1996: ",idade, " anos")
Fimalgoritmo
Algoritmo "Exercicio_05"
Var
lado,area:real
Inicio
escreva ("Informe a medida do lado do quadrado: ")
leia(lado)
area <- lado^2
escreva ("Area do quadrado: ",area)
Fimalgoritmo
Algoritmo "Exercicio_06"
Var
receita,despesas,lucro,percentual:real
Inicio
escreva("Informe o valor da receita R$: ")
leia(receita)
escreva("Informe o valor das despesas R$: ")
leia(despesas)
lucro <- receita - despesas
percentual <- (despesas*100)/receita
escreva ("Lucro R$: ", lucro, " Percentual: ", percentual,"%")
Fimalgoritmo
Algoritmo "Exercicio_10"
	
Var
hora,min,seg:inteiro
Inicio
escreva("Insira a quantida de horas: ")
leia(hora)
min <- hora*60
seg <- min*60
escreva (hora, " horas corresponde a ",min," minutos e",seg, " segundos")
Fimalgoritmo
Algoritmo "Exercicio_11"
Var
perimetro,lado1,lado2:real
Inicio
escreva ("Informe o valor do primeiro lado do retangulo: ")
leia(lado1)
escreva ("Informe o valor do segundo lado do retangulo: ")
leia(lado2)
perimetro <- (lado1*2) + (lado2*2)
escreva ("Perimetro: ",perimetro)
Fimalgoritmo
Algoritmo "Exercicio_12"
Var
nome,sexo:caracter
Inicio
escreva("Digite o nome da pessoa: ")
leia(nome)
escreva("Digite o sexo (masculino/feminino):")
leia(sexo)
se (sexo = "masculino") entao
escreva(nome, " é homem")
senao
escreva(nome, " é mulher")
fimse
Fimalgoritmo
Algoritmo "Exercicio_13"
Var
nome:caracter
idade:inteiro
Inicio
escreva ("Digite o nome da pessoa: ")
leia(nome)
escreva ("Digite a idade: ")
leia(idade)
se (idade>=18) entao
escreva(nome, " é maior de idade")
senao
escreva(nome, " é menor de idade")
fimse
Fimalgoritmo
Algoritmo "Exercicio_14"
Var
nome,cargo:caracter
salario, NovoSalario:real
Inicio
escreva ("Digite o nome da pessoa: ")
leia(nome)
escreva ("Informe o cargo: ")
leia(cargo)
escreva ("Digite o valor do salário: ")
leia (salario)
se (cargo = "operador") entao
NovoSalario <- salario*1.3
escreva (nome, " recebera um novo salario de R$: ", NovoSalario)
fimse
se (cargo = "programador") entao
NovoSalario <- salario*1.18
escreva (nome, " recebera um novo salario de R$: ", NovoSalario)
fimse
Fimalgoritmo
Algoritmo "Exercicio_15"
Var
numero:inteiro	
Inicio
escreva ("Digite um numero: ")
leia(numero)
se (numero % 2 = 0) entao
escreva (numero, " é um número par")
senao
escreva (numero, " é um número ímpar")
fimse
Algoritmo "Exercicio_16"
Fimalgoritmo
Var
n1,n2,dobro:inteiro
Inicio
escreva ("Digite o primeiro número: ")
leia(n1)
escreva ("Digite o segundo número: ")
leia(n2)
se ((n1 % 2=0)e(n2 % 2=0)) entao
dobro <- 2*(n1+n2)
escreva ("Dobro da soma: ", dobro)
fimse
Fimalgoritmo
Algoritmo "Exercicio_17"
Var
nome:caracter
ano:inteiro
Inicio
escreva("Insira o nome: ")
leia(nome)
escreva("insira o ano de nascimento: ")
leia(ano)
se ((2016-ano)>30) entao
escreva (nome," é maior de 30 anos")
senao
escreva (nome," é menor de 30 anos")
fimse
Fimalgoritmo
Algoritmo "Exercicio_18"
Var
n1,n2,n3:real
Inicio
escreva ("Digite o primeiro numero: ")
leia(n1)
escreva ("Digite o segundo numero: ")
leia(n2)
escreva ("Digite o terceiro numero: ")
leia(n3)
se ((n1>n2)e(n1>n3)) entao
escreva ("Maior número: ",n1)
fimse
se ((n2>n1)e(n2>n3)) entao
escreva ("Maior número: ",n2)
fimse
se ((n3>n1)e(n3>n2)) entao
escreva ("Maior número: ",n3)
fimse
Fimalgoritmo
Algoritmo "Exercicio_22"
Var
letra:caracter
Inicio
escreva ("Digite uma letra: ")
leia (letra)
se ((letra<>"a") e (letra<>"e") e (letra<>"i") e (letra<>"o") e (letra<>"u")) entao
escreva (letra, " é uma consoante")
senao
escreva (letra, " é uma vogal")
fimse
Fimalgoritmo
Algoritmo "Exercicio_25"
Var
L1,L2,L3,L4:real
Inicio
escreva ("Insira o primeiro valor: ")
leia(L1)
escreva ("Insira o segundo valor: ")
leia(L2)
escreva ("Insira o terceiro valor: ")
leia(L3)
escreva ("Insira o quarto valor: ")
leia(L4)
se ((L1=L2)e(L1=L3)e(L1=L4))entao
escreva ("Os valores formam um quadrado")
fimse
se ((L1=L2)e(L3=L4))ou((L2=L3)e(L1=L4))ou((L1=L3)e(L2=L4))entao
escreva ("Os valores formam um retangulo")
fimse
Fimalgoritmo
Algoritmo "Exercicio_26"
Var
nome,sexo:caracter
salario:real
Inicio
escreva ("Digite o nome: ")
leia(nome)
escreva("Digite o sexo (M/F): ")
leia(sexo)
escreva("Informe o salário R$: ")
leia(salario)
se ((sexo="M") ou (sexo="m")) entao
escreva ("Novo salario R$: ",(salario*1.20))
fimse
se ((sexo="F") ou (sexo="f")) entao
escreva ("Novo salario R$: ",(salario*1.22))
fimse
Fimalgoritmo
Algoritmo "Exercicio_27"
Var
 min:inteiro
Inicio
escreva("Digite a quantidade de minutos: ")
leia(min)
escreva ("Quantidade de Horas: ", min\60)
escreva ("Quantidade de Minutos: ", min%60)
Fimalgoritmo
Algoritmo "Exercicio_28"
Var
indA,indB,indC:inteiro
delta,r1,r2:real
Inicio
escreva ("Digite o valor do indice A: ")
leia(indA)
escreva ("Digite o valor do indice B: ")
leia(indB)
escreva ("Digite o valor do indice C: ")
leia(indC)
delta <- indB^2 -4*(indA)*(indC)
r1 <- -(indB + raizQ(delta))/2*indA
r2 <- -(indB - raizQ(delta))/2*indA
se (delta > 0)entao
escreva ("Raizes diferentes: ", r1, " e", r2)
fimse
se (delta = 0)entao
escreva ("Raizes Iguais: ", r1, " e", r2)
fimse
se (delta < 0)entao
escreva ("Não existe raízes reais")
fimse
Fimalgoritmo