Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
32 lines (25 sloc) 499 Bytes
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.
You can’t perform that action at this time.