<?php
  // vamos calcular o seno de três números
  echo "Seno de 0 = " . sin(0);
  echo "<br>Seno de 1 = " . sin(1);
  echo "<br>Seno de 2 = " . sin(2);
?>

# Este exemplo mostra como ler entrada do usuário
# a partir do teclado

print "Informe seu nome: "

# Lê a entrada
nome = gets

# Remove o caractere de fim de linha
nome = nome.chomp

# Exibe o resultado
puts "Seu nome é: #{nome}"

private void button1_Click(object sender, EventArgs e){
  // vamos verificar se a CheckBox está marcada ou desmarcada
  if(checkBox1.Checked)
    MessageBox.Show("A CheckBox está marcada");
  else
    MessageBox.Show("A CheckBox está desmarcada");
}

private void button1_Click(object sender, EventArgs e){
  // vamos verificar se a CheckBox está marcada ou desmarcada
  if(!checkBox1.Checked)
    MessageBox.Show("A CheckBox está desmarcada");
  else
    MessageBox.Show("A CheckBox está marcada");
}

procedure TForm3.Button3Click(Sender: TObject);
var
  nRegistro: Integer;
begin
  // obtém o número do registro atual no TClientDataSet
  nRegistro := ClientDataSet1.RecNo;

  // mostra o resultado
  ShowMessage('O número do registro atual é: ' + IntToStr(nRegistro));
end;