<script language="javascript">
<!--
  var valor1 = 43.2;
  var valor2;

  if(valor1 == undefined){
    document.write("A variável valor1 ainda não 
      foi inicializada");
  }
  if(valor2 == undefined){
    document.write("A variável valor2 ainda não 
      foi inicializada");
  }
//-->
</script>

# importamos a biblioteca NumPy
import numpy

def main():
  # valores a serem observados
  valores = [4, 9, 12, 25]

  # vamos obter a média aritmética simples
  media = numpy.mean(valores)

  # vamos mostrar o resultado
  print("A média dos valores é:", media)

if __name__== "__main__":
  main()

procedure TForm2.Button1Click(Sender: TObject);
var
  valor: Real;
  resultado: Integer;
begin
  // uses Math

  valor := 8.74;

  // vamos arredondar o valor para baixo
  // o resultado será 8
  resultado := Floor(valor);

  // exibe o resultado
  ShowMessage('O valor arredondado para baixo é: ' +
    IntToStr(resultado));
end;

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;

# uma list com nomes de pessoas
nomes = ['Carlos', 'Fabiana', 'Jorge']
print(nomes[0])
 
# uma list com valores inteiros
valores = [3, 7, 34, 0, 2]
print((valores[1] + valores[4]))
 
# uma lista vazia
lista = []
print(len(lista))

# função principal do programa
def main():
  # uma list com nomes de pessoas
  nomes = list(['Carlos', 'Fabiana', 'Jorge'])
  print("O nome escolhido é", nomes[0])
  
if __name__== "__main__":
  main()

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos alterar o valor da propriedade State para csCustomized
  DBGrid1.Columns.State := csCustomized;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos alterar o valor da propriedade State para csCustomized
  DBGrid1.Columns.State := csCustomized;

  // vamos adicionar uma nova coluna
  DBGrid1.Columns.Add;
end;