Программа
вычисления значения полинома с
заданными коэффициентами в данной точке.
|
|
|
Program
pr25 (Input, Output);
|
Объявление
имени программы |
|
Var
|
Блок
объявления глобальных переменных |
|
A
:
Array [0..100] Of Real;
|
Переменная
A
-
массив коэффициентов полинома |
|
N
:
Integer; |
Переменная
N
-
степень полинома |
|
X
:
Real;
|
Переменная
X
-
значение аргумента, для которого
ищется значение полинома |
|
P
:
Real;
|
Переменная
P
-
служит для накапливания значения
полинома |
|
i
:
Integer; |
Переменная
i
-
параметр цикла |
|
|
|
|
Begin
|
Начало
тела программы |
|
|
|
|
WriteLn
('PASCAL: Вычисление полинома по схеме
Горнера.');
|
Формулировка
цели алгоритма |
|
Write
('Введите степень полинома N: ');
|
Запрос
ввода N - степени полинома |
|
ReadLn
(N);
|
Ввод
N |
|
WriteLn
('Введите коэффициенты полинома - A[i]:');
|
Запрос
ввода коэффициентов полинома |
|
For
i := 0 To N Do
|
Цикл
для i от 0 до N ввода коэффициентов
полинома |
|
Begin
|
Начало
тела цикла |
|
Write
('A[', i, '] = ');
|
Вывод
удобной подсказки |
|
ReadLn
(A [i]); |
Ввод
коэффициента A[i] соответствующего
элементу X^(N-i) |
|
End;
|
Конец
тела цикла |
|
|
|
|
Write
('Введите значение аргумента X: ');
|
Запрос
ввода X - значения аргумента |
|
ReadLn
(X);
|
Ввод
X |
|
|
|
|
P
:= A[0];
|
Переменной
P придаем начальное значение, равное A[0] |
|
For
i := 1 To N Do
|
Цикл
для i от 1 до N вычисления полинома |
|
P
:= P * X + A [i];
|
Очередной
шаг вычисления полинома по схеме
Горнера |
|
|
|
|
WriteLn
('Значение полинома при X = ', X: 2: 2, ' равно ',
P: 4: 2);
|
Вывод
результата - значения полинома в точке X |
|
|
|
|
ReadLn;
|
Ожидание
нажатия клавиши Enter для завершения |
|
End.
|
Конец
программы. |
