From 1c25aa177c5905ce5460d6709ba7b73ba170535f Mon Sep 17 00:00:00 2001
From: Lior Spach <ls12@inf.ufpr.br>
Date: Mon, 15 Jun 2015 03:20:27 -0300
Subject: [PATCH] Adiciona ArqExemplos.scala
---
src/main/scala/other/ArqExemplos.scala | 94 ++++++++++++++++++++++++++
1 file changed, 94 insertions(+)
create mode 100644 src/main/scala/other/ArqExemplos.scala
diff --git a/src/main/scala/other/ArqExemplos.scala b/src/main/scala/other/ArqExemplos.scala
new file mode 100644
index 0000000..151aa40
--- /dev/null
+++ b/src/main/scala/other/ArqExemplos.scala
@@ -0,0 +1,94 @@
+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
--
GitLab