/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/06_ForWhileRepeat/algo2.pas
16 строк
508 B
Mikhalkovich Stanislav
Примеры правлю на современные
14 окт 2025, 21:21
14 окт 2025, 21:21
e840fcb
Код
Авторство
О чём код?
// Алгоритм вычисления значения многочлена в точке x по схеме Горнера const n = 5; begin var x := ReadReal('Введите значение x:'); Print($'Введите коэффициенты многочлена ({n + 1} штук):'); var a := ReadReal; var s := a; for var i := 1 to n do begin a := ReadReal; s := s * x + a; end; Println('Значение многочлена в точке', x, 'равно', s); end.