Вычисление значения функции - 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.

Объяснение кода листинга программы

  1. Создаётся функция f, которая принимает один аргумент типа real и возвращает значение типа real. Внутри функции выполняется вычисление f(t) = t^2 * sin(t).
  2. Задаётся константа n равная 6.
  3. Создаётся массив y типа real, который содержит 6 элементов: (2, 0.3, -3.8, 6.4, -1.5, 4.2).
  4. Создаётся переменная d типа real, которая будет использоваться для хранения результатов вычислений функции f.
  5. Задаётся переменная t типа real и инициализируется значением 2.
  6. Используется цикл for для вычисления значений функции f для каждого элемента массива y. На каждой итерации цикла значение переменной t увеличивается на 0.3.
  7. После завершения цикла выводится сообщение 'Вектор Y'. Для каждого элемента массива y выводится его значение с точностью до 5 знаков после запятой.
  8. Вычисляется сумма абсолютных разностей между значениями массива d и массива y.
  9. Задаётся переменная L типа real и инициализируется нулем.
  10. Используется цикл for для суммирования абсолютных разностей между значениями массивов d и y.
  11. После завершения цикла выводится сообщение 'L=', значение переменной L.
  12. Конец программы.

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы