Imports System

Module Program
  Sub Main(args As String())
    ' vamos ler os valores x e y
    Console.Write("Informe o valor de x: ")
    Dim x = Double.Parse(Console.ReadLine())
    Console.Write("Informe o valor de y: ")
    Dim y = Double.Parse(Console.ReadLine())

    ' o primeiro passo é calcular a norma do vetor
    Dim norma = Math.Sqrt(Math.Pow(x, 2) + Math.Pow(y, 2))

    ' agora obtemos as componentes x e y do vetor unitário
    Dim u_x = x / norma
    Dim u_y = y / norma

    ' mostra o resultado
    Console.WriteLine("O vetor unitário é: (x = " &
      u_x & "; y = " & u_y)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

Imports System

Module Program
  Sub Main(args As String())
    ' vamos ler os valores x, y e z
    Console.Write("Informe o valor de x: ")
    Dim x = Double.Parse(Console.ReadLine())
    Console.Write("Informe o valor de y: ")
    Dim y = Double.Parse(Console.ReadLine())
    Console.Write("Informe o valor de z: ")
    Dim z = Double.Parse(Console.ReadLine())

    ' o primeiro passo é calcular a norma do vetor
    Dim norma = Math.Sqrt(Math.Pow(x, 2) + Math.Pow(y, 2) +
      Math.Pow(z, 2))

    ' agora obtemos as componentes x, y e z do vetor unitário
    Dim u_x = x / norma
    Dim u_y = y / norma
    Dim u_z = z / norma

    ' mostra o resultado
    Console.WriteLine("O vetor unitário é: (x = " &
      u_x & "; y = " & u_y & "; z = " & u_z)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

#include <string>
#include <iostream>
#include <algorithm> 
 
using namespace std;
 
// função principal do programa C++ 
int main(int argc, char *argv[]){
  // vamos declarar um objeto da classe string
  string frase = "Gosto de programar em C++";
     
  // vamos mostrar a string original
  cout << "String original: " << frase << endl;   
     
  // agora vamos usar a função reverse() para inverter o 
  // conteúdo da string
  reverse(frase.begin(), frase.end());
      
  // e mostramos o resultado    
  cout << "String invertida: " << frase << endl;;
     
  cout << "\n" << endl;	    
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}

a <- 20 # medida do cateto oposto
b <- 30 # medida do cateto adjascente
  
# agora vamos calcular o comprimento da hipotenusa
c <- sqrt(power(a, 2) + power(b, 2))
 
# e mostramos o resultado
fprintf("O comprimento da hipotenusa é: %f\n\n", c)

LRESULT SendMessage(          
  HWND hWnd,
  UINT Msg,
  WPARAM wParam,
  LPARAM lParam
);

// Protótipo
{$EXTERNALSYM SendMessage}
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; 
  lParam: LPARAM): LRESULT; stdcall;

// Implementação
function SendMessage; external user32 name 'SendMessageW';

procedure TForm1.Button1Click(Sender: TObject);
var
  tamanho: Integer;
begin
  // vamos obter a quantidade de caracteres na caixa de texto
  tamanho := SendMessage(Edit1.Handle, WM_GETTEXTLENGTH, 0, 0);

  // vamos exibir o resultado
  ShowMessage('O edit contém ' + IntToStr(tamanho) + ' caracteres.');
end;

using System;
using Autodesk.AutoCAD.Runtime;
using Autodesk.Civil.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.Civil.DatabaseServices;

namespace Estudos {
  public class Class1 : IExtensionApplication {
    [CommandMethod("Alinhamento")]
    public void Alinhamento() {
      // vamos obter uma referência ao documento atual do Civil 3D
      CivilDocument doc = CivilApplication.ActiveDocument;

      // obtemos o editor
      Editor editor = Application.DocumentManager.MdiActiveDocument.Editor;

      // vamos iniciar um nova transação
      using (Transaction ts = Application.DocumentManager.MdiActiveDocument.
        Database.TransactionManager.StartTransaction()) {
        try {
          // vamos pedir para o usuário selecionar o alinhamento
          PromptEntityOptions opt = new PromptEntityOptions(
            "\nSelecione um alinhamento");
          opt.SetRejectMessage("\nO objeto precisa ser um alinhamento.\n");
          opt.AddAllowedClass(typeof(Alignment), false);
          
          // vamos obter o id do alinhamento selecionado
          ObjectId id_alinhamento = editor.GetEntity(opt).ObjectId;

          editor.WriteMessage("\nO id do alinhamento selecionado é: " +
            id_alinhamento + '\n');
        }
        catch (System.Exception e) {
          // vamos tratar o erro 
          editor.WriteMessage("Erro: {0}", e.Message);
        }
      }
    }

    public void Initialize() {
      // pode deixar em branco
    }

    public void Terminate() {
      // pode deixar em branco
    }
  }
}