Решить задачу на языке pascal. Выполнить табуляцию функции, то есть: для

заданной переменной xÎ[-5; 5]

с шагом h = 0,5.

При всех значениях х вычислить

значения функции y

=x3 +

20 cos2

2x. Вывести в столбик х и соответствующий y. Использовать оператор

цикла repeat.

Question

Информатика

Лидуша

25 ноября, 15:32

Решить задачу на языке pascal. Выполнить табуляцию функции, то есть: для

заданной переменной xÎ[-5; 5]

с шагом h = 0,5.

При всех значениях х вычислить

значения функции y

=x3 +

20 cos2

2x. Вывести в столбик х и соответствующий y. Использовать оператор

цикла repeat.

+3

Ответы (1)

Знаете ответ на вопрос?

Венуша · Answer 1

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.