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

package arquivodecodigos;

import java.io.*;

public class Estudos{
  public static void main(String[] args){
    // vamos verificar a existência de um arquivo
    File arquivo = new File("C:\\estudos_java\\lago.jpg");
        
    if(arquivo.exists()){
      System.out.println("O arquivo existe");
    }
    else{
      System.out.println("O arquivo não existe");
    }
  }
}

SELECT DATE_FORMAT(vencimento, '%d/%m/%Y') FROM
tabela_estudos

public class Estudos{
  public static void main(String args[]){
    float valor = 54.5f;
     
    System.out.println("O valor da variável é: " +
      valor);
     
    System.exit(0);
  }
}

Estudos.java:3: possible loss of precision
found   : double
required: float
  float valor = 54.5;
                ^
1 error

float valor = 54.5f;
int valor2 = (int)(valor);

Informe a primeira nota: 8
Informe a segunda nota: 7.4
A média obtida foi: 7.7
Aprovado

; Algoritmo LISP para calcular a média de um aluno

; variáveis que vamos usar no programa
(let ((n1)(n2)(media))
  ; vamos solicitar as duas notas do aluno
  (princ "Informe a primeira nota: ")
  (force-output)
  (setq n1 (read))
  (princ "Informe a segunda nota: ")
  (force-output)
  (setq n2 (read))

  ; vamos calcular a média aritmética
  (setq media (/ (+ n1 n2) 2))
  (format t "A média obtida foi ~F" media)

  ; vamos verificar se o aluno foi reprovado, está de exame ou aprovado
  (cond 
    ((< media 4.0) ; reprovado
      (format t "~%Reprovado"))
    ((and (>= media 4.0)(< media 7.0)) ; exame
      (format t "~%Exame"))  
    (t (format t "~%Aprovado"))
  )  
)