SRL Archive - Other Scripts

So I was bored today and decided to code the the Fibonacci Sequence

program FibonacciSequance;
var n1, n2, n3, repeatcount:integer;


procedure firstrun;
begin
n1:=0;
n2:=1;
n3:=n1+n2;
writeln(IntToStr(n1));
writeln(IntToStr(n2));
writeln(IntToStr(n3));
end;

procedure mainrun;
begin
n1:=n2
n2:=n3
n3:=n1+n2
writeln(IntToStr(n3));
end;

begin
repeatcount:=0;
firstrun;
repeat
repeatcount:=repeatcount+1
mainrun;
until(repeatcount = 15);
end.

Only Reason I remembered this was from the book "The Davinci Code" lol which I only read the first couple chapters.

Fun thing to do with your time - I like to write SCAR codes during class:D

Successfully compiled (3524 ms)
0
1
1
2
3
5
8
13
21
34
55
89
144
233
377
610
987
1597
Successfully executed

Fibonacci? Never heard of it, however, i get what it does.

Make one that creates pascal's triangle :p

   1
  1 1
 1 2 1
1 3 3 1

I might have to give that a shot smartzkid

What about that one, can't remember the name, but it goes like this:

1
1 1
2 1
1 2 1 1
1 1 1 2 2 1
3 1 2 2 1 1
1 3 1 1 2 2 1 1
1 1 1 3 2 1 2 2 2 1
3 1 1 3 1 2 1 1 3 2 1 1
1 3 2 1 1 3 1 1 1 2 2 1 1 3 1 2 2 1
1 1 1 3 1 2 2 1 1 3 3 1 2 2 2 1 1 3 1 1 2 2 1 1

Etc.

So like:

One
One One
Two One
One Two, One One

etc.

:P.