@Nadya7

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

_________________________________________________________
_______________________________
  • Вопрос задан
  • 83 просмотра
Пригласить эксперта
Ответы на вопрос 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
Навскидку так
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;


5f008d26e145a483982386.png
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы