Вычисление значения функции - Pascal (4571)
Формулировка задачи:
Помогите пожалуйста решить эту задачку. Заранее благодарен.
Вычислиь значения функции d = t2sin(t) при t изменяющимся от 1 до 2.5 с шагом 0.3, найти
где yi = {2; 0.3; -3.8; 6.4; -1.5; 4.2}
Решение задачи: «Вычисление значения функции»
textual
Листинг программы
function f(t:real):real; begin f:=t*t*sin(t) end; const n=6; y:array[1..n] of real=(2,0.3,-3.8,6.4,-1.5,4.2); var d:array[1..n] of real; t,L:real; i:byte; begin t:=2; for i:=1 to n do begin d[i]:=f(t); t:=t+0.3; end; writeln('Вектор Y'); for i:=1 to n do write(y[i]:5:1); writeln; writeln('Вектор D'); for i:=1 to n do write(d[i]:5:1); writeln; L:=0; for i:=1 to 6 do L:=L+abs(d[i]-y[i]); write('L=',L:0:1); end.
Объяснение кода листинга программы
- Создаётся функция f, которая принимает один аргумент типа real и возвращает значение типа real. Внутри функции выполняется вычисление f(t) = t^2 * sin(t).
- Задаётся константа n равная 6.
- Создаётся массив y типа real, который содержит 6 элементов: (2, 0.3, -3.8, 6.4, -1.5, 4.2).
- Создаётся переменная d типа real, которая будет использоваться для хранения результатов вычислений функции f.
- Задаётся переменная t типа real и инициализируется значением 2.
- Используется цикл for для вычисления значений функции f для каждого элемента массива y. На каждой итерации цикла значение переменной t увеличивается на 0.3.
- После завершения цикла выводится сообщение 'Вектор Y'. Для каждого элемента массива y выводится его значение с точностью до 5 знаков после запятой.
- Вычисляется сумма абсолютных разностей между значениями массива d и массива y.
- Задаётся переменная L типа real и инициализируется нулем.
- Используется цикл for для суммирования абсолютных разностей между значениями массивов d и y.
- После завершения цикла выводится сообщение 'L=', значение переменной L.
- Конец программы.