..........................
N=2^i
16=2⁴ => i=4 бита (инф объем одной точки)
500байт=500*8=4000бит
I=K*i => K=I / i
К=4000:4=1000 точек
<em>PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
function Horner(x:real;a:array of real):real;
begin
Result:=x*a.Last;
for var i:=a.Length-2 downto 1 do
Result:=x*(a[i]+Result);
Result+=a.First
end;
begin
var n:=ReadInteger('Степень полинома:');
var x:=ReadReal('x=');
var a:=ReadArrReal('Коэффициенты, начиная со свободного члена:',n+1);
Writeln('Значение полинома: ',Horner(x,a))
end.
<u>Пример</u>
Степень полинома: 9
x= -4.2
Коэффициенты, начиная со свободного члена: 4 0 0 0 0 0 3 -2 0 3
Значение полинома: -1157435.18966682
1)Материнская плата для соединения всех комплектующих
2)Блок питания для обеспечения комплектующих электричеством 3)Процессор для вычислений
4)Жёсткий диск для хранения постоянной информации
5)Оперативная память для временного хранения информации
6)Видеокарта для обработки графической информации
7)Кулер для охлаждения процессора
8)Корпус (не обязательно, просто для эстетичного внешнего вида)