// Podemos acessar os caracteres de uma string
// individualmente usando o método charAt. Este
// método requer o índice do caractere a ser
// retornado. O primeiro caractere possui o 
// índice 0. 

var str:String = "Arquivo de Códigos";

Alert.show("O terceiro caractere é: " +
  str.charAt(2));

Informe um número decimal: 9
O número binário é: 00000000000000000000000000001001

#include <string>
#include <iostream>

using namespace std;

// vamos definir o tamanho do vetor para guardar
// os dígitos do número binário
#define TAM_INT sizeof(int) * 8

int main(int argc, char *argv[]){
  // variáveis para ajudar a resolver o problema
  int decimal, indice, i;
  
  // vetor para guardar o número binário
  int binario[TAM_INT];

  // vamos pedir para o usuário informar um decimal inteiro
  cout << "Informe um número decimal: ";
  cin >> decimal;

  // ajustamos índice para o último elemento do vetor
  indice = TAM_INT - 1;

  // enquanto índice for maior ou igual a 0
  while(indice >= 0){
    // vamos guardar o bit menos significativo LSB
    binario[indice] = decimal & 1;
    
    // diminuímos o índice
    indice--;

    // desloca bits para a direita uma posição
    decimal = decimal >> 1;
  }

  // agora vamos exibir o número binário
  cout << "O número binário é: ";
  for(i = 0; i < TAM_INT; i++){
    cout << binario[i];
  }
 
  cout << "\n\n"; 
 
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS; 
}

; Vamos definir as variáveis que vamos
; usar no programa
(defvar numero)

; Este é o programa principal
(defun Estudos()
  ; Vamos ler o número
  (princ "Informe um número: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  ; atribui o valor lido à variável numero
  (setq numero (read))
  
  ; vamos testar se este número é maior que 10
  (if (> numero 10)
    (format t "~D é maior que 10~%" numero))
  
  ; E mostramos o número informado
  (format t "O número informado foi: ~D" numero)
)

; Auto-executa a função Estudos()
(Estudos)

// declara, constrói e inicializa um vetor de 5 inteiros
int valores[] = {4, 21, 8, 120, 1};

package estudos;

import javax.swing.JOptionPane;

public class Estudos {
  public static void main(String[] args) {
    // declara, constrói e inicializa um vetor de 5 inteiros
    int valores[] = {4, 21, 8, 120, 1};
        
    // vamos ler um valor inteiro
    int pesquisa = Integer.parseInt(JOptionPane.showInputDialog("Valor:"));
        
    // vamos verificar se o valor informado está contido no vetor
    boolean encontrado = false;
    for(int i = 0; i < valores.length; i++){
      if(valores[i] == pesquisa){
        encontrado = true;
        break;
      }
    }
        
    if(encontrado){
       JOptionPane.showMessageDialog(null, "O valor está no vetor");
    }
    else{
       JOptionPane.showMessageDialog(null, "O valor não está no vetor");
    }
  }
}

package arquivodecodigos;

import java.io.*;
 
public class Estudos{
  public static void main(String[] args){
    // nome e caminho do diretório     
    File diretorio = new File("C:\\estudos_c"); 
    // um vetor de arquivos
    File[] arquivos = diretorio.listFiles(); 
   
    // foram encontrados arquivos ou diretórios?
    if(arquivos != null){ 
      // obtemos a quantidade de arquivos
      int length = arquivos.length; 
   
      // e percorremos os arquivos individualmente
      for(int i = 0; i < length; ++i){ 
        File f = arquivos[i]; 
             
        // é um arquivo?
        if(f.isFile()){ 
          System.out.println(f.getName()); 
        } 
        else if(f.isDirectory()){ // é um diretório 
          System.out.println("Diretorio: " + f.getName()); 
        } 
      } 
    }     
  }
}

procedure TForm2.Button1Click(Sender: TObject);
var
  valor: Real;
  resultado: Integer;
begin
  // uses Math

  valor := 8.74;

  // vamos arredondar o valor para baixo
  // o resultado será 8
  resultado := Floor(valor);

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