Seite Pascal

Aus ProgrammingWiki

Archivierte Version vom 2011-09-26T19:32:05+00:00. Aktuelle Version

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.

function ringarea (r1, r2:real):real;
 begin
 result:=pi*r1*r1-pi*r2*r2
 end;