#include <stdio.h>
#include <stdlib.h>

int main(int argc, char *argv[])
{
  int i = 1;

  for(;;){
    printf("%d  ", i);
    i++;

    if(i > 10)
      break; // sai do laço
  }

  printf("\n\n");
  system("PAUSE");
  return 0;
}

function FindField(const FieldName: string): TField;

procedure TForm3.Button3Click(Sender: TObject);
var
  campo: TField;
begin
  // vamos obter o campo com o nome "autor" no ClientDataSet
  campo := ClientDataSet1.FindField('autor');

  // este campo existe no dataset?
  if campo <> nil then
    ShowMessage('O campo existe e seu valor no registro atual é: ' +
      campo.AsString)
  else // o campo não existe no dataset
    ShowMessage('O campo não existe no dataset');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos obter a altura padrão das linhas
  // do TStringGrid
  Memo1.Lines.Add('A altura padrão das linhas do TStringGrid é: ' +
    IntToStr(StringGrid1.DefaultRowHeight));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos definir a altura padrão das linhas
  // do TStringGrid
  StringGrid1.DefaultRowHeight := 50;
end;

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
 
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
  printf("O comprimento da hipotenusa é: %f", c);
 
  printf("\n\n");
  system("PAUSE");
  return 0;
}