algoritmo "Algoritmo que calcula porcentagem"

var
  // variáveis usadas na resolução do problema
  valor, percentual, valor_final: real

inicio
  valor <- 178.00 // valor original
  percentual <- 15.0 / 100.0 // 15%
  valor_final <- valor + (percentual * valor)

  // mostra o resultado
  escreva("O valor final do produto é: ", valor_final)

  // O resultado será 204,70

fimalgoritmo

algoritmo "Algoritmo que calcula porcentagem"

var
  // variáveis usadas na resolução do problema
  valor, percentual, valor_final: real

inicio
  valor <- 250.00; // valor original
  percentual <- 8.0 / 100.0 // 8%
  valor_final <- valor - (percentual * valor)

  // mostra o resultado
  escreva("O valor final do produto é: ", valor_final)

  // O resultado será 230,00

fimalgoritmo

algoritmo "Algoritmo que calcula porcentagem"

var
  // variáveis usadas na resolução do problema
  perguntas, acertos: real

inicio
  perguntas <- 90.0
  acertos <- 72.0

  // mostra a porcentagem de acertos
  escreva("Porcentagem de acertos: ")
  escreval(((acertos / perguntas) * 100), "%")

  // mostra a porcentagem de erros
  escreva("Porcentagem de erros: ")
  escreval((((perguntas - acertos) / perguntas) * 100), "%")

  // Os resultados serão 80% e 20%

fimalgoritmo

algoritmo "Algoritmo que calcula porcentagem"

var
  // variáveis usadas na resolução do problema
  valor_anterior, novo_valor, porcentagem_lucro: real

inicio
  valor_anterior <- 300.0 // valor anterior
  novo_valor <- 340.0 // valor novo

  // calcula a porcentagem de lucro
  // efetua o cálculo
  porcentagem_lucro <- ((novo_valor * 100) / valor_anterior) - 100

  escreva("A porcentagem de lucro foi de: ", porcentagem_lucro, "%")

  // O resultado será 13,33

fimalgoritmo

algoritmo "Algoritmo que calcula porcentagem"

var
  // variáveis usadas na resolução do problema
  valor, percentual, comissao: real

inicio
  valor <- 70.0 // valor do produto
  percentual <- 5.0 / 100.0 // 5%

  // calcula a comissão
  comissao <- percentual * valor

  // mostra o resultado
  escreva("O valor repassado ao vendedor é: ", comissao)

  // O resultado será 3,5

fimalgoritmo

package estudos;

import java.text.NumberFormat;
import java.util.Scanner;

public class Estudos {
  public static void main(String[] args) {
    // vamos fazer a leitura usando a classe Scanner
    Scanner entrada = new Scanner(System.in);
    
    // vamos ler o salario base
    System.out.print("Informe o salário base: ");
    double salario_base = Double.parseDouble(entrada.nextLine());
    
    // vamos calcular a gratificação
    double gratificacao = salario_base * (5.0 / 100);
    
    // vamos calcular o imposto
    double imposto = salario_base * (7.0 / 100);
    
    // e finalmente calculamos o salário final
    double salario_final = salario_base + gratificacao - imposto;
    
    // e exibimos o resultado
    NumberFormat formato = NumberFormat.getCurrencyInstance();
    System.out.println("Gratificação: " + formato.format(gratificacao));
    System.out.println("Imposto: " + formato.format(imposto));
    System.out.println("Salário final: " + formato.format(salario_final));
  }
}

private void button1_Click(object sender, EventArgs e){
  // vamos obter a quantidade de controles no formulário
  int quantControles = this.Controls.Count;

  // vamos exibir o resultado
  MessageBox.Show("O formulário contém " + quantControles + 
    " controles.");
}

// função que recebe dois pontos na terra e retorna a distância
// entre eles em quilômetros
function CalcularDistancia(lat1: double; lat2: double; lon1: double;
  lon2: double): double;
var
  raio_terra, dlon, dlat, a, c: double;
begin
  raio_terra := 6378.137; // raio da terra em quilômetros

  // o primeiro passo é converter as latitudes e longitudes
  // para radianos
  // não esqueça de adicionar a unit Math
  lon1 := DegToRad(lon1);
  lon2 := DegToRad(lon2);
  lat1 := DegToRad(lat1);
  lat2 := DegToRad(lat2);

  // agora aplicamos a Fórmula de Haversine
  dlon := lon2 - lon1;
  dlat := lat2 - lat1;
  a := Power(Sin(dlat / 2), 2) + Cos(lat1) * Cos(lat2)
    * Power(Sin(dlon / 2),2);

  c := 2 * ArcSin(Sqrt(a));

  // e retornamos a distância
  Result := (c * raio_terra);
end;

procedure TForm5.Button1Click(Sender: TObject);
var
  lat1, lon1, lat2, lon2, distancia: double;
begin
  // obtém as coordenadas vindas dos campos de texto
  lat1 := StrToFloat(txtPrimeiraLatitude.Text);
  lon1 := StrToFloat(txtPrimeiraLongitude.Text);
  lat2 := StrToFloat(txtSegundaLatitude.Text);
  lon2 := StrToFloat(txtSegundaLongitude.Text);

  // vamos calcular a distância entre os dois pontos em Kms
  distancia := CalcularDistancia(lat1, lat2, lon1, lon2);

  // e mostramos o resultado
  txtDistancia.Text := FormatFloat('#.0', distancia) + ' kms';
end;

CREATE TABLE PESSOAS(
  ID     INTEGER NOT NULL,
  NOME   VARCHAR(40) NOT NULL,
  SEXO   CHAR(1) NOT NULL
);

INSERT INTO PESSOAS VALUES(12, 'OSMAR J. SILVA', 'M');