Сначала немного математики.
Мы получили выражение для вычисления значения полинома по схеме Горнера, оптимизирующей число операций и избавляющей нас от использования возведения в степень.
Ниже - текст программы на Pascal.ABC. На самых старых версиях Паскаля инициализация элементов массива не может объединяться с его описанием и её следует выполнить отдельно в виде набор операторов присваивания.
var
a: array[1..4] of real := (-0.5, 0.11, -2.66, 10);
x, y: real;
i: integer;
begin
for i := 1 to 4 do
begin
x := a[i];
y := 3 * (4 + x * (1 + 3 * x));
Writeln('x=', x:5:2, ' y=', y:8:4)
end
end.
Тестовое решение:
x=-0.50 y= 12.7500
x= 0.11 y= 12.4389
x=-2.66 y= 67.7004
x=10.00 y=942.0000
Элементарное задание на знание математики)
Информационный объем сообщения I=k*i, где k-количество символов, i - количество бит на символ.
k=3*25*30= 2250 символов
Количество бит на символ определим из формулы N=2^i, где N- количество символов алфавита.
i=㏒₂N= ㏒₂128= 7 бит
I=2250*7= 15750 бит
15750 бит/8= 1968,8 байт
1968,8 байт/1024= 1,9 Кбайт