Вычислить значение выражения - Turbo Pascal (29025)

Узнай цену своей работы

Формулировка задачи:

Даны действительные числа a0, a1, a2, a3. Получить для х = 1, 3, 4 значения р(х+1) - р(х), где р(у) = a3y3 + a2y2 + a1y + a0. Определить функцию р(у).

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
  1. {Даны действительные числа a0, a1, a2, a3}
  2. const
  3.   a0 = 3.34;
  4.   a1 = -2.18;
  5.   a2 = -0.01;
  6.   a3 = 10.05;
  7.  
  8. var
  9.   x : integer;
  10.  
  11. {Определить функцию р(у)}
  12. function p(y : real) : real;
  13. begin
  14.   p := a3 * y * y * y + a2 * y * y + a1 * y + a0  
  15. end;
  16.  
  17. begin
  18.   x := 1;
  19.   {Получить для х = 1, 3, 4 значения р(х+1) - р(х)}
  20.   for x := 1 to 4 do  
  21.     writeln('x = ', x, '. p(', x, '+1) - p(', x, ') = ', (p(x+1) - p(x)):0:4);  
  22.   readln
  23. end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

11   голосов , оценка 4.182 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут