Системный эффект - эффект возникновения новых свойств у системы, которыми не обладают её компоненты.
Например, ни одна часть тела человека по отдельности не способна сыграл на рояле музыку Шопена, а весь человек (при условии обученности, разумеется) может.
1985/2 = 992 (остаток 1)
992/2 = 496 (0)
496/2 = 248 (0)
248/2 = 124 (0)
124/2 = 62 (0)
62/2 = 31 (0)
31/2 = 15 (1)
15/2 = 7 (1)
7/2 = 3 (1)
3/2 = 1 (1)
Записываем в обратном порядке.
11111000001(2)
А -1985 нужно инвертировать полученный результат и дописать единицу в конце.
<span>uses graph;
var xc,yc,m,x1,y1:integer;
x,y:real;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
m:=yc div 2;
line(5,yc,getmaxX-5,yc);
line(xc-m,yc+3,xc-m,yc-3);
outtextXY(xc-m,yc+10,'-1');
outtextXY(xc+5,yc+10,'0');
line(xc+m,yc+3,xc+m,yc-3);
outtextXY(xc+m,yc+10,'1');
line(xc,5,xc,getmaxY-5);
line(xc-3,yc-m,xc+3,yc-m);
outtextXY(xc-10,yc-m,'1');
line(xc-3,yc+m,xc+3,yc+m);
outtextXY(xc-15,yc+m,'-1');
setcolor(12);
line(xc-m,yc,xc,yc-m);
line(xc,yc-m,xc+m,yc);
line(xc+m,yc,xc,yc+m);
line(xc,yc+m,xc-m,yc);
x:=-4;
while x<=4 do
begin
y:=0.52*x+0.18;
x1:=xc+round(x*m);
y1:=yc-round(y*m);
putpixel(x1,y1,14);
x:=x+0.01;
end;
readln
end.</span>
<span>Приклад 1. Скласти
алгоритм обчислення і роздрукування значення виразу у = (Ax+B)(Cx+D). 1. Ввести значення А, В, С, D, х. 2. Обчислити у = (Ax+B)(Cx+D). 3. Роздрукувати у. <span>4. Процес обчислення завершити.</span></span>
