fly316/PX4-Autopilot
7
0
Fork 0
mirror of https://gitee.com/mirrors_PX4/PX4-Autopilot.git synced 2026-07-18 17:00:35 +08:00
Code Issues Packages Projects Releases Wiki Activity

Completes coding of the PWM module

Browse Source 
git-svn-id: https://nuttx.svn.sourceforge.net/svnroot/nuttx/trunk@4200 7fd9a85b-ad96-42d3-883c-3090e2eb8679
This commit is contained in:
patacongo
2011-12-19 19:24:09 +00:00
commit add995c32e
4394 changed files with 1077774 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
misc/pascal/tests/src/007-function.pas
+16
View File
@@ -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.