; programa LISP que converte radianos em graus
(let((radianos)(graus))
  ; valor em radianos
  (setq radianos 1.5)
  ; obtém o valor em graus
  (setq graus (* radianos (/ 180 pi)))
  
  ; mostra o resultado
  (format t "~F radianos em graus é ~F" radianos
    graus)
)

private void button2_Click(object sender, EventArgs e){
  // vamos definir o caractere a ser usado como máscara para a
  // digitação dos caracteres de senha
  textBox1.PasswordChar = '*';
}

private void button2_Click(object sender, EventArgs e){
  // vamos definir o caractere a ser usado como máscara para a
  // digitação dos caracteres de senha
  textBox1.PasswordChar = '*';

  // vamos obter o caractere usado como máscara para a digitação
  // dos caracteres de senha
  char letra = textBox1.PasswordChar;
  MessageBox.Show("O caractere usado para a propriedade PasswordChar é: " +
    letra);
}

private void button2_Click(object sender, EventArgs e){
  // queremos que o caractere usado como máscara para a digitação
  // de senhas seja o mesmo do sistema
  textBox1.UseSystemPasswordChar = true;
}

procedure TForm1.Button1Click(Sender: TObject);
var
  frase, substring: string;
begin
  frase := 'Programar em Delphi é muito bom';

  // vamos obter a substring "Programar"
  substring := AnsiLeftStr(frase, 9);

  // vamos exibir o resultado
  ShowMessage('Resultado: ' + substring);
end;

=begin
  Este trecho de código mostra como ordenar
  um array de inteiros usando o método sort
  da classe Array.  
=end

# define um array de inteiros
valores = [10, 3, 56, 100, 34, 0, 4]

# exibe os valores na ordem original
puts "Ordem original:"
for valor in valores
  print valor.to_s + " "
end

# array ordenado
puts "\n\nOrdenado do menor para o maior:"
valores = valores.sort # ordena o array
for valor in valores
  print valor.to_s + " "
end

=begin
  Este trecho de código mostra como ordenar
  um array de inteiros usando o método sort
  da classe Array.  
=end

# define um array de inteiros
valores = [10, 3, 56, 100, 34, 0, 4]

# exibe os valores na ordem original
puts "Ordem original:"
for valor in valores
  print valor.to_s + " "
end

# array ordenado
puts "\n\nOrdenado do menor para o maior:"
valores.sort! # ordena o array
for valor in valores
  print valor.to_s + " "
end