Как выполнить этот цикл?

Question

[Nadya7]

_________________________________________________________
_______________________________

Answer 1

[Hemul GM]

Навскидку так

uses math;
for i := 0 to 100 do
begin
  point := sin(DegToRad(6*pi/100 + i));
  ...
end;

fmx

Path1.Data.Clear;
Path1.Data.MoveTo(TPointF.Zero);
for var i := 0 to 1000 do
begin
  var Pt := TPointF.Create(i * 10, sin(DegToRad(6*pi/1000+i)));
  Path1.Data.LineTo(Pt);
end;