<?php
  // classe Produto com duas variáveis privadas e seus
  // correspondentes métodos mutatórios e acessórios
  class Produto{
    private $nome;
    private $preco;

    public function setNome($nome){
      $this->nome = $nome;
    }

    public function getNome(){
      return $this->nome;
    }

    public function setPreco($preco){
      $this->preco = $preco;
    }

    public function getPreco(){
      return $this->preco;
    }
  }
?>

<?php
  // classe Pessoa com duas variáveis privadas e um método
  // estático
  class Pessoa{
    private $nome;
    private $idade;
    
    // um método estático que permite verificar a validade
    // de um número de CPF
    public static function isCPFValido($cpf){
      // alguma rotina aqui
      return true;
    }
  }

  // vamos efetuar uma chamada ao método isCPFValido() sem
  // criar uma instância da classe Pessoa
  if(Pessoa::isCPFValido("12345")){
    echo "CPF Válido";
  }
  else{
    echo "CPF inVálido";
  }
?>

Imports System

Module Program
  Sub Main(args As String())
    ' os coeficientes
    Dim a, b, c As Double
    ' as duas raizes, a imaginaria e o discriminante
    Dim raiz1, raiz2, imaginaria, discriminante As Double

    ' vamos pedir para o usuário informar os valores dos coeficientes
    Console.Write("Valor do coeficiente a: ")
    a = Double.Parse(Console.ReadLine())
    Console.Write("Valor do coeficiente b: ")
    b = Double.Parse(Console.ReadLine())
    Console.Write("Valor do coeficiente c: ")
    c = Double.Parse(Console.ReadLine())

    ' vamos calcular o discriminante
    discriminante = (b * b) - (4 * a * c)

    ' a equação possui duas soluções reais?
    If discriminante > 0 Then
      raiz1 = (-b + Math.Sqrt(discriminante)) / (2 * a)
      raiz2 = (-b - Math.Sqrt(discriminante)) / (2 * a)
      Console.Write("Existem duas raizes: x1 = " & raiz1 _
        & " e x2 = " & raiz2)
    ElseIf discriminante = 0 Then
      ' a equação possui uma única solução real?
      raiz1 = raiz2 = -b / (2 * a)
      Console.Write("Existem duas raizes iguais: x1 = " _
        & raiz1 & " e x2 = " & raiz2)
    ElseIf discriminante < 0 Then
      ' a equação não possui solução real?
      raiz1 = raiz2 = -b / (2 * a)
      imaginaria = Math.Sqrt(-discriminante) / (2 * a)
      Console.Write("Existem duas raízes complexas: x1 = " &
        raiz1 & " + " & imaginaria & " e x2 = " & raiz2 _
        & " - " & imaginaria)
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

from datetime import datetime

def main():
  # Obtém um datetime da data e hora atual
  hoje = datetime.today()
 
  # Exibe o conteúdo do datetime
  print("Hoje é: " + str(hoje))
 
if __name__== "__main__":
  main()

package arquivodecodigos;

import java.util.Scanner;

public class Estudos{
  public static void main(String[] args){
    double area, raio;
 
    Scanner in = new Scanner(System.in);
    System.out.print("Informe o raio do círculo: ");
    raio = Float.parseFloat(in.nextLine());
    area = Math.PI * Math.pow(raio, 2);
    System.out.println("A area do círculo de raio " +
      raio + " é igual a " + area);

    System.exit(0);
  }
}

# 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)