#include <iostream>
#include <string>

using namespace std;
 
// função principal do programa 
int main(int argc, char *argv[]){
  // vamos criar uma nova string
  string palavra("FACULDADE");
   
  // agora vamos percorrer os caracteres individualmente  
  for(int i = 0; i < palavra.size(); i++){
    cout << palavra[i] << "\n";             
  }
   
  cout << "\n" << endl;
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}

procedure TForm1.Button1Click(Sender: TObject);
var
  hora: TDateTime;
begin
  // vamos obter a hora atual
  hora := Time();

  // podemos também usar a função GetTime()
  //hora := GetTime();

  // vamos exibir o resultado
  ShowMessage(TimeToStr(hora));
end;

// dois vetores de 5 inteiros cada
int a[] = {50, -2, 9, 5, 17};
int b[] = new int[5];

Valores no vetor a: 50   -2   9   5   17   
Valores no vetor b: -20   32   21   25   13

package estudos;

public class Estudos {
  public static void main(String[] args) {
    // dois vetores de 5 inteiros cada
    int a[] = {50, -2, 9, 5, 17};
    int b[] = new int[5];
    
    // vamos preencher o segundo vetor de forma que a soma dos
    // valores de seus elementos seja 30
    for(int i = 0; i < b.length; i++){
      b[i] = 30 - a[i];  
    }
    
    // vamos mostrar o resultado
    System.out.print("Valores no vetor a: ");
    for(int i = 0; i < a.length; i++){
      System.out.print(a[i] + "   ");  
    }
    
    System.out.print("\nValores no vetor b: ");
    for(int i = 0; i < b.length; i++){
      System.out.print(b[i] + "   ");  
    }
    
    System.out.println();
  }
}

System.TObject
  Classes.TPersistent
    Classes.TComponent
      DB.TDataSet
        DBClient.TCustomClientDataSet
          DBClient.TClientDataSet

procedure TForm3.Button1Click(Sender: TObject);
begin
  if (ClientDataSet1.ChangeCount > 0) then
    ClientDataSet1.ApplyUpdates(-1);
end;

package arquivodecodigos;

import java.io.*;
 
public class Estudos{
  public static void main(String[] args){
    try {
      DataInputStream in = new DataInputStream(new BufferedInputStream(
        new FileInputStream("C:\\java\\conteudo.txt")));
         
      while (in.available() != 0){
        System.out.print((char) in.readByte());
      }
    } 
    catch (IOException e){
      System.out.println("Erro: " + e.getMessage());
    }
 
    System.exit(0);
  }
}