package arquivodecodigos;
 
import java.util.Scanner;
 
public class Estudos{
  public static void main(String[] args) {
    // vamos fazer a leitura usando a classe Scanner
    Scanner entrada = new Scanner(System.in);
     
    // vamos solicitar um número inteiro positivo
    System.out.print("Informe um número inteiro positivo: ");
    int numero = Integer.parseInt(entrada.nextLine());
    
    // o número é negativo?
    if(numero < 0){
      System.out.println("Número inválido.");
    }
    // é 0 ou 1?
    else if((numero == 0) || (numero == 1)){
      System.out.println("Número válido, mas não é primo. ");
    }
    // passou até aqui. Vamos testar se o número é primo
    else{
      boolean primo = true;
      for (int i = 2; i <= (numero / 2); i++){
        // se passar no teste, não é primo
        if (numero % i == 0) {
          primo = false;
          break;
        }
      }
      
      if(primo){
        System.out.println("O número informado é primo");
      }
      else{
        System.out.println("O número informado não é primo");
      }
    }
  }
}

package arquivodecodigos;

import java.util.Scanner;

public class Estudos{
  public static void main(String[] args){
    Scanner entrada = new Scanner(System.in);
    
    // vamos ler o raio do círculo
    System.out.print("Informe o raio do círculo: ");
    double raio = Double.parseDouble(entrada.nextLine());
    
    // vamos achar o diâmetro do círculo
    double diametro = 2 * raio;
    // agora calculamos a circunferência
    double circunferencia = 2 * Math.PI * raio;
    // finalmente calculamos a área do círculo
    double area = Math.PI * Math.pow(raio, 2);
    
    // vamos mostrar os resultados
    System.out.println("O diâmetro do círculo é: " +
      diametro);
    System.out.println("A circunferência do círculo é: " +
      circunferencia);
    System.out.println("A área do círculo é: " + area);
  }
}

' Macro VBA Excel usada para converter um caractere
' em seu código ASCII
Sub RetornarCodigoASCII()
  ' Variáveis usadas na resolução do problema
  Dim letra As String
  Dim codigo As Integer
  
  ' vamos pedir para o usuário informar um caractere
  letra = InputBox("Informe um caractere: ", "Código ASCII", 0)
  Debug.Print "Você informou o caractere: " & letra
  
  ' agora vamos obter o código ASCII correspondente
  codigo = Asc(letra)
  
  ' e mostramos o resultado
  Debug.Print "O código ASCII correspondente é: " & codigo
End Sub

System.TObject
  Classes.TPersistent
    Classes.TComponent
      Controls.TControl
        Controls.TWinControl
          Controls.TCustomControl
            Grids.TCustomGrid
              Grids.TCustomDrawGrid
                Grids.TDrawGrid
                  Grids.TStringGrid

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos definir o conteúdo da célula na segunda linha
  // da primeira coluna da grid
  StringGrid1.Cells[0, 1] := 'Osmar J. Silva';
end;

# função principal do programa
def main():
  # cria uma lista de inteiros
  valores = [2, 5, 12, 2, 3, 2, 17]

  # vamos mostrar o conteúdo dessa lista
  print("Conteúdo da lista: {0}".format(valores))

  # verifica a quantidade de vezes que o
  # valor 2 aparece
  print("O valor 2 aparece", valores.count(2), "vezes")  
  
if __name__== "__main__":
  main()