Ponto = class

private

// coordenada do ponto

x, y: double;

public

procedure setX(x: double) ;

procedure setY(y: double) ;

function getX() : double;

function getY() : double;

end;

C1 = class

private

x: double;

procedure aux;

public

procedure setX(x: double) ;

function getX() : double;

end;

DB = class

private

con: Conexao;

public

// o cliente deve invocar a funcao getConexao antes

// das demais para obter uma conexão com o banco

function getConexao() : Conexao;

procedure exeSQL (comando: String);

// outros métodos

end;

C1 = class

private

x: double;

public

procedure setX(x: double) ;

function getX() : double;

protected

procedure dobraX();

end;

ComandoSQL = class

public

function executaConsulta (comando: String) : ResultSet;

procedure executaAtualizacao (comando: String);

end;