PMG/Programmierparadigmen/Seite Scheme

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
<ol>

<li>Es soll eine Funktion '''ringarea''' definiert werden, die die Fläche berechnet, die zwischen den beiden konzentrischen Kreisen mit den Radien r1 und r2 liegt. 
 Dazu werden die Konstante pi und die Hilfsfunktion sq definiert. 
 Diese werden von '''ringarea''' dann für die Berechnung benutzt.


<code id="4e80d073dc74d">
 (define (ringarea r1 r2)
  (define pi 3.14)
  (define (sq x) (* x x))
  (* pi (- (sq r1) (sq r2)))
</code>

<run id="4e80d073dc7cd">

</run>
</li>
<li>
Ermitteln Sie die Summe einer beliebigen Anzahl natürlicher Zahlen:
<math>S=\sum^n_{i=0}i=1 + 2 + 3 + ... + n</math>.<br />


<code id="4e81da64639d9">
(define summe  
  (lambda (n)    
    (if (= n 0)        
      0        
     (+ n (summe (- n 1))))))
</code>

<run id="4e81da6463a4f">
(summe 100)
</run>
</li>