package arquivodecodigos;

public class Estudos{
  public static void main(String args[]){
    double a = 20; // medida do cateto oposto
    double b = 30; // medida do cateto adjascente
  
    // agora vamos calcular o comprimento da hipotenusa
    double c = Math.sqrt(Math.pow(a, 2) + Math.pow(b, 2));
 
    // e mostramos o resultado
    System.out.println("O comprimento da hipotenusa é: " +
      c);
  }
}

Informe um número inteiro: 16
O número informado foi: 16
O antecessor é 15
O sucessor é: 17

Imports System

Module Program
  Sub Main(args As String())
    ' vamos pedir ao usuário que informe um número inteiro
    Console.Write("Informe um número inteiro: ")
    Dim numero As Integer = Integer.Parse(Console.ReadLine())

    ' vamos calcular o sucessor do número informado
    Dim sucessor As Integer = numero + 1

    ' vamos calcular o antecessor do número informado
    Dim antecessor As Integer = numero - 1

    ' e agora mostramos os resultados
    Console.WriteLine("O número informado foi: {0}", numero)
    Console.WriteLine("O antecessor é {0}", antecessor)
    Console.WriteLine("O sucessor é: {0}", sucessor)

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

// declara, constrói e inicializa uma matriz 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 uma matriz 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 está contido na matriz e retornar seu índice
    int pos = -1; // índice não existente na matriz
    for(int i = 0; i < valores.length; i++){
      if(valores[i] == pesquisa){
        pos = i; // encontrou? vamos anotar este índice
        break;
      }
    }
        
    // vamos mostrar o resultado
    if(pos > -1){
      JOptionPane.showMessageDialog(null, "O valor foi encontrado no índice: " +
        pos);
    }
    else{
      JOptionPane.showMessageDialog(null, "O valor não foi encontrado na matriz");
    }
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  frase, substring: string;
begin
  frase := 'Programar em Delphi é muito bom';

  // vamos obter a substring "Delphi"
  substring := AnsiMidStr(frase, 14, 6);

  // vamos exibir o resultado
  ShowMessage('Resultado: ' + substring);
end;

#include <cstdlib>
#include <iostream>
#include <vector>

using namespace std;

int main(int argc, char *argv[]){
  // um vector vazio que conterá inteiros
  vector<int> valores;

  // vamos inserir três elementos
  valores.push_back(54);
  valores.push_back(13);
  valores.push_back(87);

  // vamos percorrer o vector e exibir os elementos
  vector<int>::iterator it;
  for(it = valores.begin(); it < valores.end(); it++){
    cout << *it << endl;
  }

  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS;
}