package estudos;

public class Estudos{
  public static void main(String[] args){
    // vamos criar uma string representando uma frase
    String frase = "Programar em Java só é melhor que programar em Java";
    
    // a substring que vamos pesquisar
    String sub = "Java"; // ocorrências de "Java"
    
    // quantidade de ocorrências
    int cont = 0;
    
    // um laço for que vai de 0 até o tamanho da primeira string menos
    // o tamanho da segunda string - 1
    for(int i = 0; i < (frase.length() - sub.length() + 1); i++){
      String res = frase.substring(i, (i + sub.length()));
      
      // encontramos a substring mais uma vez?
      if(res.equals(sub)){
        cont++;
      }
    }
    
    System.out.println("A frase contém " + cont + " ocorrências de " + sub);
    
    // fecha o programa
    System.exit(0);
  }
}  

<?php
/*
  Este exemplo mostra como obter a quantidade de
  elementos em um array usando sizeof().
*/

$pessoas[0] = "Carlos";
$pessoas[1] = "Juliana";
$pessoas[2] = "Igor";
$pessoas[3] = "Marcelo";
$pessoas[4] = "Amélia";

$tam = sizeof($pessoas);

echo "O array contém " . $tam . " elementos.";
?>

// uma função recursiva para elevar uma determinada
// base ao seu expoente
function potencia(base, expoente: Integer): Integer;
begin
  if expoente = 0 then
    Result := 1
  else
    Result := base * potencia(base, expoente - 1);
end;

// vamos chamar a função recursiva
// a partir do Click de um botão
procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos obter o resultado de 4 elevado a 3
  ShowMessage('4 ao cubo é igual a: ' +
    IntToStr(potencia(4, 3)));
end;

<?php
  // x e y do primeiro ponto
  $x1 = 3;
  $y1 = 6;
    
  // x e y do segundo ponto
  $x2 = 9;
  $y2 = 10;   
     
  $m = ($y2 - $y1) / ($x2 - $x1);
     
  // mostramos o resultado
  echo "O coeficiente angular é: " . $m;
?>

<?php
  // x e y do primeiro ponto
  $x1 = 3;
  $y1 = 6;
    
  // x e y do segundo ponto
  $x2 = 9;
  $y2 = 10;   
     
  // vamos obter o comprimento do cateto oposto
  $cateto_oposto = $y2 - $y1;
  // e agora o cateto adjascente
  $cateto_adjascente = $x2 - $x1;
  // vamos obter o ângulo tetha, ou seja, a inclinação da hipetunesa
  // (em radianos, não se esqueça)
  $tetha = atan2($cateto_oposto, $cateto_adjascente);
  // e finalmente usamos a tangente desse ângulo para calcular
  // o coeficiente angular
  $tangente = tan($tetha);
     
  // mostramos o resultado
  echo "O coeficiente angular é: " . $tangente;
?>