Atv. Mizael
Atv. Mizael
Atv. Mizael
Algaritimo_Area
Var
Base, Altura: real
area : real
escreva ("digite o valor da base :")
leia (base)
escreva ("digite o valor da altura :")
leia (altura)
area := (base * altura)/2
escreva ("área do triangulo = ", area)
Fimalgoritimo
Algoritimo_Idade
Var
anoN, anoA, idade, idadenova: real
nome: caracter
escreva ("digite seu nome:")
leia (nome)
escreva ("digite seu ano de nascimento:")
leia (anoN)
escreva ("digite o ano atual:")
leia (anoA)
idade := (anoA - anoN)
idadenova := (2050 - anoA + idade)
escreva ("", nome,", que possui", idade, " anos,"," terá", idadenova, " anos em
2050 .")
Fimalgoritimo
AlgoritimoTroca
Var
numA, numB, aux: real
escreva ("digite um número:")
leia (numA)
escreva ("digite outro número:")
leia (numB)
Aux := numA
NumA := numB
NumB:= aux
escreva ("NumA = ", numA )
escreva ("NumB = ", numB)
Fimalgoritimo
Algoritimo_Maiormenor
Var
numero1, numero2: real
escreva ("digite um numero:")
leia (numero1)
escreva ("digite outro numero:")
leia (numero2)
Se numero1 = numero2 então
Escreva ("Os números são iguais")
Senão
Escreva ("Os números são diferentes")
fimse
Se numero1 > numero2 então
Escreva ("O maior número é o", ""numero1)
Escreva (" e o menor número é o", "" numero2)
Senão se numero2 > numero1, então
Escreva ("O maior número é", "", numero2)
Escreva (" e o menor número é", "", numero1)
fimse
Fimalgoritmo