package estudos;

import java.util.Scanner;

public class Estudos{ 
  public static void main(String args[]){ 
    // vamos usar a classe Scanner para a leitura dos dados
    Scanner entrada = new Scanner(System.in);
    
    int matriz[][] = new int[3][3]; // uma matriz de três linhas e três colunas
    int soma_diagonal = 0; // guarda a soma dos elementos na diagonal principal

    // vamos ler os valores para os elementos da matriz
    for(int i = 0; i < 3; i++){ // linhas
      for(int j = 0; j < 3; j++){ // colunas
        System.out.print("Valor para a linha " + i + " e coluna " + j + ": ");
        matriz[i][j] = Integer.parseInt(entrada.nextLine());       
      }        
    }
  
    // vamos mostrar a matriz da forma que ela foi informada
    System.out.println("\nValores na matriz\n");
    
    for(int i = 0; i < 3; i++){
      for(int j = 0; j < 3; j++){
        System.out.printf("%5d ", matriz[i][j]);   
      }
    
      // passa para a próxima linha da matriz
      System.out.println();       
    }
  
    // vamos calcular a soma dos elementos da diagonal principal
    for(int i = 0; i < 3; i++){
      for(int j = 0; j < 3; j++){
        if(i == j){
          soma_diagonal = soma_diagonal + matriz[i][j];
        }
      }
    }
  
    System.out.println("\nA soma dos elementos da diagonal principal é: " + 
      soma_diagonal);
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  arquivo: string;
begin
  // diretorio e nome do arquivo
  arquivo := 'C:\arquivo de codigos\dados.txt';

  // vamos remover o arquivo
  if DeleteFile(arquivo) then
    ShowMessage('O arquivo foi excluído com sucesso')
  else
    ShowMessage('Não foi possível excluir o arquivo');
end;

# vamos declarar um array com 5 elementos
valores = [3, 6, 78, 32, 1]

# vamos obter o seu tamanho
tamanho = valores.size

# e mostramos o resultado
puts "O array contém #{tamanho} elementos"

; vamos declarar uma variável global
(defvar valor 10)

; vamos mostrar o valor atual da variável global
(format t "O valor da variável global é ~D" valor)

; agora vamos acessar a variável global
; de dentro de uma função
(defun ModificaValor()
  ; vamos alterar o valor da variável global
  (setq valor 50)
)

; chamamos a função ModificaValor
(ModificaValor)

; e checamos se o valor da variável global foi
; mesmo alterado
(terpri)
(format t "O valor da variável global é ~D" valor)

; vamos declarar três variáveis globais
(defparameter *a* 5)
(defparameter *b* 3)
(defparameter *soma* 0)

; agora vamos acessar as variáveis globais
; de dentro de uma função
(defun Somar()
  ; vamos somar as duas variáveis globais
  ; e guardar o resultado em uma terceira
  ; variáveis global
  (setq *soma* (+ *a* *b*))
)

; chamamos a função Somar
(Somar)

; e mostramos o resultado da soma
(format t "A soma das variáveis globais é ~D" *soma*)