// função recursiva para calcular o fatorial
// de um determinado número
function fatorial(n: Integer): Integer;
begin
  if n = 0 then
    Result := 1
  else
    Result := n * fatorial(n - 1);
end;

// vamos chamar a função recursiva
// a partir do Click de um botão
procedure TForm1.Button1Click(Sender: TObject);
var
  res: Integer;
begin
  // vamos calcular o fatorial de 5
  res := fatorial(5);

  // vamos mostrar o resultado
  ShowMessage('O fatorial de 5 é: ' + IntToStr(res));
end;

# Cria uma tupla
valores = 4, 76, 2, 98, 4

# Exibe o valor do segundo elemento
print valores[1]

# Exibe todos os elementos
for valor in valores:
  print valor,

valores[4] = 50

Traceback (most recent call last):
  File "tuplas.py", line 19, in <module>
    valores[4] = 50
TypeError: 'tuple' object does not support item assignment

# Cria duas tuplas
valores = 4, 76, 2, 98, 4
letras = 'A', 'B', 'C'

# Atribue os elementos de letras a valores
valores = letras

# Exibe o resultado
print valores

valores = (4, 76, 2, 98, 4)

valores = (4,)

# Cria uma tupla contendo tipos diferentes
# de dados
cliente = (3, "Osmar J. Silva", "Goiânia", "GO", 35)

# Exibe o valor do 4º elemento
estado = cliente[3]
print estado

class Pessoa{ 
  public Pessoa(){
    System.out.println("Fui criado.");
  }
}
 
public class Estudos{ 
  public static void main(String args[]){ 
    // cria um objeto da classe Pessoa
    Pessoa p = new Pessoa();
  } 
}

class Pessoa{ 
  public String nome;
 
  public Pessoa(String nome){
    this.nome = nome;
  }
}
 
public class Estudos{ 
  public static void main(String args[]){ 
    // cria um objeto da classe Pessoa
    Pessoa p = new Pessoa("Osmar J. Silva");
    System.out.println(p.nome);
  } 
}

System.TObject
  Classes.TPersistent
    Classes.TComponent 
      Controls.TControl
        Controls.TWinControl
          Controls.TCustomControl
            Grids.TCustomGrid
              DBGrids.TCustomDBGrid
                DBGrids.TDBGrid

procedure TForm3.Button2Click(Sender: TObject);
begin
  DBGrid1.DataSource := DataSource1;
end;

private void button1_Click(object sender, EventArgs e) {
  MessageBox.Show("A ListBox contém " +
    listBox1.Items.Count + " itens");
}