Мы ежедневно сталкиваемся с информацией, например читая газету, смотря фильм или телевизор, или просто слушая музыку. Книги - тоже информация. Даже благодаря нашему зрению и слуху мы получаем информацию об окружающем нас мире.
'Multyple' operation in binary system is simple: when the both components are '1' result will be '1', otherwise result will be '0'.
0011
x
1011
-----------
1011
+
1011
+ 0
+ 0
----------------
100001
PS/ 1+1=10; 0+0=0; 1+0=1; 1011*1=1011; 1011*0=0
Искомое значение определяется как число сочетаний из 7 по 3:
C(n,m) = n!/(m!*(n-m)! = 7!/(3!*(7-3)!) = 7!/(3!*4!) = 35
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,h,b):=(-0.1,0.02,0.1);
var y:real->real:=t->t<=0 ?
Sqr(Sin(9*t-3))+0.7*t :
5*Cos(25*t+0.37)**3-5*t*t;
var x:=a;
while x<=b+h/2 do begin
Writeln(x:5:2,y(x):15:10);
x+=h
end
end.
<u>Пример</u>
-0.10 0.4030222897
-0.08 0.2428711009
-0.06 0.1085059147
-0.04 0.0189480905
-0.02 -0.0125256009
0.00 4.0520544419
0.02 1.3385985058
0.04 0.0316707402
0.06 -0.1460479966
0.08 -1.8734753767
0.10 -4.5200806881
<u>2. Более "традиционное" решение</u>
const
a=-0.1;
h=0.02;
b=0.1;
var
x,y:real;
begin
x:=a;
while x<=b+h/2 do begin
if x<=0 then
y:=Sqr(Sin(9*x-3))+0.7*x
else
y:=5*(Cos(25*x+0.37))*Sqr(Cos(25*x+0.37))-5*x*x;
Writeln(x:5:2,y:15:10);
x+=h
end
end.
DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
s = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) MOD 2 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT "s = "; s