Oberon en un vistazo (2)

Anteriormente hemos visto:

1. Cómo instalar un compilador en Oberon.
2. Definir variables básicas.
3. Compilar y crear ejecutables (en Linux y Windows).

Ejercicio 1. Se requiere realizar un programa que solicite la edad del usuario. Si el usuario es mayor de edad (18 años o más), podrá votar. En caso contrario, no podrá votar.

votando.obn

MODULE votando;
IMPORT In, Out;

VAR
  age: INTEGER;

BEGIN
  Out.String("Ingrese su edad: "); 
  In.Int(age);

  IF age >= 18 THEN
    Out.String("Puede votar.")
  ELSE
    Out.String("No puede votar.")
  END;
  Out.Ln
END votando.

Compilando (en Windows):

obnc -o votando.exe -v -x votando.obn

Ejecutando:

votando.exe 

Salida:

Ingrese su edad: 34
Puede votar.

Ejercicio 2. Programa que calcule la raiz cuadrada:

raiz.obn

MODULE raiz;

    IMPORT In, Out;


    (* Definimos nuestras variables *)
    VAR entero : INTEGER;
    
    PROCEDURE sqrt (number : INTEGER) : INTEGER;
    VAR    x1, x0, t    : INTEGER;
    BEGIN
    x0 := number;
    REPEAT
      t := x0;
      x1 := x0 - x0 DIV 2 + number DIV (x0 + x0);
      Out.Int (x1, 5); Out.Char ("");
      x0 := x1
    UNTIL  x1 = t;
    RETURN x1
    END sqrt;

BEGIN

    Out.String("********************************");Out.Ln;
    Out.String("  [ Raiz cuadrada en Oberon ]");Out.Ln;
    Out.String("*********************************");Out.Ln;
    Out.String ("Introduce un numero : ");
    In.Int (entero);
    entero := sqrt (entero);
    Out.Ln;
    Out.String (" La raiz es: ");
    Out.Int (entero, 6);
    Out.Ln

END raiz.

Este programa tiene un procedimiento que devuelve el cálculo de la raiz cuadrada. Relizará las operaciones y al final devolverá un resultado final.

Algunos detalles sobre Oberon

• Su sintaxis es similar a la de Fortran y/o Pascal.
• Al ser un lenguaje relativamente vetusto programar algunas cosas se volverán un dolor de cabeza.
• Originalmente creado para programar en el SO del mismo nombre.
• Se usaría para crear sistemas por módulos. 
• Fortran y Pascal ofrecen una mejoría con respecto a este lenguaje.

En próximas entregas continuaremos con este lenguaje.

Enlaces:

https://alquimistadecodigo.blogspot.com/2024/08/instalando-oberon-un-lenguaje-orientado.html
https://alquimistadecodigo.blogspot.com/2024/08/oberon-en-un-vistazo.html