PMG/Programmierparadigmen/Seite Pascal

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
# 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="4e80d2987ce11">
 function ringarea (r1, r2:real):real;
 begin
 result:=pi*r1*r1-pi*r2*r2
 end;
</code>

<run id="4e80d2987ce77">

</run>