<?php
  $frase = "PHP? Gosto muito de PHP e Java. Mas prefiro PHP e Delphi";
  $palavra = "PHP";
  
  // primeiro vamos verificar se a palavra está contida na frase
  if(strpos($frase, $palavra) !== false){
     // agora vamos obter as posições de todas as ocorrências
     $posicoes = array();
     $offset = 0;
     $posicao = -1;
     
     while($offset < strlen($frase)){
	$posicao = strpos($frase, $palavra, $offset);
	if($posicao !== false){
	   $posicoes[] = $posicao;
	   $offset = $posicao + strlen($palavra);
	}
	else{
	   $offset++;
	}
     }
	 
     // percorre a matriz de posições e informa o usuário
     echo "A palavra foi encontrada nas posições: ";
     for($i = 0; $i < count($posicoes); $i++){
	echo $posicoes[$i] . ", "; 
     }
  }
  else{
     echo "A palavra não está contida na string"; 
  }
?>

# Cria um array de inteiros com duplicações
valores = [2, 3, 3, 5, 5, 6, 3]

# Exibe os valores do array original
puts "Os valores do array são:\n"
valores.each do | valor |
  print valor.to_s + " "
end

# Obtém um novo array sem as duplicações
valores2 = valores.uniq
puts "\n\nO novo array sem repetições:\n"
valores2.each do | valor |
  print valor.to_s + " "
end

# Remove as duplicações do array original
valores.uniq!
puts "\n\nO array original sem repetições:\n"
valores.each do | valor |
  print valor.to_s + " "
end

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos ativar o client dataset
  ClientDataSet1.Active := True;

  // vamos testar se o client dataset foi mesmo ativado
  if ClientDataSet1.Active then
    ShowMessage('O ClientDataSet está ativo')
  else
    ShowMessage('O ClientDataSet  NÃO está ativo')
end;

using System;
using System.IO;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      // vamos criar uma instância da classe DirectoryInfo
      DirectoryInfo dir = new DirectoryInfo(@"C:\estudos_csharp\teste");
      try {
        // vamos chamar o método MoveTo() para renomear o diretório
        dir.MoveTo(@"C:\estudos_csharp\teste_2");
        Console.WriteLine("Diretório renomeado com sucesso.");
      }
      catch (Exception e) {
        Console.WriteLine("Não foi possível renomear o diretório: {0}", e.ToString());
      }
      finally { }

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

Module Module1
  Sub Main()
    Dim principal As Double = 2000.0
    Dim taxa As Double = 0.08 '8%
    Dim meses As Integer = 2

    Dim juros As Double = principal * taxa * meses

    Console.WriteLine("O total de juros a ser pago é: " _
       & juros)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module

Module Module1
  Sub Main()
    Dim principal As Double = 2000.0
    Dim taxa As Double = 0.08 '8%
    Dim meses As Integer = 2

    Dim juros As Double = principal * taxa * meses
    Dim montante As Double = principal * (1 + (taxa * meses))

    Console.WriteLine("O total de juros a ser pago é: " _
       & juros)
    Console.WriteLine("O montante a ser pago é: " & montante)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module