diff options
author | Karl Berry <karl@freefriends.org> | 2010-05-17 16:18:42 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-05-17 16:18:42 +0000 |
commit | 23bb488bb028acf936fa4c2fce03649802515eb6 (patch) | |
tree | 00bfb4dfc21e90becb3c5f119bf348f372bad6f5 /Master/texmf-dist/doc/generic/c-pascal/prog | |
parent | e679d4dd811dedc2b164b4ec19ba8053b2cae3ad (diff) |
c-pascal update (long ago)
git-svn-id: svn://tug.org/texlive/trunk@18316 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/generic/c-pascal/prog')
-rw-r--r-- | Master/texmf-dist/doc/generic/c-pascal/prog/fib.py | 27 | ||||
-rw-r--r-- | Master/texmf-dist/doc/generic/c-pascal/prog/sun.c | 2 |
2 files changed, 28 insertions, 1 deletions
diff --git a/Master/texmf-dist/doc/generic/c-pascal/prog/fib.py b/Master/texmf-dist/doc/generic/c-pascal/prog/fib.py new file mode 100644 index 00000000000..3c0bc3d8a23 --- /dev/null +++ b/Master/texmf-dist/doc/generic/c-pascal/prog/fib.py @@ -0,0 +1,27 @@ +# Just a little test program +from sys import stderr + +class FibSeries: + """Returns all the elements of Fibonacci series up to a given number. + + Requires one parameter (the number we're going up to).""" + + + def __init__(self,number): + self.series=[1,1] + a,b=1,1 + + while b<number: + a,b=b,a+b + if b<number: self.series.append(b) + + def writeout(self): + cnt=0 + while cnt<len(self.series): + stderr.write(str(self.series[cnt])+" ") + cnt+=1 + stderr.write("\n") + +meine = FibSeries(115) +meine.writeout() + diff --git a/Master/texmf-dist/doc/generic/c-pascal/prog/sun.c b/Master/texmf-dist/doc/generic/c-pascal/prog/sun.c index 889341b5b9d..28d25bfa5af 100644 --- a/Master/texmf-dist/doc/generic/c-pascal/prog/sun.c +++ b/Master/texmf-dist/doc/generic/c-pascal/prog/sun.c @@ -4,7 +4,7 @@ int months[]={0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}; char weekdays[7][15]={"Sunday", "Monday", "Tuesday", "Wednesday", - "Thursday", "Friday", "Sunday"}; + "Thursday", "Friday", "Saturday"}; /* this program calculates the latidude where polar day begins/ends */ |