' Esta macro AutoCAD VBA demonstra como podemos
' calcular a distância entre dois pontos na área de
' desenho do AutoCAD
Sub DistanciaDoisPontos()
  ' vamos declarar os dois pontos geométricos
  Dim p As Variant
  Dim q As Variant
  ' para guardar as coordenadas temporárias
  Dim x As Double, y As Double, z As Double
  ' para guardar a distância
  Dim distancia As Double

  ' vamos pedir para o usuário informar os dois pontos
  p = ThisDrawing.Utility.GetPoint(, vbCrLf & _
    "Indique o primeiro ponto: ")
  q = ThisDrawing.Utility.GetPoint(p, vbCrLf & _
    "Indique o segundo ponto: ")

  ' agora calculamos a distância entre os dois pontos informados
  x = p(0) - q(0)
  y = p(1) - q(1)
  z = p(2) - q(2)
  distancia = Sqr((Sqr((x ^ 2) + (y ^ 2)) ^ 2) + (z ^ 2))
 
  ' e mostramos o resultado
  MsgBox "A distância entre os dois pontos é: " & distancia
End Sub

Informe um número inteiro: 153
O número informado é um número de Armstrong

package estudos;

import java.util.Scanner;

public class Estudos{ 
  public static void main(String args[]){ 
    // para efetuar a leitura da entrada do usuário
    Scanner entrada = new Scanner(System.in);
    
    // vamos pedir para o usuário informar um número
    System.out.print("Informe um número inteiro: ");
    int numero = Integer.parseInt(entrada.nextLine());
    
    // o primeiro passo é obter a quantidade de dígitos que o número informado
    // possui
    int quant_digitos = 0;
    int temp = numero;
    while(temp != 0) {
      quant_digitos = quant_digitos + 1;
      temp = temp / 10;
    }
    
    // agora efetuamos o cálculo que verifica se o número é um número
    // de Armstrong ou não
    int resto, soma = 0;
    temp = numero;
    while(temp > 0){
      resto = temp % 10;
      soma = soma + (int)(Math.pow(resto, quant_digitos));
      temp = temp / 10;
    }

    if(soma == numero){
      System.out.println("O número informado é um número de Armstrong");
    }
    else{
      System.out.println("O número informado não é um número de Armstrong");
    }
  } 
}

package arquivodecodigos;

import java.io.File;

public class Estudos{
  public static void main(String[] args){
    // arquivo com o nome antigo
    File arquivo1 = new File("c:\\java\\Conectar.java");
     
    // arquivo com o novo nome
    File arquivo2 = new File("c:\\java\\Conectar2.java");
     
    boolean ok = arquivo1.renameTo(arquivo2);
    if(ok){
      System.out.println("Arquivo renomeado com sucesso.");
    }
    else{
      System.out.println("Nao foi possivel renomear o arquivo.");
    }
  }
}

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
 
int main(int argc, char *argv[]){
  float c = 36.056; // medida da hipotenusa
  float a = 20; // medida do cateto oposto
  
  // agora vamos calcular a medida da cateto adjascente
  float b = sqrt(pow(c, 2) - pow(a, 2));
 
  // e mostramos o resultado
  printf("A medida do cateto adjascente é: %f", b);
 
  printf("\n\n");
  system("PAUSE");
  return 0;
}