procedure TForm3.ComboBox1Select(Sender: TObject);
begin
  // vamos mostrar o novo item selecionado
  ShowMessage('O novo item selecionado é: ' +
    ComboBox1.Items[ComboBox1.ItemIndex]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // vamos selecionar o segundo item na ListBox
  ListBox1.ItemIndex := 1; // o índice do primeiro item é 0

  // note que este código não funciona para ListBoxes de
  // seleção múltipla
end;

 
package arquivodecodigos;
 
public class Estudos{
  public static void main(String[] args){
    int[] valores = new int[5];
  
    // inicializa os elementos do array
    valores[0] = 23;
    valores[1] = 65;
    valores[2] = 2;
    valores[3] = 87;
    valores[4] = 34;
     
    // obtém o menor valor
    int menor = menor(valores);
     
    System.out.println("O menor valor é: " + menor);
   
    System.exit(0);
  }
 
  public static int menor(int[] a){
    int min = a[0];
    for(int i = 1; i < a.length; i++){
      if(a[i] < min){
        min = a[i];
      }
    }
     
    return min;
  }
}

// pacote principal
package main

// vamos importar o módulo de formatação de
// entrada e saída
import "fmt"
  
// esta é a função principal do programa
func main() {
  // variáveis que vamos usar na resolução do problema
  var x1, y1, x2, y2, m, n float32
  var sinal string

  // vamos ler as coordenadas do primeiro ponto
  fmt.Print("Coordenada x do primeiro ponto: ")
  fmt.Scanln(&x1)
  fmt.Print("Coordenada y do primeiro ponto: ")
  fmt.Scanln(&y1)
    
  // vamos ler as coordenadas do segundo ponto
  fmt.Print("Coordenada x do segundo ponto: ")
  fmt.Scanln(&x2)
  fmt.Print("Coordenada y do segundo ponto: ")
  fmt.Scanln(&y2)
  
  sinal = "+"
  // vamos calcular o coeficiente angular da reta
  m = (y2 - y1) / (x2 - x1)
  // vamos calcular o coeficiente linear
  n = y1 - (m * x1)
 
  // coeficiente linear menor que zero? O sinal será negativo
  if n < 0 {
    sinal = "-"
    n = n * -1
  }
  
  // mostra a equação reduzida da reta
  fmt.Printf("Equação reduzida: y = %.2fx %s %.2f",
    m, sinal, n);
}

>> y = (-0.75 * 3) + 8.75
y = 6.5000

Informe um valor inteiro: 8
O valor 8 é potência de dois
Informe um valor inteiro: 34
O valor 34 não é potência de dois
Informe um valor inteiro: 64
O valor 64 é potência de dois

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

// função que recebe um número inteiro e informe se ele é
// potência de dois
int is_potencia_dois(int n){
  // usamos o operador AND de bits para verificar se n AND n-1
  // é igual a 0
  return (n > 0) && (n & (n - 1)) == 0;
}

int main(int argc, char *argv[]){
  // variáveis usadas para 
  int valor;
  
  setlocale(LC_ALL,""); // para acentos do português
 
  // vamos pedir para o usuário informar um valor inteiro
  printf("Informe um valor inteiro: ");
  scanf("%d", &valor);
    
  // vamos testar se o número informado é potência de dois
  if(is_potencia_dois(valor)){
    printf("O valor %d é potência de dois", valor);
  }
  else{
    printf("O valor %d não é potência de dois", valor);
  }
 
  printf("\n\n");
  system("PAUSE");	
  return 0;
}