Oberon
Oberon es un lenguaje de programación procedimental y orientado a objetos creado por Niklaus Wirth.
Compilar
obnc programa.obnejecutar*
./programaEnlaces:
https://stackoverflow.com/questions/45539644/where-i-can-find-oberon-modules-for-ubuntu-16-04
https://spivey.oriel.ox.ac.uk/corner/Installing_OBC_release_3.1
https://snapcraft.io/install/vostok/ubuntu#install
https://people.inf.ethz.ch/wirth/ProgInOberonWR.pdf
https://rsdoiel.github.io/blog/2020/04/11/Mostly-Oberon.html
| MODULE bucle; | |
| IMPORT Out; | |
| (* Definimos nuestras variables *) | |
| VAR i, contador: INTEGER; | |
| BEGIN | |
| (* Asignamos valores a las variables. *) | |
| Out.String("********************************");Out.Ln; | |
| Out.String(" [ Sentencias selectivas en Oberon ]");Out.Ln; | |
| Out.String("*********************************");Out.Ln; | |
| FOR i := 1 TO 10 DO | |
| Out.Int(i, 1);Out.String(" "); | |
| contador := contador + 1; | |
| END; | |
| Out.String("Contador: ");Out.Int(contador, 1);Out.Ln;Out.String(" "); | |
| Out.Ln | |
| END bucle. |
| MODULE constantes; | |
| IMPORT Out; | |
| (* Definimos nuestras constantes *) | |
| CONST | |
| PI = 3.14159; | |
| MAX = 100; | |
| TITULO = "Programando en Oberon"; | |
| BEGIN | |
| Out.String("********************************");Out.Ln; | |
| Out.String(" [ Constantes en Oberon ]");Out.Ln; | |
| Out.String("*********************************");Out.Ln; | |
| Out.String("Titulo:");Out.String(TITULO);Out.Ln; | |
| Out.String("MAX: ");Out.Int(MAX, 1);Out.Ln; | |
| Out.String("PI: ");Out.Real(PI, 1);Out.Ln; | |
| Out.Ln | |
| END constantes. |
| MODULE holamundo; | |
| IMPORT Out; | |
| BEGIN | |
| Out.String("Hola, mundo desde Oberon"); | |
| Out.Ln | |
| END holamundo. |
| MODULE selectiva; | |
| IMPORT Out; | |
| (* Definimos nuestras variables *) | |
| VAR edad : INTEGER; | |
| salida: ARRAY 32 OF CHAR; | |
| BEGIN | |
| (* Asignamos valores a las variables. *) | |
| edad := 2024 - 1988; | |
| Out.String("********************************");Out.Ln; | |
| Out.String(" [ Sentencias selectivas en Oberon ]");Out.Ln; | |
| Out.String("*********************************");Out.Ln; | |
| Out.String("Edad: ");Out.Int(edad, 1);Out.Ln; | |
| IF (edad >= 18) THEN | |
| salida := "Puedes votar."; | |
| ELSE | |
| salida := "No puedes votar."; | |
| END; | |
| Out.String("Salida: ");Out.String(salida);Out.Ln; | |
| END selectiva. |
| MODULE variables; | |
| IMPORT Out; | |
| (* Definimos nuestras variables *) | |
| VAR entero : INTEGER; | |
| caracter: CHAR; | |
| valor : REAL; | |
| falso : BOOLEAN; | |
| nombre: ARRAY 32 OF CHAR; | |
| BEGIN | |
| (* Asignamos valores a las variables. *) | |
| entero := 33; | |
| caracter := "A"; | |
| valor := 33.0; | |
| falso := TRUE; | |
| nombre := "Oberon"; | |
| Out.String("********************************");Out.Ln; | |
| Out.String(" [ Tipos de datos en Oberon ]");Out.Ln; | |
| Out.String("*********************************");Out.Ln; | |
| Out.String("Nombre:");Out.String(nombre);Out.Ln; | |
| Out.String("Entero: ");Out.Int(entero, 1);Out.Ln; | |
| Out.String("Valor: ");Out.Real(valor, 1);Out.Ln; | |
| Out.String("Caracter: ");Out.Char(caracter);Out.Ln; | |
| Out.Ln | |
| END variables. |
| 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. |