mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-05 21:02:25 +00:00
No need for these ob2 files anymore
This commit is contained in:
Antranig Vartanian
parent
fed6fad453
commit
e60f8acb9f
21 changed files with 0 additions and 601 deletions
|
|
@ -1,63 +0,0 @@
|
||||||
MODULE partest;
|
|
||||||
|
|
||||||
IMPORT Oberon, Texts;
|
|
||||||
|
|
||||||
CONST
|
|
||||||
argStr0 = "str"; (* we only have two types of args, one string and one int *)
|
|
||||||
argInt0 = "int"; (* i. e. -str somestring -int somenumber *)
|
|
||||||
|
|
||||||
VAR
|
|
||||||
W: Texts.Writer; (* for console output *)
|
|
||||||
S: Texts.Scanner; T: Texts.Text;
|
|
||||||
BEGIN
|
|
||||||
Texts.OpenWriter(W);
|
|
||||||
Texts.WriteString(W, "hello, world, let's see which arguments do we get"); Texts.WriteLn(W);
|
|
||||||
|
|
||||||
(* open arguments scanner *)
|
|
||||||
Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos);
|
|
||||||
|
|
||||||
WHILE ~S.eot DO
|
|
||||||
Texts.Scan(S);
|
|
||||||
|
|
||||||
IF S.class = Texts.Char THEN (* do we get '-' sign ? *)
|
|
||||||
IF S.c = "-" THEN
|
|
||||||
Texts.Scan(S);
|
|
||||||
IF S.class = Texts.Name THEN (* we got the key *)
|
|
||||||
Texts.WriteString(W, "key: "); Texts.WriteString(W, S.s); Texts.WriteLn(W);
|
|
||||||
(* now get the value *)
|
|
||||||
IF S.s = argStr0 THEN
|
|
||||||
Texts.Scan(S);
|
|
||||||
IF S.class = Texts.Name THEN
|
|
||||||
Texts.WriteString(W, "value: "); Texts.WriteString (W, S.s); Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf);
|
|
||||||
ELSE
|
|
||||||
Texts.WriteString(W, "string expected"); Texts.WriteLn(W);
|
|
||||||
Texts.Append(Oberon.Log, W.buf);
|
|
||||||
HALT(1);
|
|
||||||
END;
|
|
||||||
ELSIF S.s = argInt0 THEN
|
|
||||||
Texts.Scan(S);
|
|
||||||
IF S.class = Texts.Int THEN
|
|
||||||
Texts.WriteString(W, "value: "); Texts.WriteInt (W, S.i, 0); Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf);
|
|
||||||
ELSE
|
|
||||||
Texts.WriteString(W, "integer expected"); Texts.WriteLn(W);
|
|
||||||
Texts.Append(Oberon.Log, W.buf);
|
|
||||||
HALT(1);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
ELSE
|
|
||||||
(* we were expecting characters after the '-' sign *)
|
|
||||||
Texts.WriteString(W, "key name expected"); Texts. WriteLn(W);
|
|
||||||
Texts.Append(Oberon.Log, W.buf);
|
|
||||||
HALT(1);
|
|
||||||
END;
|
|
||||||
END
|
|
||||||
ELSE
|
|
||||||
Texts.WriteString(W, "key option must start with '-' sign "); Texts.WriteLn(W);
|
|
||||||
HALT(1);
|
|
||||||
END; (* if got '-' *)
|
|
||||||
Oberon.Par.pos := Texts.Pos(S);
|
|
||||||
Texts.Append(Oberon.Log, W.buf)
|
|
||||||
END; (* while *)
|
|
||||||
|
|
||||||
|
|
||||||
END partest.
|
|
||||||
|
|
@ -1,42 +0,0 @@
|
||||||
MODULE arrays;
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
tmp : INTEGER;
|
|
||||||
matrix : ARRAY 3 OF ARRAY 3 OF INTEGER;
|
|
||||||
i, v, k : INTEGER;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
v := 1;
|
|
||||||
FOR i := 0 TO LEN(matrix) - 1 DO
|
|
||||||
FOR k := 0 TO LEN(matrix[i]) - 1 DO
|
|
||||||
matrix[i][k] := v;
|
|
||||||
INC(v);
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
|
|
||||||
FOR i := 0 TO LEN(matrix) - 1 DO
|
|
||||||
FOR k := 0 TO LEN(matrix[i]) - 1 DO
|
|
||||||
Out.Int(matrix[i][k], 0); Out.String(" ");
|
|
||||||
END;
|
|
||||||
Out.Ln;
|
|
||||||
END;
|
|
||||||
|
|
||||||
FOR i := 0 TO LEN(matrix) - 1 DO
|
|
||||||
FOR k := i + 1 TO LEN(matrix[i]) - 1 DO
|
|
||||||
tmp := matrix[i][k];
|
|
||||||
matrix[i][k] := matrix[k][i];
|
|
||||||
matrix[k][i] := tmp;
|
|
||||||
END;
|
|
||||||
END;
|
|
||||||
|
|
||||||
Out.Ln; Out.Ln;
|
|
||||||
|
|
||||||
FOR i := 0 TO LEN(matrix) - 1 DO
|
|
||||||
FOR k := 0 TO LEN(matrix[i]) - 1 DO
|
|
||||||
Out.Int(matrix[i][k], 0); Out.String(" ");
|
|
||||||
END;
|
|
||||||
Out.Ln;
|
|
||||||
END;
|
|
||||||
END arrays.
|
|
||||||
|
|
@ -1,14 +0,0 @@
|
||||||
MODULE case;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Out, Modules;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
CASE Modules.ArgCount - 1 OF
|
|
||||||
0 : Out.String("There are no arguments");
|
|
||||||
| 1 : Out.String("There is one argument");
|
|
||||||
| 2 : Out.String("There are two arguments");
|
|
||||||
ELSE Out.String("There are more than two arguments") END;
|
|
||||||
Out.Ln;
|
|
||||||
END case.
|
|
||||||
|
|
@ -1,14 +0,0 @@
|
||||||
MODULE constants;
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
CONST
|
|
||||||
s = "if it moves, compile it!";
|
|
||||||
n = 42;
|
|
||||||
m = n * 2;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
Out.String(s); Out.Ln;
|
|
||||||
Out.Int(n, 0); Out.Ln;
|
|
||||||
Out.Int(m, 0); Out.Ln;
|
|
||||||
END constants.
|
|
||||||
|
|
@ -1,68 +0,0 @@
|
||||||
MODULE Days;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Day* = POINTER TO DayDesc;
|
|
||||||
DayDesc = RECORD
|
|
||||||
next, prev : Day
|
|
||||||
END;
|
|
||||||
Week = ARRAY 7 OF Day;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
sun*, mon*, tue*, wed*, thu*, fri*, sat* : Day;
|
|
||||||
week: Week;
|
|
||||||
|
|
||||||
PROCEDURE Next*(d : Day): Day;
|
|
||||||
BEGIN
|
|
||||||
RETURN d.next
|
|
||||||
END Next;
|
|
||||||
|
|
||||||
PROCEDURE Prev*(d: Day): Day;
|
|
||||||
BEGIN
|
|
||||||
RETURN d.prev;
|
|
||||||
END Prev;
|
|
||||||
|
|
||||||
PROCEDURE inc(VAR j: SHORTINT);
|
|
||||||
BEGIN
|
|
||||||
IF j = 6 THEN
|
|
||||||
j := 0
|
|
||||||
ELSE
|
|
||||||
INC(j)
|
|
||||||
END
|
|
||||||
END inc;
|
|
||||||
|
|
||||||
PROCEDURE dec(VAR j: SHORTINT);
|
|
||||||
BEGIN
|
|
||||||
IF j = 0 THEN
|
|
||||||
j := 6
|
|
||||||
ELSE
|
|
||||||
DEC(j)
|
|
||||||
END
|
|
||||||
END dec;
|
|
||||||
|
|
||||||
PROCEDURE init(VAR w : Week);
|
|
||||||
VAR
|
|
||||||
i,j : SHORTINT;
|
|
||||||
BEGIN
|
|
||||||
i := 0;
|
|
||||||
REPEAT
|
|
||||||
j := i; inc(j);
|
|
||||||
w[i].next := w[j];
|
|
||||||
j := i; dec(j);
|
|
||||||
w[i].prev := w[j];
|
|
||||||
INC(i)
|
|
||||||
UNTIL i > 6;
|
|
||||||
END init;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
NEW(sun); NEW(mon); NEW(tue); NEW(wed); NEW(thu); NEW(fri); NEW(sat);
|
|
||||||
week[0] := sun;
|
|
||||||
week[1] := mon;
|
|
||||||
week[2] := tue;
|
|
||||||
week[3] := wed;
|
|
||||||
week[4] := thu;
|
|
||||||
week[5] := fri;
|
|
||||||
week[6] := sat;
|
|
||||||
|
|
||||||
init(week);
|
|
||||||
|
|
||||||
END Days.
|
|
||||||
|
|
@ -1,22 +0,0 @@
|
||||||
MODULE test;
|
|
||||||
|
|
||||||
IMPORT Days, Out;
|
|
||||||
|
|
||||||
VAR today, yesterday, tomorrow: Days.Day;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
today := Days.mon; (*init*)
|
|
||||||
|
|
||||||
yesterday := Days.Prev(today);
|
|
||||||
IF yesterday = Days.sun
|
|
||||||
THEN
|
|
||||||
Out.String("it works!"); Out.Ln
|
|
||||||
END;
|
|
||||||
tomorrow := Days.Next(today);
|
|
||||||
|
|
||||||
IF tomorrow = Days.tue
|
|
||||||
THEN
|
|
||||||
Out.String("it works!"); Out.Ln
|
|
||||||
END;
|
|
||||||
|
|
||||||
END test.
|
|
||||||
|
|
@ -1,33 +0,0 @@
|
||||||
MODULE Days;
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
Day* = POINTER TO DayDesc;
|
|
||||||
DayDesc = RECORD
|
|
||||||
num: INTEGER
|
|
||||||
END;
|
|
||||||
Week* = ARRAY 7 OF Day;
|
|
||||||
VAR
|
|
||||||
sun*, mon*, tue*, wed*, thu*, fri*, sat* : Day;
|
|
||||||
week: Week;
|
|
||||||
|
|
||||||
PROCEDURE Next*(d : Day): Day;
|
|
||||||
BEGIN RETURN week[(d.num + 1) MOD 7];
|
|
||||||
END Next;
|
|
||||||
|
|
||||||
PROCEDURE Prev*(d: Day): Day;
|
|
||||||
BEGIN RETURN week[(d.num - 1) MOD 7];
|
|
||||||
END Prev;
|
|
||||||
|
|
||||||
PROCEDURE day(VAR d: Day; num: INTEGER);
|
|
||||||
BEGIN NEW(d); d.num := num; week[num] := d;
|
|
||||||
END day;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
day(sun, 0);
|
|
||||||
day(mon, 1);
|
|
||||||
day(tue, 2);
|
|
||||||
day(wed, 3);
|
|
||||||
day(thu, 4);
|
|
||||||
day(fri, 5);
|
|
||||||
day(sat, 6);
|
|
||||||
END Days.
|
|
||||||
|
|
@ -1,22 +0,0 @@
|
||||||
MODULE test;
|
|
||||||
|
|
||||||
IMPORT Days, Out;
|
|
||||||
|
|
||||||
VAR today, yesterday, tomorrow: Days.Day;
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
today := Days.mon; (*init*)
|
|
||||||
|
|
||||||
yesterday := Days.Prev(today);
|
|
||||||
IF yesterday = Days.sun
|
|
||||||
THEN
|
|
||||||
Out.String("it works!"); Out.Ln
|
|
||||||
END;
|
|
||||||
tomorrow := Days.Next(today);
|
|
||||||
|
|
||||||
IF tomorrow = Days.tue
|
|
||||||
THEN
|
|
||||||
Out.String("it works!"); Out.Ln
|
|
||||||
END;
|
|
||||||
|
|
||||||
END test.
|
|
||||||
|
|
@ -1,19 +0,0 @@
|
||||||
MODULE for;
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
VAR
|
|
||||||
i : INTEGER;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
Out.String("i is "); Out.Int(i, 0); Out.Ln;
|
|
||||||
Out.String("For loop started"); Out.Ln;
|
|
||||||
FOR i := 0 TO 10 DO
|
|
||||||
Out.String("i : "); Out.Int(i, 0); Out.Ln;
|
|
||||||
END;
|
|
||||||
Out.String("For-By loop started"); Out.Ln;
|
|
||||||
FOR i := 0 TO 10 BY 2 DO
|
|
||||||
Out.String("i : "); Out.Int(i, 0); Out.Ln;
|
|
||||||
END;
|
|
||||||
END for.
|
|
||||||
|
|
@ -1,10 +0,0 @@
|
||||||
MODULE hello;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Console;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
Console.String("Hello World!");
|
|
||||||
Console.Ln
|
|
||||||
END hello.
|
|
||||||
|
|
@ -1,9 +0,0 @@
|
||||||
MODULE hello;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
Out.String("Hello, World"); Out.Ln
|
|
||||||
END hello.
|
|
||||||
|
|
@ -1,49 +0,0 @@
|
||||||
MODULE ifelse;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
VAR n, m : INTEGER;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
n := 8; m := 4;
|
|
||||||
|
|
||||||
IF n MOD m = 0 THEN
|
|
||||||
Out.Int(n,0); Out.String(" is divisible by "); Out.Int(m,0); Out.Ln;
|
|
||||||
END;
|
|
||||||
|
|
||||||
n := 7; m := 6;
|
|
||||||
|
|
||||||
IF n * m = 42 THEN
|
|
||||||
Out.Int(n,0); Out.String(" times "); Out.Int(m,0); Out.String(" equals 42"); Out.Ln;
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF n # m THEN Out.Int(n,0); Out.String(" does not equal "); Out.Int(m,0); Out.Ln; END;
|
|
||||||
|
|
||||||
IF ODD(n)
|
|
||||||
THEN
|
|
||||||
Out.Int(n,0); Out.String(" is odd"); Out.Ln;
|
|
||||||
ELSE
|
|
||||||
Out.Int(n,0); Out.String(" is even"); Out.Ln;
|
|
||||||
END;
|
|
||||||
|
|
||||||
IF ~ODD(m)
|
|
||||||
THEN
|
|
||||||
Out.Int(m,0); Out.String(" is even"); Out.Ln;
|
|
||||||
ELSE
|
|
||||||
Out.Int(m,0); Out.String(" is odd"); Out.Ln;
|
|
||||||
END;
|
|
||||||
|
|
||||||
n := 9;
|
|
||||||
|
|
||||||
IF n < 0
|
|
||||||
THEN
|
|
||||||
Out.Int(n, 0); Out.String(" is negative"); Out.Ln;
|
|
||||||
ELSIF n < 10
|
|
||||||
THEN
|
|
||||||
Out.Int(n, 0); Out.String(" has 1 digit"); Out.Ln;
|
|
||||||
ELSE
|
|
||||||
Out.Int(n, 0); Out.String(" has multiple digits"); Out.Ln;
|
|
||||||
END;
|
|
||||||
END ifelse.
|
|
||||||
|
|
@ -1,20 +0,0 @@
|
||||||
MODULE square;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
|
|
||||||
VAR s : INTEGER;
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE squared(x : INTEGER): INTEGER;
|
|
||||||
BEGIN
|
|
||||||
RETURN x * x
|
|
||||||
END squared;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
s := squared(7);
|
|
||||||
Out.Int(s, 0); Out.Ln;
|
|
||||||
Out.Int(squared(8), 0); Out.Ln;
|
|
||||||
END square.
|
|
||||||
|
|
@ -1,15 +0,0 @@
|
||||||
MODULE proc;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE printSum(a, b : INTEGER);
|
|
||||||
BEGIN
|
|
||||||
Out.Int(a + b, 0); Out.Ln
|
|
||||||
END printSum;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
printSum(6, 9)
|
|
||||||
END proc.
|
|
||||||
|
|
@ -1,24 +0,0 @@
|
||||||
MODULE varparam;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
|
|
||||||
VAR a, b : INTEGER;
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE swapVals(VAR x, y : INTEGER);
|
|
||||||
VAR tmp : INTEGER;
|
|
||||||
BEGIN
|
|
||||||
tmp := x; x := y; y := tmp;
|
|
||||||
END swapVals;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
a := 6; b := 9;
|
|
||||||
Out.String("initial "); Out.Ln;
|
|
||||||
Out.String("a : "); Out.Int(a, 0); Out.String("; b : "); Out.Int(b, 0); Out.Ln;
|
|
||||||
swapVals(a, b);
|
|
||||||
Out.String("after swap"); Out.Ln;
|
|
||||||
Out.String("a : "); Out.Int(a, 0); Out.String("; b : "); Out.Int(b, 0); Out.Ln;
|
|
||||||
END varparam.
|
|
||||||
|
|
@ -1,53 +0,0 @@
|
||||||
MODULE record;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
|
|
||||||
CONST
|
|
||||||
Male = 1;
|
|
||||||
Female = 2;
|
|
||||||
|
|
||||||
|
|
||||||
TYPE
|
|
||||||
SexDesc = INTEGER;
|
|
||||||
Person = RECORD
|
|
||||||
Name : ARRAY 32 OF CHAR;
|
|
||||||
Age : INTEGER;
|
|
||||||
Title : ARRAY 64 OF CHAR;
|
|
||||||
Sex : SexDesc;
|
|
||||||
END;
|
|
||||||
|
|
||||||
|
|
||||||
VAR
|
|
||||||
i : INTEGER;
|
|
||||||
employer : Person;
|
|
||||||
employee : ARRAY 2 OF Person;
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE dumpPerson ( p : Person );
|
|
||||||
BEGIN
|
|
||||||
Out.String("Meet "); Out.String(p.Name);
|
|
||||||
IF p.Sex = Male THEN Out.String(". He is ") END;
|
|
||||||
IF p.Sex = Female THEN Out.String(". She is ") END;
|
|
||||||
Out.Int(p.Age, 0); Out.String(" years old and a "); Out.String(p.Title); Out.Ln;
|
|
||||||
END dumpPerson;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
(* define people *)
|
|
||||||
employer.Name := "Bing"; employer.Age := 42; employer.Title := "CEO"; employer.Sex := Male;
|
|
||||||
|
|
||||||
employee[0].Name := "Bob"; employee[0].Age := 26;
|
|
||||||
employee[0].Title := "SysAdmin"; employee[0].Sex := Male;
|
|
||||||
|
|
||||||
employee[1].Name := "Alice" ; employee[1].Age := 22;
|
|
||||||
employee[1].Title := "Programmer"; employee[1].Sex := Female;
|
|
||||||
|
|
||||||
(* print people *)
|
|
||||||
dumpPerson(employer);
|
|
||||||
FOR i := 0 TO LEN(employee) - 1 DO
|
|
||||||
dumpPerson(employee[i]);
|
|
||||||
END;
|
|
||||||
END record.
|
|
||||||
|
|
@ -1,33 +0,0 @@
|
||||||
MODULE fibonacci;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Out, Modules;
|
|
||||||
|
|
||||||
|
|
||||||
VAR
|
|
||||||
n : LONGINT;
|
|
||||||
Arg0 : LONGINT;
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE getFib (n : LONGINT) : LONGINT;
|
|
||||||
VAR result : LONGINT;
|
|
||||||
BEGIN
|
|
||||||
IF n = 0 THEN
|
|
||||||
result := 0
|
|
||||||
ELSIF n = 1 THEN
|
|
||||||
result:= 1
|
|
||||||
ELSE
|
|
||||||
result := getFib(n-1) + getFib(n-2)
|
|
||||||
END;
|
|
||||||
RETURN result
|
|
||||||
END getFib;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
IF Modules.ArgCount # 2 THEN
|
|
||||||
Out.String("one argument needed"); Out.Ln;
|
|
||||||
HALT(1);
|
|
||||||
END;
|
|
||||||
Modules.GetIntArg(1, Arg0);
|
|
||||||
Out.Int(getFib(Arg0), 0); Out.Ln;
|
|
||||||
END fibonacci.
|
|
||||||
|
|
@ -1,31 +0,0 @@
|
||||||
MODULE gcd;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Out, Modules;
|
|
||||||
|
|
||||||
|
|
||||||
VAR
|
|
||||||
gcd : INTEGER;
|
|
||||||
arg0, arg1 : LONGINT;
|
|
||||||
|
|
||||||
|
|
||||||
PROCEDURE getGCD(a, b : INTEGER): INTEGER;
|
|
||||||
VAR ret : INTEGER;
|
|
||||||
BEGIN
|
|
||||||
IF a = 0 THEN ret := b;
|
|
||||||
ELSIF b = 0 THEN ret := a;
|
|
||||||
ELSIF b > a THEN ret := getGCD(b, a);
|
|
||||||
ELSE ret := getGCD(b, a MOD b) END;
|
|
||||||
RETURN ret;
|
|
||||||
END getGCD;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
IF Modules.ArgCount # 3 THEN
|
|
||||||
Out.String("enter two integers to get GCD"); Out.Ln;
|
|
||||||
HALT(1)
|
|
||||||
END;
|
|
||||||
Modules.GetIntArg(1, arg0); Modules.GetIntArg(2, arg1);
|
|
||||||
gcd := getGCD(SHORT(arg0), SHORT(arg1));
|
|
||||||
Out.Int(gcd, 0); Out.Ln;
|
|
||||||
END gcd.
|
|
||||||
|
|
@ -1,12 +0,0 @@
|
||||||
MODULE values;
|
|
||||||
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
Out.String("Oberon has types, for example, I am a string type (ARRAY OF CHAR);"); Out.Ln;
|
|
||||||
Out.String("There are also other types, e.g. INTEGERs and BOOLEANs"); Out.Ln;
|
|
||||||
Out.Int(42, 0);
|
|
||||||
Out.Ln
|
|
||||||
END values.
|
|
||||||
|
|
@ -1,31 +0,0 @@
|
||||||
MODULE variables;
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
|
|
||||||
VAR
|
|
||||||
s : ARRAY 32 OF CHAR;
|
|
||||||
i : REAL;
|
|
||||||
n, m : INTEGER;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
s := "Initial";
|
|
||||||
Out.String(s); Out.Ln;
|
|
||||||
i := 3.14;
|
|
||||||
n := 64;
|
|
||||||
m := 42;
|
|
||||||
Out.Int(m, 0); Out.Ln;
|
|
||||||
Out.Int(n, 0); Out.Ln;
|
|
||||||
Out.Real(i, 0); Out.Ln;
|
|
||||||
|
|
||||||
s := "assigning new values";
|
|
||||||
Out.String(s); Out.Ln;
|
|
||||||
i := 2.71;
|
|
||||||
n := 128;
|
|
||||||
m := 84;
|
|
||||||
Out.Int(m, 0); Out.Ln;
|
|
||||||
Out.Int(n, 0); Out.Ln;
|
|
||||||
Out.Real(i, 0);
|
|
||||||
Out.Ln
|
|
||||||
END variables.
|
|
||||||
|
|
@ -1,17 +0,0 @@
|
||||||
MODULE while;
|
|
||||||
|
|
||||||
IMPORT Out;
|
|
||||||
|
|
||||||
|
|
||||||
VAR
|
|
||||||
i : INTEGER;
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN
|
|
||||||
i := 0;
|
|
||||||
Out.String("WHILE loop started"); Out.Ln;
|
|
||||||
WHILE i < 10 DO
|
|
||||||
i := i + 1;
|
|
||||||
Out.Int(i, 0); Out.Ln;
|
|
||||||
END;
|
|
||||||
END while.
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue