Решить задачу на языке pascal. Выполнить табуляцию функции, то есть: для заданной переменной xÎ[-5;5] с шагом h = 0,5 . При всех значениях х вычислить значения функции y =x3 + 20 cos2 2x . Вывести в столбик ...
Решить задачу на языке pascal. Выполнить табуляцию функции, то есть: для
заданной переменной xÎ[-5;5]
с шагом h = 0,5 .
При всех значениях х вычислить
значения функции y
=x3 +
20 cos2
2x . Вывести в столбик х и соответствующий y. Использовать оператор
цикла repeat.
Гость
Ответ(ы) на вопрос:
ГостьProgram FuncTab;
Const min = -5;
max = 5;
h = 0.5;
Var x, y: Real;
Begin
x := min;
Repeat
y := x * x * x + 20 * Cos(2 * x) * Cos(2 * x);
WriteLn(x:3:2, ' ', y:3:2);
x := x + h;
Until x > max;
End.
Не нашли ответ?
Похожие вопросы