System.TObject
  Classes.TPersistent
    Classes.TComponent 
      Controls.TControl
        Controls.TWinControl
          Controls.TCustomControl
            Grids.TCustomGrid
              DBGrids.TCustomDBGrid
                DBGrids.TDBGrid

procedure TForm3.Button2Click(Sender: TObject);
begin
  DBGrid1.DataSource := DataSource1;
end;

O primeiro elemento do array é: 9 

#include <iostream>

using namespace std;

// função principal do programa
int main(int argc, char *argv[]){
  // vamos criar um array de inteiros
  int valores[] = {9, 5, 3, 2, 4, 8};
    
  // agora vamos retornar o primeiro elemento do vetor
  int primeiro = valores[0];
    
  // e mostramos o resultado
  cout << "O primeiro elemento do array é: " << primeiro << endl;
  
  cout << "\n\n";
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}

; Vamos definir as variáveis que vamos
; usar no programa
(defvar raio)
(defvar area)

; Este o programa principal
(defun AreaCirculo()
  ; Vamos ler o raio do círculo
  (princ "Informe o raio do círculo: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  ; atribui o valor lido à variável raio
  (setq raio (read))
  
  ; calcula a área do círculo
  (setq area (* pi (expt raio 2)))
  
  ; E mostramos o resultado
  (format t "A área do círculo de raio ~F é ~F" raio
    area)
)

; Auto-executa a função AreaCirculo()
(AreaCirculo)

#include <string>
#include <iostream>
 
using namespace std;
 
// função principal do programa C++ 
int main(int argc, char *argv[]){
  // vamos declarar um objeto da classe string
  string palavra("FACULDADE");
  
  // agora criamos um iterador para a string
  string::iterator it;
   
  // e usamos um laço for para percorrer o iterador
  // do início ao fim 
  for(it = palavra.begin(); it < palavra.end(); it++){
    // e mostramos os caracteres individuais
    cout << *it << "\n";
  } 
     
  cout << "\n" << endl;	    
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}

# vamos importar o módulo Math
import math

# vamos declarar a classe Circulo
class Circulo:
  # construtor da classe
  def __init__(self, xc, yc, raio):
    self.xc = xc
    self.yc = yc
    self.raio = raio
  
# agora vamos declarar a classe Ponto
class Ponto:
  def __init__(self, x, y):
    self.x = x # coordenada x
    self.y = y # coordenada y	

# método principal
def main():
  # vamos criar um objeto Circulo
  c = Circulo(205, 166, 115)
  # vamos criar um objeto Ponto
  p = Ponto(140, 90)
  
  # vamos verificar se o ponto está dentro do
  # círculo
  dx = p.x - c.xc;
  dy = p.y - c.yc;
  
  if((math.pow(dx, 2) + math.pow(dy, 2)) < math.pow(c.raio, 2)):
    print("O ponto está dentro do círculo")
  else:
    print("O ponto NÃO está dentro do círculo")

if __name__== "__main__":
  main()