Вообще то я не правильно написал. Давно не использовал.
Cos принимает значения от нуля до единицы. TRUNC округляет значение. Поэтому надо либо массив делать real либо писать так trunc(k*cos(14.2*j+1)), где k-коэффициент умножения. Можно принять за 100.
И еще один момент, косинус берет угол в радианах, поэтому надо делить 14.2*j+1 на 57
|