Вычислить значение выражения - Turbo Pascal (29025)
Формулировка задачи:
Даны действительные числа a0, a1, a2, a3. Получить для х = 1, 3, 4 значения р(х+1) - р(х), где р(у) = a3y3 + a2y2 + a1y + a0. Определить функцию р(у).
Решение задачи: «Вычислить значение выражения»
textual
Листинг программы
- {Даны действительные числа a0, a1, a2, a3}
- const
- a0 = 3.34;
- a1 = -2.18;
- a2 = -0.01;
- a3 = 10.05;
- var
- x : integer;
- {Определить функцию р(у)}
- function p(y : real) : real;
- begin
- p := a3 * y * y * y + a2 * y * y + a1 * y + a0
- end;
- begin
- x := 1;
- {Получить для х = 1, 3, 4 значения р(х+1) - р(х)}
- for x := 1 to 4 do
- writeln('x = ', x, '. p(', x, '+1) - p(', x, ') = ', (p(x+1) - p(x)):0:4);
- readln
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д