aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Fibonacci-sequence/Pascal/fibonacci-sequence-1.pascal Normal file
View file

@ -0,0 +1,8 @@
function fib(n: integer): integer;
begin
if (n = 0) or (n = 1)
then
fib := n
else
fib := fib(n-1) + fib(n-2)
end;

14
Task/Fibonacci-sequence/Pascal/fibonacci-sequence-2.pascal Normal file
View file

@ -0,0 +1,14 @@
function fib(n: integer): integer;
var
f0, f1, f2, k: integer;
begin
f0 := 0;
f1 := 1;
for k := 2 to n do
begin
f2:= f0 + f1;
f0 := f1;
f1 := f2;
end;
fib := f2;
end;