diff options
| author | patacongo <patacongo@42af7a65-404d-4744-a932-0658087f49c3> | 2008-01-05 16:36:56 +0000 |
|---|---|---|
| committer | patacongo <patacongo@42af7a65-404d-4744-a932-0658087f49c3> | 2008-01-05 16:36:56 +0000 |
| commit | 4887a05481e143bfc4796230605d0a9ff7f2cb5a (patch) | |
| tree | 495dce9e5a774e6826fa09f2651ae3c8c546822d /misc/pascal/tests/src/007-function.pas | |
| parent | 9684605c30d1f7f2f7120d8c1b5645e7ca4eb54f (diff) | |
| download | nuttx-4887a05481e143bfc4796230605d0a9ff7f2cb5a.tar.gz nuttx-4887a05481e143bfc4796230605d0a9ff7f2cb5a.tar.bz2 nuttx-4887a05481e143bfc4796230605d0a9ff7f2cb5a.zip | |
Pascal Tests
git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@504 42af7a65-404d-4744-a932-0658087f49c3
Diffstat (limited to 'misc/pascal/tests/src/007-function.pas')
| -rw-r--r-- | misc/pascal/tests/src/007-function.pas | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/misc/pascal/tests/src/007-function.pas b/misc/pascal/tests/src/007-function.pas new file mode 100644 index 000000000..0738db989 --- /dev/null +++ b/misc/pascal/tests/src/007-function.pas @@ -0,0 +1,16 @@ +{ a simple nested function }
+
+program simplefunc(output);
+
+function addmul(term1a, term1b, term2a, term2b: integer ) : integer;
+ function factor(terma, termb: integer ) : integer;
+ begin
+ factor := terma + termb;
+ end;
+begin
+ addmul := factor(term1a, term1b) + factor(term2a, term2b);
+end;
+
+begin
+ writeln('(1 + 2) * (3 + 4) =', addmul(1, 2, 3, 4));
+end.
|