mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-05 21:02:25 +00:00
31 lines
499 B
Modula-2
31 lines
499 B
Modula-2
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.
|