Вот ответ на твой вопрос, не знаю точный он или нет
Var i:integer
Begin
For i:=-5 to 5 do
Writeln (2*sin(0.2*i*3));
End.
![Составить программу вычисления значения функции y = 2sin3x, на отрезке [-1; 1] с шагом 0,2.](/tpl/images/0231/6075/4c17a.jpg)
![Составить программу вычисления значения функции y = 2sin3x, на отрезке [-1; 1] с шагом 0,2.](/tpl/images/0231/6075/5cf49.jpg)
