algoritmo "Aumento Salarial_2"

// Faca um algoritmo que receba o salario-base de um funcionario, calcule e mostre o salario
// a receber, sabendo-se que esse funcionario tem gratificacao de 5% sobre o
// salario base e paga imposto de 7% sobre o salario base.

var
sal,grat,imp,desc,novoSal:real
inicio
 
escreval("Digite o salario base do funcionario")
leia(sal)
grat <- sal*0.05
imp  <- sal*0.07
desc <- sal-imp
novoSal <- desc+grat
escreval("O salario do funcionario a receber e:", novoSal)
fimalgoritmo

//Ler um número inteiro e mostre uma mensagem indicativa
//de que este número é par ou ímpar e se este é positivo ou negativo.

var
   num,resto : inteiro
inicio
   escreval("Digite um número")
   leia(num)
   resto <- num mod 2
   se ( resto = 0) entao
      escreva("O numero é par e")
   senao
      escreva("O numero é ímpar e")
   fimse
   se ( num >= 0) entao
      escreval(" positivo.")
   senao
      escreval(" negativo.")
   fimse

fimalgoritmo

//Crie um algoritmo que gere
//e escreva os número ímpares dos números lidos entre 0 e 100.

SOLUÇÃO:

var
  i,resto : inteiro
inicio
      enquanto (i <= 100) faca
          resto <- i mod 2
          se (resto <> 0) entao
             escreval("Numero impar:", i)
          fimse
          i<-i+1
      fimenquanto
fimalgoritmo

//Leia 3 (três) números;Calcule o quadrado deles individualmente;
//Se o valor do quadrado do segundo número for >= 1000, exiba este
//e finalize. Caso contrário, exiba os valores lidos e seus//respectivos quadrados.

RESOLUÇÃO NO VISUALG:

var
n1,n2,n3,cal11, cal12, cal13: real

inicio
 escreval("Digite o primeiro numero")
    leia(n1)
    escreval("Digite o segundo numero")
    leia(n2)
    escreval("Digite o terceiro numero")
    leia(n3)
    cal11 <- n1 * n1
    cal12 <- n2 * n2
    cal13 <- n3 * n3
    se (cal12 >= 1000) entao
       escreval("o quadrado é:", cal12)
    senao
       escreval("Primeiro valor lido:",n1)
       escreval("Seu quadrado é:", cal11)
       escreval("---------------------------")
       escreval("Segundo valor lido:", n2)
       escreval("Seu quadrado é:", cal12)
       escreval("---------------------------")
       escreval("Terceiro valor lido:", n3)
       escreval("Seu quadrado é:", cal13)
    fimse
// Seção de Comandos 

fimalgoritmo