<?
  // constrói um novo objeto mysqli chamado conexao
  $conexao = new mysqli("localhost", "root",
    "osmar1234", "estudos");
 
  // testa se a conexão foi efetuada com sucesso
  if(mysqli_connect_errno()){
    die("Houve um erro de conexão: " . mysqli_connect_error());
  } 
  else{
    print "Conexão com " . $conexao->host_info 
      . " efetuada com sucesso.";
  } 

  // fecha a conexão com o banco de dados
  $conexao->close(); // fecha a conexão
?>

=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

procedure TForm1.Button1Click(Sender: TObject);
var
  hora: TDateTime;
begin
  // vamos obter a hora atual
  hora := Time();

  // podemos também usar a função GetTime()
  //hora := GetTime();

  // vamos exibir o resultado
  ShowMessage(TimeToStr(hora));
end;

* (+ 5 (* 2 4))

* (quit)

; Este programa talvez seja um dos mais básicos
; que podem ser escritos em Common Lisp
(defun Primeiro()
  ; Vamos mostrar uma mensagem de boas-vindas
  (write-line "Bem-vindo(a) à Common Lisp")
)

; Efetua uma chamada automática ao programa
(Primeiro)

public char getKeyChar()

package estudos;

import java.awt.Container;
import java.awt.FlowLayout;
import java.awt.event.KeyEvent;
import java.awt.event.KeyListener;
import javax.swing.JFrame;
import javax.swing.JOptionPane;

public class Janela extends JFrame implements KeyListener{
  public Janela(){
    super("Eventos do Teclado");
    Container c = getContentPane();
    FlowLayout layout = new FlowLayout(FlowLayout.LEFT);
    c.setLayout(layout);
    
    // vamos adicionar o objeto listener 
    addKeyListener(this);

    setSize(350, 250);
    setVisible(true);
  }
    
  @Override
  public void keyPressed(KeyEvent e){
    // sem implementação
  }
    
  @Override
  public void keyReleased(KeyEvent e){
    // sem implementação
  }

  @Override
  public void keyTyped(KeyEvent e){
    // vamos obter o caractere que foi digitado
    char letra = e.getKeyChar();
    // mostra o caractere digitado
    JOptionPane.showMessageDialog(null, "O caractere pressionado foi: " + letra);
  }   
  
  public static void main(String args[]){
    Janela j = new Janela();
    j.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  }
}

java.lang.Object
  java.lang.Throwable
    java.lang.Error
      java.lang.VirtualMachineError
        java.lang.OutOfMemoryError

Velocidade do carro: 85
Você foi multado.
A multa a ser paga é: 25.0

Velocidade do carro: 75
Você não foi multado

Velocidade do carro: 110
Você foi multado.
A multa a ser paga é: 150.0

algoritmo "Calcular a velocidade de um carro em VisuAlg"

var
  // variáveis usadas na resolução do problema
  velocidade, multa: real

// função principal do programa
inicio
  // vamos pedir para o usuário informar a velocidade
  // do carro
  escreva("Informe a velocidade do carro: ")
  leia(velocidade)

  // vamos verificar se o usuário foi multado
  se (velocidade > 80) entao
    escreval("Você foi multado.")
    // vamos calcular a multa
    multa <- (velocidade - 80) * 5.0
    escreval("A multa a ser paga é: ", multa)
  senao
    escreval("Você não foi multado")
  fimse

  escreval()

fimalgoritmo

<script type="text/javascript">
<!--
  function obterAtributo(){
    // Este exemplo mostra como obter o valor do 
    // atributo value de uma caixa de texto com 
    // o id "nome"
	
    var valor = $('#nome').attr("value");
    window.alert(valor);
  }
//-->
</script>

package arquivodecodigos;

import java.util.*;
 
public class Estudos{
  public static void main(String[] args){
    Integer[] valores = new Integer[5];
  
    // inicializa os elementos do array
    valores[0] = 1;
    valores[1] = 2;
    valores[2] = 3;
    valores[3] = 4;
    valores[4] = 5;
     
    List lista = Arrays.asList(valores);
 
    // percorre a lista
    for(int i = 0; i < lista.size(); i++){
      Integer valor = (Integer)(lista.get(i));
      System.out.println(valor.toString());
    }
   
    System.exit(0);
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  valor1, valor2, soma: Double;
begin
  // vamos receber as strings dos TEdits e converter
  // seus valores para números de ponto-flutuante
  // note que em Delphi, um valor de ponto-flutuante
  // é informado em caixas de texto usando vírgula. Ex: 7,3
  valor1 := StrToFloat(Edit1.Text);
  valor2 := StrToFloat(Edit2.Text);

  // vamos obter a soma dos dois valores
  soma := valor1 + valor2;

  // vamos exibir o resultado. Note o uso de FloatToStr() para
  // converter o valor fracionário em string
  ShowMessage('A soma é: ' + FloatToStr(soma));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valor: Double;
begin
  // vamos tentar converter o valor da caixa de texto
  // em um valor de ponto-flutuante
  if TryStrToFloat(Edit1.Text, valor) then
    ShowMessage('Conversão efetuada com sucesso.')
  else
    ShowMessage('Erro na conversão');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valor: Double;
begin
  // vamos converter o valor da caixa de texto
  // em um valor de ponto-flutuante. Se a conversão não puder
  // ser feita o valor 10,50 será atribuído à varial valor
  valor := StrToFloatDef(Edit1.Text, 10.50);

  // vamos exibir o resultado
  ShowMessage(FloatToStr(valor));
end;