public class Estudos{
  public static void main(String[] args){
    String s1 = "Bom dia, ";
    String s2 = "meu caro amigo!";
    String s3 = s1 + s2;
     
    System.out.println(s3);
     
    System.exit(0);
  }
} 

// uma procedure recursiva
procedure Recursiva;
begin
  // chama a si própria
  Recursiva;
end;

// vamos chamar a procedure pela primeira vez
// a partir do Click de um botão
procedure TForm1.Button1Click(Sender: TObject);
begin
  Recursiva;
end;

// uma procedure recursiva que conta de 0 até 10
procedure Contar(valor: Integer);
begin
  // vamos exibir o valor atual
  ShowMessage(IntToStr(valor));

  // é hora de parar?
  if valor = 10 then
    ShowMessage('Terminei')
  else
    begin
      // chama a si própria (note que aumentamos o valor atual em 1)
      Inc(valor);
      Contar(valor);
    end;
end;

// vamos chamar a procedure pela primeira vez
// a partir do Click de um botão
procedure TForm1.Button1Click(Sender: TObject);
begin
  // chama a função recursiva fornecendo o valor inicial
  Contar(0);
end;

wxObject
  wxEvtHandler
    wxWindow
      wxControl
        wxButton

wx.Button(parent, id, label, pos, size=wxDefaultSize, 
  style=0, validator, name="button")

wxButton(wxWindow* parent, wxWindowID id, 
  const wxString& label = wxEmptyString, 
  const wxPoint& pos = wxDefaultPosition, const 
  wxSize& size = wxDefaultSize, long style = 0, 
  const wxValidator& validator = wxDefaultValidator,
  const wxString& name = "button")

# Cria um botão e o adiciona no painel
btn = wx.Button(panel, label="Clique Aqui", 
  pos=(10, 10), size=(100, 25))

Primeiro número: 4
Segundo número: 8
Terceiro número: 11
Ordem Crescente

# função principal do programa
def main():
  # vamos ler três números do usuário
  a = int(input("Primeiro número: "))
  b = int(input("Segundo número: "))
  c = int(input("Terceiro número: "))
  
  # os números estão em ordem crescente?
  if a < b and b < c:
    print("Ordem Crescente")
  # os números estão em ordem decrescente?
  elif a > b and b > c:
    print("Ordem Decrescente")
  # sem ordem definida
  else:
    print("Sem ordem definida")

if __name__== "__main__":
  main()

' Esta macro AutoCAD VBA demonstra como podemos
' calcular a distância entre dois pontos na área de
' desenho do AutoCAD
Sub DistanciaDoisPontos()
  ' vamos declarar os dois pontos geométricos
  Dim p As Variant
  Dim q As Variant
  ' para guardar as coordenadas temporárias
  Dim x As Double, y As Double, z As Double
  ' para guardar a distância
  Dim distancia As Double

  ' vamos pedir para o usuário informar os dois pontos
  p = ThisDrawing.Utility.GetPoint(, vbCrLf & _
    "Indique o primeiro ponto: ")
  q = ThisDrawing.Utility.GetPoint(p, vbCrLf & _
    "Indique o segundo ponto: ")

  ' agora calculamos a distância entre os dois pontos informados
  x = p(0) - q(0)
  y = p(1) - q(1)
  z = p(2) - q(2)
  distancia = Sqr((Sqr((x ^ 2) + (y ^ 2)) ^ 2) + (z ^ 2))
 
  ' e mostramos o resultado
  MsgBox "A distância entre os dois pontos é: " & distancia
End Sub