procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  grid: TDBGrid;
  linha: Integer;
begin
  // obtém um referência ao DBGrid
  grid := sender as TDBGrid;

  // obtém o número da linha atual usando a propriedade
  // RecNo da classe TDataSet
  linha := grid.DataSource.DataSet.RecNo;

  // o número da linha é par?
  if Odd(linha) then
    grid.Canvas.Brush.Color := clWhite
  else
    grid.Canvas.Brush.Color := clYellow;

  // vamos terminar de desenhar a célula
  grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

#include <stdio.h>
#include <stdlib.h>
 
int main(int argc, char *argv[])
{
  char texto[] = "Gosto muito de C e C++";
  char letra[] = "o";
  char *pos_atual;
  int quant = 0;
 
  pos_atual = strpbrk(texto, letra);
  while(pos_atual != NULL){
    quant++;
    pos_atual = strpbrk(pos_atual + 1, letra);
  }
 
  printf("A letra \"%s\" foi encontrada %d vezes\n", 
    letra, quant);
 
  system("pause");
  return 0;
}

# 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
  a, b, menor: Integer;
begin
  // uses Math

  a := 34;
  b := 17;
  menor := Min(a, b);

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

#include <iostream>
#include <math.h>
#include <cstdlib>
 
using namespace std;
 
int main(int argc, char *argv[]){
  float a = 20; // medida do cateto oposto
  float b = 30; // medida do cateto adjascente
  
  // agora vamos calcular o comprimento da hipotenusa
  float c = sqrt(pow(a, 2) + pow(b, 2));
 
  // e mostramos o resultado
  cout << "O comprimento da hipotenusa é: " << c << "\n\n";
	 
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}