var
  valores: array[1..10] of Integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  valores: array[1..10] of Integer;
begin
  valores[5] := 20;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valores: array[1..5] of Integer;
  i, soma: Integer;
begin
  // vamos preencher o array com os valores de 1 a 5
  for i := 1 to 5 do
    begin
      valores[i] := i;
    end;

  // vamos percorrer o array novamente e obter a soma dos
  // valores de seus elementos
  soma := 0;
  for i := 1 to 5 do
    begin
      soma := soma + valores[i];
    end;

  // vamos exibir o resultado
  ShowMessage('A soma dos valores é: ' + IntToStr(soma));
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  valores: array[1..5] of Integer = (3, 2, 6, 12, 9);
var
  i, soma: Integer;
begin
  // vamos percorrer o array novamente e obter a soma dos
  // valores de seus elementos
  soma := 0;
  for i := 1 to 5 do
    begin
      soma := soma + valores[i];
    end;

  // vamos exibir o resultado
  ShowMessage('A soma dos valores é: ' + IntToStr(soma));
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  letras: array[1..5] of Char = ('O', 's', 'm', 'a', 'r');
var
  i: Integer;
  resultado: String;
begin
  resultado := '';

  // vamos exibir a palavra na forma normal
  for i := 1 to 5 do
    resultado := resultado + letras[i];

  // exibe o resultado
  ShowMessage(resultado);

  // vamos exibir a palavra invertida
  resultado := '';
  for i := 5 downto 1 do
    resultado := resultado + letras[i];

  // exibe o resultado
  ShowMessage(resultado);
end;

void main() {
  int cont = 1;

  while (cont < 10) {
    print(cont);
    cont++; // aumenta cont em 1
  }
}

void main() {
  int cont = 0;
  int numero = 1;

  // queremos encontrar 10 múltiplos de 5 e 7
  while (cont < 10) {
    if ((numero % 5 == 0) && (numero % 7 == 0)) {
      print(numero);
      cont++;
    }

    // incrementa o número
    numero++;
  }
}

# método que recebe duas palavras e retorna
# verdadeiro se uma palavra for anagrama da
# outra
def anagramas(palavra1, palavra2):
  # o primeiro passo é verificar se os comprimentos das duas
  # palavras são iguais
  if(len(palavra1) != len(palavra2)):
    return False 

  # agora criamos dois dictionaries para as frequencias de
  # cada uma das palavras
  freq_p1 = {}
  freq_p2 = {}

  # agora registramos as frequências de letras na primeira
  # palavra
  for letra in palavra1:
    # a letra já está no dicionário?
    if letra in freq_p1:
      freq_p1[letra] += 1 # aumenta a frequêcia desta letra
    else:
      freq_p1[letra] = 1 # ainda não estava no dicionário

  # agora registramos as frequências de letras na segunda
  # palavra
  for letra in palavra2:
    # a letra já está no dicionário?
    if letra in freq_p2:
      freq_p2[letra] += 1 # aumenta a frequêcia desta letra
    else:
      freq_p2[letra] = 1 # ainda não estava no dicionário 

  # registradas as frequências de letras das duas palavras,
  # chegou a hora de compararmos os dois dicionários
  for chave in freq_p1:
    # esta chave não está no segundo dicionário ou
    # possui valores diferentes?
    if chave not in freq_p2  or freq_p1[chave] != freq_p2[chave]:
      return False 
  
  # se chegou até aqui então uma palavra é anagrama da outra
  return True 

def main():
  # vamos ler duas palavras e verificar se uma é anagrama da outra
  palavra1 = input("Informe a primeira palavra: ")
  palavra2 = input("Informe a segunda palavra: ")

  # vamos chamar o método que faz a verificação
  if(anagramas(palavra1, palavra2)):
    print("As duas palavras são anagramas")
  else:
    print("As duas palavras não são anagramas")

if __name__== "__main__":
  main()

package arquivodecodigos;

import java.util.Stack;
import javax.swing.*;
 
public class Estudos{
  // vamos precisar de uma pilha aqui
  static Stack<String> pilha = new Stack();
    
  public static void main(String args[]){
    // Exibe todas as superclasses de JPanel
    JPanel panel = new JPanel();
    obterSuperclasses(panel);
 
    // agora vamos exibir os resultados na ordem
    // contrária que eles foram obtidos
    int cont = 0;
    while(pilha.size() > 0){
      // insere espaços antes
      String ident = "";
      for(int i = 0; i < cont; i++){
        ident = ident + "   ";   
      }
        
      System.out.println(ident + pilha.pop());
      cont++;
    }
    
    System.exit(0);
  }
 
  static void obterSuperclasses(Object obj){
    // vamos adicionar este valor na pilha
    pilha.push(obj.getClass().getName());
      
    Class cls = obj.getClass();
    Class superclass = cls.getSuperclass();
    while(superclass != null){
      String className = superclass.getName();
      
      // vamos adicionar este valor na pilha
      pilha.push(className);
      
      cls = superclass;
      superclass = cls.getSuperclass();
    }
  }
} 

java.lang.Object
   java.awt.Component
      java.awt.Container
         javax.swing.JComponent
            javax.swing.JPanel

package arquivodecodigos;

import java.util.regex.*;
 
public class Estudos{ 
  public static void main(String args[]){ 
    String padrao = "\\s";
    Pattern regPat = Pattern.compile(padrao);
    String frase = "Esta frase contém alguns espaços"; 
    System.out.println(frase);
    Matcher matcher = regPat.matcher(frase);
    String res = matcher.replaceAll("");
    System.out.println("Sem espaços: " + res);
  } 
}