procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  MidiInCaps: TMidiInCaps; // este record está definido em MMSystem.pas
  erro: Word;
begin
  // uses MMSystem  

  ComboBox1.Clear;
  // midiInGetNumDevs retorna a quantidade de dispositivos de entrada
  // MIDI no sistema
  for i := 0 to midiInGetNumDevs - 1 do
  begin
    // vamos obter o dispositivo identificado pela variável i (uDeviceID)
    erro := midiInGetDevCaps(i, @MidiInCaps, sizeof(TMidiInCaps));
    if erro <> MMSYSERR_NOERROR then
       raise Exception.Create('Não foi possível obter a lista de dispositivos ' +
         'de entrada MIDI');

    // vamos adicionar o nome do dispositivo no ComboBox
    ComboBox1.Items.Add(String(MidiInCaps.szPname));
  end;
end;

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
  
int main(int argc, char *argv[]){
  float x, y, norma;
  // vamos ler os valores x e y
  printf("Informe o valor de x: ");
  scanf("%f", &x);
  printf("Informe o valor de y: ");
  scanf("%f", &y);
  
  // vamos calcular a norma do vetor
  norma = sqrt(pow(x, 2) + pow(y, 2));
    
  // mostra o resultado
  printf("A norma do vetor é: %f", norma);
 
  printf("\n\n");
  system("PAUSE");
  return 0;
}

procedure TForm1.Button1Click(Sender: TObject);
var
  frase: string;
begin
  frase := 'PHP? Sim, eu gosto muito de PHP';

  // vamos substituir todas as ocorrências de "PHP" por "Delphi'
  // sem considerar maiúsculas e minúsculas
  frase := ReplaceText(frase, 'Php', 'Delphi');

  // vamos exibir o resultado
  ShowMessage(frase);
end;

nome = "Osmar J. Silva"
puts nome

nome = "Osmar"
puts nome.length

nome = "Osmar J Silva"
puts(nome)

nome = 'Osmar J Silva'
puts(nome)

// Algoritmo que calcula porcentagem em Java
package estudos;

public class Estudos {
  public static void main(String[] args) {
    // variáveis usadas na resolução do problema
    double valor, percentual, valor_final;

    valor = 178.00; // valor original
    percentual = 15.0 / 100.0; // 15%
    valor_final = valor + (percentual * valor);

    // mostra o resultado
    System.out.println("O valor final do produto é: " + valor_final);

    // O resultado será 204,70
  }
}

// Algoritmo que calcula porcentagem em Java
package estudos;

public class Estudos {
  public static void main(String[] args) {
    // variáveis usadas na resolução do problema
    double valor, percentual, valor_final;

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

    // mostra o resultado
    System.out.println("O valor final do produto é: " + valor_final);
  
    // O resultado será 230,00
  }
}

// Algoritmo que calcula porcentagem em Java
package estudos;

public class Estudos {
  public static void main(String[] args) {
    // variáveis usadas na resolução do problema
    double perguntas, acertos;

    perguntas = 90.0;
    acertos = 72.0;

    // mostra a porcentagem de acertos
    System.out.print("Porcentagem de acertos: ");
    System.out.println(((acertos / perguntas) * 100) + "%");

    // mostra a porcentagem de erros
    System.out.print("Porcentagem de erros: ");
    System.out.println((((perguntas - acertos) / perguntas) * 100) + "%");

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

// Algoritmo que calcula porcentagem em Java
package estudos;

public class Estudos {
  public static void main(String[] args) {
    // variáveis usadas na resolução do problema
    double valor_anterior, novo_valor, porcentagem_lucro;

    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;

    System.out.println("A porcentagem de lucro foi de: " +
      porcentagem_lucro + "%");

    // O resultado será 13,33
  }
}

// Algoritmo que calcula porcentagem em Java
package estudos;

public class Estudos {
  public static void main(String[] args) {
    // variáveis usadas na resolução do problema
    double valor, percentual, comissao;

    valor = 70.0; // valor do produto
    percentual = 5.0 / 100.0; // 5%

    // calcula a comissão
    comissao = percentual * valor;

    // mostra o resultado
    System.out.println("O valor repassado ao vendedor é: " + comissao);

    // O resultado será 3,5
  }
}