procedure TForm3.Button3Click(Sender: TObject);
var
  quantLinhas: Integer;
begin
  // vamos obter a quantidade de linhas no DBGrid
  quantLinhas := TStringGrid(DBGrid1).RowCount;

  // vamos mostrar o resultado
  ShowMessage('O DBGrid possui ' + IntToStr(quantLinhas) + ' linhas.');
end;

procedure TForm3.Button3Click(Sender: TObject);
var
  quantLinhas: Integer;
begin
  // vamos obter a quantidade de linhas no DBGrid
  quantLinhas := DBGrid1.DataSource.DataSet.RecordCount;

  // vamos mostrar o resultado
  ShowMessage('O DBGrid possui ' + IntToStr(quantLinhas) + ' linhas.');
end;

#include <stdio.h>
#include <stdlib.h>
 
// função que permite ordenar um vetor de inteiros
// usando a ordenação Insertion Sort
void insertionSort(int vetor[], int tam){
  int i, temp, j;
  
  // este laço varre os elementos a partir do segundo
  // elemento, ou seja, o índice 1
  for(i = 1; i < tam; i++){
    // guardamos o elemento atual em temp
    temp = vetor[i];
		
    for(j = i; ((j > 0) && (vetor[j - 1] > temp)); j--){ 
      vetor[j] = vetor[j - 1]; // houve uma troca
    }
    
    vetor[j] = temp; // colocamos temp em seu devido lugar
  }
}  
 
int main(int argc, char *argv[]){
  int valores[] = {4, 6, 2, 8, 1, 9, 3, 0, 11};
  int i, tamanho = 9;
 
  // imprime a matriz sem a ordenação
  puts("Sem ordenação:\n");
  for(i = 0; i < 9; i++){
    printf("%d ", valores[i]);
  }
 
  // vamos ordenar a matriz
  insertionSort(valores, tamanho);
 
  // imprime a matriz ordenada
  puts("\n\nOrdenada usando Insertion Sort:\n");
  for(i = 0; i < 9; i++){
    printf("%d ", valores[i]);
  }   
  
  printf("\n\n");
  system("PAUSE");
  return 0;
}

# função auxiliar que permite verificar se
# uma string termina com uma substring
def ends_with(string, substring)
  pos = string.length - substring.length
  
  if string.index(substring, pos) == pos   
    return true
  else
    return false
  end
end

# declara e inicializa uma variável string
frase = "Gosto muito de Java, PHP e Ruby"

# vamos verificar a string termina com "Ruby"
if ends_with(frase, "Ruby")
  puts "A string termina com \"Ruby\""
else
  puts "A string NÃO termina com \"Ruby\""
end

// uma variável usado para armazenar um valor inteiro
int valor;

static void Main(string[] args){
  // declara e inicializa uma variável do tipo double
  double salario = 2345.32;

  // exibe o valor da variável
  Console.WriteLine("Salário: {0}", salario);

  Console.WriteLine("\n\nPressione uma tecla para sair...");
  Console.ReadKey();
}

// declara três variáveis do tipo char
char a, b, c;

static void Main(string[] args){
  // declara três variáveis do tipo int
  int a, b, soma;

  // inicializa as duas primeiras variáveis
  a = 20;
  b = 10;

  // inicializa a terceira variável usando os valores
  // das duas anteriores
  soma = a + b;

  // exibe o resultado
  Console.WriteLine("Resultado: {0}", soma);

  Console.WriteLine("\n\nPressione uma tecla para sair...");
  Console.ReadKey();
}

Imports System

Module Program
  Sub Main(args As String())
    ' declara uma variável do tipo String
    Dim frase, nome, cidade As String

    nome = "Osmar"
    cidade = "Goiânia"
    frase = "Meu nome é "
    frase = String.Concat(frase, nome)
    frase = String.Concat(frase, " e eu moro em ",
      cidade)

    ' e mostramos o resultado
    Console.WriteLine(frase)

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