ag: weitere struct spielerein

diff --git a/ag/lewurm_04.0 b/ag/lewurm_04.0
new file mode 100644 (file)
index 0000000..7bb46a6
--- /dev/null
+++ b/ag/lewurm_04.0
@@ -0,0 +1,9 @@
+struct a d end;
+method f(b c s)
+       var t := 0;
+       /* lesender feldzugriff */
+       b := c*(s.a - 1);
+       b := c*(s.d - 1);
+       b := c*(t.a - 1);
+       b := c*(t.d - 1);
+end;

diff --git a/ag/lewurm_05.0 b/ag/lewurm_05.0
new file mode 100644 (file)
index 0000000..709f525
--- /dev/null
+++ b/ag/lewurm_05.0
@@ -0,0 +1,10 @@
+struct a c d end;
+method f(b c s)
+       var t := 0;
+       /* lesender feldzugriff */
+       b := c*(s.a - 1);
+       b := c*(s.d - 1);
+       b := c*(t.a - 1);
+       /* auch gueltig, da structs und vars unterschiedlichen scope haben */
+       b := c*(t.c - 1);
+end;

diff --git a/ag/lewurm_06.3 b/ag/lewurm_06.3
new file mode 100644 (file)
index 0000000..2b44db2
--- /dev/null
+++ b/ag/lewurm_06.3
@@ -0,0 +1,5 @@
+method f(b)
+       var t := 0;
+       /* identifier doppelt vorhanden */
+       var b := 0;
+end;