PCL: fibonacci and factorial programs with input and output (#90)

Author: orion-3464

pcl/programs/factorial.input

@@ -0,0 +1 @@
+../../alan/programs/factorial.input

pcl/programs/factorial.pcl

@@ -0,0 +1,20 @@
+program factorial;
+
+var n : integer;
+
+function fact (x : integer) : integer;
+begin
+    if x <= 1 then
+        result := 1
+    else
+        result := x * fact(x - 1)
+end;
+
+begin
+    n := readInteger();
+    writeString("The factorial of ");
+    writeInteger(n);
+    writeString(" is ");
+    writeInteger(fact(n));
+    writeString("\n")
+end.

pcl/programs/factorial.result

@@ -0,0 +1 @@
+../../alan/programs/factorial.result

pcl/programs/fibonacci.input

@@ -0,0 +1 @@
+../../alan/programs/fibonacci.input

pcl/programs/fibonacci.pcl

@@ -0,0 +1,22 @@
+program fibonacci;
+
+var n : integer;
+
+function fib (x : integer) : integer;
+begin
+    if x <= 0 then
+        result := 0
+    else if x = 1 then
+        result := 1
+    else
+        result := fib(x - 1) + fib(x - 2)
+end;
+
+begin
+    n := readInteger();
+    writeString("Fibonacci of ");
+    writeInteger(n);
+    writeString(" is ");
+    writeInteger(fib(n));
+    writeString("\n")
+end.

pcl/programs/fibonacci.result

@@ -0,0 +1 @@
+../../alan/programs/fibonacci.result