#include <stdio.h>
#include <stdlib.h>
#include <math.h>
  
int main(int argc, char *argv[]){
  float x, y, norma;
  // vamos ler os valores x e y
  printf("Informe o valor de x: ");
  scanf("%f", &x);
  printf("Informe o valor de y: ");
  scanf("%f", &y);
  
  // vamos calcular a norma do vetor
  norma = sqrt(pow(x, 2) + pow(y, 2));
    
  // mostra o resultado
  printf("A norma do vetor é: %f", norma);
 
  printf("\n\n");
  system("PAUSE");
  return 0;
}

import java.io.*;

public class Estudos{
  public static void main(String[] args){
    // uma instância de RandomAccessFile para leitura e escrita
    try{
      RandomAccessFile arquivo = 
        new RandomAccessFile("C:\\java\\conteudo.txt", "rw");

      // vamos ler o conteúdo do arquivo uma linha de cada vez
      String linha;
      
      while((linha = arquivo.readLine()) != null){
        System.out.println("Posição do ponteiro: " +
          arquivo.getFilePointer());
        System.out.println(linha); 
      }

      arquivo.close();    
    }
    catch(FileNotFoundException fnfe){
      System.out.println(fnfe.getMessage());
    }
    catch(IOException ioe){
      System.out.println(ioe.getMessage());
    }

    System.exit(0);
  }
}

// Como somar os dígitos de um número em Portugol
programa {
  funcao inicio() {
    inteiro numero, soma

    // inicia a soma como zero
    soma = 0

    // vamos pedir um número inteiro positivo
    escreva("Informe um número inteiro positivo: ")
    // lê o número informado
    leia(numero)

    // enquanto o número for diferente de 0
    enquanto (numero != 0) {
      // adiciona à soma o resultado da divisão do número por 10
      soma = soma + (numero % 10)
      // agora dividimos os número por 10 (divisão inteira) e continuamos
      numero = inteiro(numero / 10)
    }

    // e mostramos o resultado
    escreva("A soma dos dígitos é: ", soma)
  }
}

; programa LISP que converte graus em radianos
(let((graus)(radianos))
  ; valor em graus
  (setq graus 30)
  ; obtém o valor em radianos
  (setq radianos (* graus (/ pi 180)))
  
  ; mostra o resultado
  (format t "~F graus em radianos é ~F" graus radianos)
)