Vanilla 1.1.5a jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
function Rozeta(n,R,Kat : Real): Real;
var PoleOdcinka : Real;
begin
Kat:= Pi*Kat/180; {Zamiana stopni na radiany}
PoleOdcinka:= Sqr(R)/2*(Kat-Sin(Kat)); {Pole odcinka koła}
Rozeta:= PoleOdcinka*n*2 {Pole rozety}
end;
Begin
Writeln(Rozeta(10,10,90):0:2);
Readln
End.
Tutaj masz wyprowadzenie wzoru
Od 1 do 7 z 7