from datetime import datetime
import locale

def main():
  # Configurações do usuário
  locale.setlocale(locale.LC_ALL, '')
 
  # Obtém um datatime da data e hora atual
  hoje = datetime.today()
 
  # Exibe o nome do mês no formato curto
  print(hoje.strftime("O mês é: %b"))  
 
if __name__== "__main__":
  main()

// declara um vetor de 10 inteiros
valores: vetor[1..10] de inteiro

Informe um valor: 4
O valor foi encontrado: 3 vezes

Informe um valor: 8
O valor foi encontrado: 1 vezes

Informe um valor: 3
O valor foi encontrado: 0 vezes

algoritmo "Contar quantas vezes um elemento repete em um vetor"

var
  // variáveis usadas na resolução do problema
  valores: vetor[1..10] de inteiro
  pesquisa, repeticoes, i: inteiro

inicio
  // inicializa um vetor de 10 inteiros
  valores[1] <- 4
  valores[2] <- 21
  valores[3] <- 9
  valores[4] <- 8
  valores[5] <- 12
  valores[6] <- 21
  valores[7] <- 4
  valores[8] <- 4
  valores[9] <- 1
  valores[10] <- 10

  // vamos ler um valor inteiro
  escreva("Informe um valor: ")
  leia(pesquisa)

  // vamos verificar quantas vezes o valor informado está
  // contido no vetor
  repeticoes <- 0
  para i de 1 ate 10 faca
    se valores[i] = pesquisa entao
      // encontrou? vamos contar esta ocorrência
      repeticoes <- repeticoes + 1
    fimse
  fimpara

  // vamos mostrar o resultado
  escreva("O valor foi encontrado: ", repeticoes, " vezes")

fimalgoritmo

require "fileutils"

# nome e caminho do diretório a ser criado
diretorio = "C:\\estudos_ruby\\escola"

# cria o diretório
if FileUtils.mkdir diretorio
  puts "Diretório criado com sucesso"
else
  puts "Não foi possível criar o diretório"
end

C:/ruby/lib/ruby/1.8/fileutils.rb:243:in `mkdir': File 
  exists - estudos (Errno::
EEXIST)
  from C:/ruby/lib/ruby/1.8/fileutils.rb:243:in `fu_mkdir'
  from C:/ruby/lib/ruby/1.8/fileutils.rb:172:in `mkdir'
  from C:/ruby/lib/ruby/1.8/fileutils.rb:171:in `each'
  from C:/ruby/lib/ruby/1.8/fileutils.rb:171:in `mkdir'
  from estudos.rb:7

SimpleXMLElement simplexml_load_file(string $filename [, 
  string $class_name = "SimpleXMLElement" [, int $options = 0 
  [, string $ns = "" [, bool $is_prefix = false]]]])

<?xml version="1.0" encoding="iso-8859-1"?>
<cadastro>
  <cliente id="14" ativo="true">
     <nome>Osmar J. Silva</nome>
     <email>osmar@arquivodecodigos.com.br</email>
  </cliente>
  <cliente id="75" ativo="false">
     <nome>Cintia Gomes Arantes</nome>
     <email>cintia@arquivodecodigos.com.br</email>
  </cliente>
</cadastro>

<?
  $xml = simplexml_load_file("clientes.xml");
  print_r($xml);
?>

SimpleXMLElement Object ( [cliente] => Array ( 
  [0] => SimpleXMLElement Object ( [@attributes] => Array ( 
  [id] => 14 [ativo] => true ) [nome] => Osmar J. Silva 
  [email] => osmar@arquivodecodigos.net ) [1] => 
  SimpleXMLElement Object ( [@attributes] => Array ( 
  [id] => 75 [ativo] => false ) [nome] => Cintia Gomes Arantes 
  [email] => cintia@arquivodecodigos.net ) ) )

<?
  // carrega o arquivo XML e o converte em um objeto SimpleXMLElement
  $xml = simplexml_load_file("clientes.xml");
  
  // vamos mostrar os dados do primeiro cliente
  echo "Nome: " . $xml->cliente[0]->nome . "<br>";
  echo "E-Mail: " . $xml->cliente[0]->email;
?>

Nome: Osmar J. Silva
E-Mail: osmar@arquivodecodigos.com.br

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

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

  for(i = 0; i <= 10; i++){
    printf("%d  ", i);

    if(i == 6)
      break; // sai do laço
  }

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