Adiciona ArqExemplos.scala

src/main/scala/other/ArqExemplos.scala

+package other
+
+object ArqExemplos {
+
+val exemplo5 =
+"""program exemplo5 (input, output);
+var n, k       : integer;
+    f1, f2, f3 : integer;
+begin
+   read (n);
+   f1:=0; f2:=1; k:=1;
+   while k<=n do
+   begin
+      f3:=f1+f2;
+      f1:=f2;
+      f2:=f3;
+      k:=k+1
+   end;
+   write (n, f1)
+end.
+"""
+  
+val exemplo8_12 =
+"""program exemplo12 (input, output);
+var x :  integer;
+   procedure p (var t :  integer);
+   label 100, 200; 
+   var s :  integer;  
+      function f(z : integer): integer;
+      begin
+         if z<0 then
+            goto 200
+         else
+            if z=0 then
+               f:=2
+            else
+               f:=f(z-2)*z+1
+      end;
+   
+
+   begin
+      100:
+      s:=f(t);
+      t:=s;
+      if t<x then
+         goto 100;
+      200:
+          x:=x-1
+   end;
+
+   procedure r;
+      procedure q;
+      var y : integer;
+      begin
+         read (y);
+         p(y);
+         write(y)
+      end;
+   
+   begin
+      q
+   end; 
+
+begin
+   read(x);
+   r
+end."""
+  
+val exemplo8_10 =
+"""program exemplo1 (input, output);
+var k : integer;
+procedure p(    n : integer; var g:integer);
+var h : integer;
+begin
+   if n<1 then
+      g:=g+n
+   else
+   begin
+      h:=g;
+      p(n-1,h);
+      g:=h;
+      p(n-2, g)
+   end;
+   write(n,g)
+end;
+begin
+   k:=0;
+   p(3,k)
+end.
+   
+      
+"""
+
+}
\ No newline at end of file