1)1111101,011(2)=1*2^6+1*2^5+1*2^4+1*2^3+1*2^2+0*2^1+1*2^0+0*2^ -1+1*2^-2+1*2^-3=64+32+16+8+4+0+0,25+0,125=135,375(10)
2)100001,2=1*2^5+0*2^4+0*2^3+0*2^2+0*2^1+1*2^1+1*2^-1=32+0+0+0+0+1+0.5=33,5(10)
3)1011011,111=1*2^6+0*2^5+1*2^4+1*2^3+0*2^2+1*2^1+1*2^0+1*2^-1+1*2^-2+1*2^-3=64+0+16+8+0+2+1+0,5+0,25+0,125=91,875(10)
вес 1 символа – 8 бит.
Единице измерения 8 бит присвоили название 1 байт:
1 байт = 8 бит.
В таких заданиях главное начинать с конца, то есть с последней операции, после которой следует выход.
Рассмотрим задание 48. В конце у нас логическая схема конъюнктора, принимающая значение A и дизъюнктор, который в свою очередь принимает B и C. Запишем:
f₁ = A && f₂₁
f₂₁ = B || C
f = f₁ = A && (B || C)
Рассмотрим задание 49. Действуем по аналогии. В конце имеем конъюктор, принимающий на себя инвертор, который в свою очередь принимает значение B (и меняет его на противоположный), а также дизъюнктор, который в свою очередь принимает значение A и конъюктор, который в свою очередь принимает инвертор, принимающий значение A, а также значение B. Повторов много, но без них попросту не обойтись. Запишем:
f₁ = f₂₁ && f₂₂
f₂₁ = A || f₃₁
f₃₁ = f₄₁ && B
f₄₁ = ¬A
f₂₂ = ¬B
f = f₁ = (A || (¬A && B)) && ¬B
//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandomInteger(50, -50, 50);
writeln('[x < 0] = ', a.Where(x -> x < 0).Count);
writeln('[x > 0] = ', a.Where(x -> x > 0).Count);
writeln('[x = 0] = ', a.Where(x -> x = 0).Count);
end.
