procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos verificar se a versão da bass.dll corresponde à versão contida
  // no Bass.pas (BASSVERSION = xxxx;)
  if HIWORD(BASS_GetVersion) <> BASSVERSION then
    begin
      // An incorrect version of BASS.DLL was loaded
      MessageBox(0, 'Uma versão incorreta da BASS.DLL foi carregada', 
        nil, MB_ICONERROR);
      Halt;
    end;

  // Initialize audio - default device, 44100hz, stereo, 16 bits
  // Vamos inicializar o áudio - dispositivo padrão, 44100hz, stereo, 16 bits
  if not BASS_Init(-1, 44100, 0, Handle, nil) then
    // Error initializing audio!
    Error('Houve um erro ao inicializar o áudio')
  else
    ShowMessage('Áudio inicializado com sucesso.');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  arquivo: String; // nome do arquivo MP3
  musica: HSAMPLE; // um handle para a amostra (sample)
  ch: HCHANNEL; // um handle para o canal de execução
begin
  if not OpenDialog1.Execute then
    Exit;

  // vamos carregar a música WAV, AIFF, MP3, MP2, MP1 ou OGG a ser executada
  arquivo := OpenDialog1.FileName;
  musica := BASS_SampleLoad(FALSE, PChar(arquivo), 0, 0, 3, 
    BASS_SAMPLE_OVER_POS);

  // vamos obter o canal de execução
  ch := BASS_SampleGetChannel(musica, False);

  // vamos centralizar o som (igual dos dois lados)
  BASS_ChannelSetAttribute(ch, BASS_ATTRIB_PAN, 0);

  // vamos definir o volume (0 = silêncio; 1 = volume total)
  BASS_ChannelSetAttribute(ch, BASS_ATTRIB_VOL, 1);

  if not BASS_ChannelPlay(ch, False) then
    // Error playing sample!
    Error('Erro ao executar a amostra!');
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bass, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure Error(msg: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Error(msg: string);
var
  s: string;
begin
  // Error code
  s := msg + #13#10 + '(Código de erro: ' + IntToStr(BASS_ErrorGetCode) + ')';
  MessageBox(Handle, PChar(s), nil, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos verificar se a versão da bass.dll corresponde à versão contida
  // no Bass.pas (BASSVERSION = xxxx;)
  if HIWORD(BASS_GetVersion) <> BASSVERSION then
    begin
      // An incorrect version of BASS.DLL was loaded
      MessageBox(0, 'Uma versão incorreta da BASS.DLL foi carregada', 
        nil, MB_ICONERROR);
      Halt;
    end;

  // Initialize audio - default device, 44100hz, stereo, 16 bits
  // Vamos inicializar o áudio - dispositivo padrão, 44100hz, stereo, 16 bits
  if not BASS_Init(-1, 44100, 0, Handle, nil) then
    // Error initializing audio!
    Error('Houve um erro ao inicializar o áudio')
  else
    ShowMessage('Áudio inicializado com sucesso.');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  arquivo: String; // nome do arquivo MP3
  musica: HSAMPLE; // um handle para a amostra (sample)
  ch: HCHANNEL; // um handle para o canal de execução
begin
  if not OpenDialog1.Execute then
    Exit;

  // vamos carregar a música WAV, AIFF, MP3, MP2, MP1 ou OGG a ser executada
  arquivo := OpenDialog1.FileName;
  musica := BASS_SampleLoad(FALSE, PChar(arquivo), 0, 0, 3, 
    BASS_SAMPLE_OVER_POS);

  // vamos obter o canal de execução
  ch := BASS_SampleGetChannel(musica, False);

  // vamos centralizar o som (igual dos dois lados)
  BASS_ChannelSetAttribute(ch, BASS_ATTRIB_PAN, 0);

  // vamos definir o volume (0 = silêncio; 1 = volume total)
  BASS_ChannelSetAttribute(ch, BASS_ATTRIB_VOL, 1);

  if not BASS_ChannelPlay(ch, False) then
    // Error playing sample!
    Error('Erro ao executar a amostra!');
end;

end.

// função principal do programa Rust
fn main() {
  // vamos criar um array com 5 elementos
  let valores = [7, 3, 4, 9, 1];
  
  // agora vamos obter o tamanho do array
  let tamanho = valores.len();
  
  // e mostramos o resultado
  println!("O array possui {} elementos", tamanho);
}

Informe um número inteiro de qualquer tamanho: 847
O número informado possui 3 dígitos

# vamos importar o módulo Math
import math

# método principal
def main():
  # vamos pedir para o usuário informar um número inteiro
  numero = int(input("Informe um número inteiro de qualquer tamanho: "))
  
  # agora vamos obter a quantidade de dígitos no
  # número informado
  tamanho = int(math.log10(numero)) + 1
	
  # mostramos o resultado
  print("O número informado possui {0} dígitos".format(tamanho))

if __name__== "__main__":
  main()

bool primo(int valor){
  // implementação aqui
}

Informe um valor inteiro: 7
O numero informado é primo

#include <cstdlib>
#include <iostream>

using namespace std;

// protótipo da função primo()
bool primo(int);

int main(int argc, char *argv[]){
  int numero;
  
  setlocale(LC_ALL,""); // para acentos do português
	
  cout << "Informe um valor inteiro: ";
  cin >> numero;
  
  // vamos verificar se o valor informado é um número primo
  if(primo(numero)){
    cout << "O numero informado é primo\n" << endl;             
  }
  else{
    cout << "O numero informado NÃO é primo\n" << endl;     
  }
  
  system("PAUSE");
  return EXIT_SUCCESS;
}

bool primo(int valor){
  // se o valor fornecido for 7, a variável i do laço contará
  // de 2 até 7 / 2 (divisão inteira), ou seja, 3. Se o 
  // módulo de 7 por qualquer um dos valores neste intervalo 
  // for igual a 0, então o número não é primo
  for(int i = 2; i <= (valor / 2); i++){
    if(valor % i == 0){
      return false; // não é primo
    }
  }
    
  return true;
}

public ResultSet getTableTypes() throws SQLException 

package estudosbancodados;

import java.sql.*;

public class EstudosBancoDados{
  public static void main(String[] args) {
    // strings de conexão
    String databaseURL = "jdbc:mysql://localhost/estudos";
    String usuario = "root";
    String senha = "osmar1234";
    String driverName = "com.mysql.jdbc.Driver";

    try {
      Class.forName(driverName).newInstance();
      Connection conn = DriverManager.getConnection(databaseURL, usuario, senha);

      // vamos obter um objeto da classe com.mysql.jdbc.DatabaseMetaData
      DatabaseMetaData dbmd = conn.getMetaData();

      // vamos obter os tipos de tabelas suportadas por esta versão do MySQL
      ResultSet tiposTabelas = dbmd.getTableTypes();
      while(tiposTabelas.next()){
        System.out.println(tiposTabelas.getString("TABLE_TYPE"));
      }
      
      // vamos fechar o ResultSet
      tiposTabelas.close();
    }
    catch (SQLException ex) {
      System.out.println("SQLException: " + ex.getMessage());
      System.out.println("SQLState: " + ex.getSQLState());
      System.out.println("VendorError: " + ex.getErrorCode());
    }
    catch (Exception e) {
      System.out.println("Problemas ao tentar conectar com o banco de dados: " + e);
    }
  }
}

count(substring[, início[, fim]])

# função principal do programa
def main():
  frase = "Gosto de Python porque Python é muito bom"
 
  # conta as ocorrências de "Python"
  print("\"Python\" ocorreu", frase.count("Python"), "vezes.")
  
if __name__== "__main__":
  main()