Каждое число переведем в восьмиразрядное(байт) число отдельно и запишем, по-прежнему, через точку Адрес : 146.212.200.155⇒10010010.11010100.11001000.10011011 Маска : 255.255.240.0⇒11111111.11111111.11110000.00000000 Маска инвертируется(нули заменяются на единицы и наоборот) Инвентированная Маска:00000000.00000000.00001111.11111111 Выполняем поразрядную конъюнкцию Маска:00000000.00000000.00001111.11111111 Адрес:10010010.11010100.11001000.10011011 Результат: 00000000.00000000.00001000.10011011⇒0.0.8.155 ответ:номер сети и номер компьютера в сети в 10СС - 0.0.8.155
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadReal('a='); var x:=power(10,a)+cos(a+1); var y:=log10(abs(arctan(x)-sin(a*x))); Writeln('x=',x,', y=',y) end.
Пример a= 2.105 x=126.35097753811, y=-0.162831822729058
2. Типовой "школьный" паскаль (как не надо учить)
program Vasya; var a,x,y:real; begin Write('a='); Read(a); x:=exp(a*ln(10))+cos(a+1); y:=ln(abs(arctan(x)-sin(a*x)))/ln(10); Writeln('x=',x,', y=',y) end.
Пример a=2.105 x=126.35097753811, y=-0.162831822729023
3. Сравнение решений - "школьный" вариант длиннее. Больше текста - дольше писать, больше шансов сделать ошибку. - результат вычисления y различный. Разница составляет вроде немного - всего 0.000000000000035 (это 0.35×10⁻¹³), но если делать много вычислений, ошибки могут накапливаться. Вычисленное с более высокой точностью (и округленное до такой же, как в паскале разрядности) значение y равно -0.162831822729052, т.е. "современное" решение оказывается еще и на один порядок точнее. За счет чего? За счет уменьшения ошибок при меньшем количестве вычислений - их сократили функции power и log10.
Адрес : 146.212.200.155⇒10010010.11010100.11001000.10011011
Маска : 255.255.240.0⇒11111111.11111111.11110000.00000000
Маска инвертируется(нули заменяются на единицы и наоборот)
Инвентированная Маска:00000000.00000000.00001111.11111111
Выполняем поразрядную конъюнкцию
Маска:00000000.00000000.00001111.11111111
Адрес:10010010.11010100.11001000.10011011
Результат: 00000000.00000000.00001000.10011011⇒0.0.8.155
ответ:номер сети и номер компьютера в сети в 10СС - 0.0.8.155
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal('a=');
var x:=power(10,a)+cos(a+1);
var y:=log10(abs(arctan(x)-sin(a*x)));
Writeln('x=',x,', y=',y)
end.
Пример
a= 2.105
x=126.35097753811, y=-0.162831822729058
2. Типовой "школьный" паскаль (как не надо учить)
program Vasya;
var
a,x,y:real;
begin
Write('a=');
Read(a);
x:=exp(a*ln(10))+cos(a+1);
y:=ln(abs(arctan(x)-sin(a*x)))/ln(10);
Writeln('x=',x,', y=',y)
end.
Пример
a=2.105
x=126.35097753811, y=-0.162831822729023
3. Сравнение решений
- "школьный" вариант длиннее. Больше текста - дольше писать, больше шансов сделать ошибку.
- результат вычисления y различный. Разница составляет вроде немного - всего 0.000000000000035 (это 0.35×10⁻¹³), но если делать много вычислений, ошибки могут накапливаться.
Вычисленное с более высокой точностью (и округленное до такой же, как в паскале разрядности) значение y равно -0.162831822729052, т.е. "современное" решение оказывается еще и на один порядок точнее. За счет чего? За счет уменьшения ошибок при меньшем количестве вычислений - их сократили функции power и log10.