textArea = new JTextArea(10, 20);     
String selecionado = textArea.getSelectedText();

# Definição da classe Cliente
class Cliente
   attr_reader :nome, :idade
   
   def initialize(nome, idade)
      @nome = nome
      @idade = idade
   end
    
   def obter_nome
      @nome
   end
    
   def obter_idade
      @idade
   end
end

# Cria uma instância da classe Cliente e inicializa as
# variáveis de instância @nome e @idade
cliente = Cliente.new("Osmar J. Silva", 35)

# Acessa as variáveis de instância sem a necessidade de
# métodos acessórios
puts cliente.nome
puts cliente.idade

puts cliente.nome

teste.rb:25: undefined method `nome' for 
#<Cliente:0x27f540c @nome="Osmar J. S
ilva", @idade=35> (NoMethodError)

Informe a primeira nota: 8
Informe a segunda nota: 7.4
A média obtida foi: 7.7
Aprovado

package estudos;

import java.util.Scanner;

public class Estudos {
  public static void main(String[] args) {
    Scanner entrada = new Scanner(System.in);  
    
    // vamos solicitar as duas notas do aluno
    double n1, n2, media;
    System.out.print("Informe a primeira nota: ");
    n1 = Double.parseDouble(entrada.nextLine());
    System.out.print("Informe a segunda nota: ");
    n2 = Double.parseDouble(entrada.nextLine());
    
    // vamos calcular a média aritmética
    media = (n1 + n2) / 2;
    System.out.println("A média obtida foi: " + media);
    
    // vamos verificar se o aluno foi reprovado, está de exame ou aprovado
    if(media < 4.0){ // reprovado
      System.out.println("Reprovado");
    }
    else if((media >= 4.0) && (media < 7.0)){ // exame
      System.out.println("Exame");
    }
    else{
      System.out.println("Aprovado");  
    }
    
    System.out.println("\n");
  }
}

from datetime import datetime
import locale

def main():
  # Configurações do usuário
  locale.setlocale(locale.LC_ALL, "")

  # Obtém um datatime da data e hora atual
  hoje = datetime.today()

  # Exibe o nome do mês no formato longo
  print(hoje.strftime("O mês é: %B"))

if __name__== "__main__":
  main()

LRESULT SendMessage(          
  HWND hWnd,
  UINT Msg,
  WPARAM wParam,
  LPARAM lParam
);

// Protótipo
{$EXTERNALSYM SendMessage}
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; 
  lParam: LPARAM): LRESULT; stdcall;

// Implementação
function SendMessage; external user32 name 'SendMessageW';

procedure TForm1.Button1Click(Sender: TObject);
var
  tamanho: Integer;
begin
  // vamos obter a quantidade de caracteres na caixa de texto
  tamanho := SendMessage(Edit1.Handle, WM_GETTEXTLENGTH, 0, 0);

  // vamos exibir o resultado
  ShowMessage('O edit contém ' + IntToStr(tamanho) + ' caracteres.');
end;