Entry

TSE: Programming: Recursion: Macro: Print: How to write a recursive print function in TSE?

Jan 1st, 2005 08:06
Knud van Eeden,

----------------------------------------------------------------------
--- Knud van Eeden --- 01 January 2005 - 05:17 pm --------------------

TSE: Programming: Recursion: Macro: Print: How to write a recursive 
print function in TSE?

---

Steps: Overview:

 1. -Create the following program

--- cut here: begin --------------------------------------------------

 PROC PROCPrint( INTEGER I )
  IF I == 0 RETURN() ENDIF
  Warn( I )
  PROCPrint( I - 1 )
 END

 PROC Main()
  PROCPrint( 10 ) // this will print 10, then 9, then 8, ... until 1
 END

 <F12> Main()

--- cut here: end ----------------------------------------------------

 2. -Save this macro

 3. -Compile this macro

 4. -Run this macro

 5. -That will show

      10

       9

       8

       ...

       3

       2

       1

---
---

Internet: see also:

---

TSE: Programming: Recursion: Link: Overview: Can you give me an 
overview of links?
http://www.faqts.com/knowledge_base/view.phtml/aid/33130/fid/1738

----------------------------------------------------------------------