using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      string frase = "Gosto de Java e C#";

      // obtém o índice da primeira ocorrência
      int pos = frase.IndexOf("de");

      if (pos != -1) {
        Console.WriteLine("A substring foi encontrada" +
          " na posição " + pos);
      }
      else {
        Console.WriteLine("A substring não foi encontrada");
      }

      Console.WriteLine("\n\nPressione uma tecla para sair...");
      Console.ReadKey();
    }
  }
}

BOOL EnableWindow(          
  HWND hWnd,
  BOOL bEnable
);

void __fastcall TForm3::Button2Click(TObject *Sender)
{
  // vamos desabilitar o TEdit usando a função EnableWindow()
  // com o valor false
  if(EnableWindow(Edit1->Handle, false)){
	ShowMessage("A caixa de texto foi desabilitada com sucesso.");
  }
}

void __fastcall TForm3::Button2Click(TObject *Sender)
{
  // vamos habilitar o TEdit usando a função EnableWindow()
  // com o valor true
  if(EnableWindow(Edit1->Handle, true)){
	ShowMessage("A caixa de texto foi habilitada com sucesso.");
  }
}

# define o método
def escrever
  puts "Estou estudando Ruby"  
end

# efetua uma chamada ao método
escrever

# define o método
def escrever(texto, quant)
  quant.times do
    puts texto
  end
end

# efetua uma chamada ao método
escrever("Estou estudando Ruby", 5)

; variáveis que vamos usar no programa
(let ((num))
  ; Vamos ler um número inteiro
  (princ "Informe um valor inteiro: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  ; atribui o valor lido à variável num
  (setq num (read))
   
  ; vamos testar se o número informado é par ou ímpar 
  (cond
    ((= 0 (rem num 2))
      (princ "Você informou um número par"))
    (T (princ "Você informou um número ímpar"))
  )
)

# declara e inicializa uma variável string
frase = "Ruby? Gosto muito de Ruby"
puts "A frase é: " + frase

# vamos obter a quantidade de vezes em que a
# substring "Ruby" aparece na frase
quant = 0
substring = "Ruby"

frase.scan(substring){quant = quant + 1}

# exibe  o resultado
puts "A substring \"Ruby\" aparece " + quant.to_s \
  + " vezes"