Int P = допустим 20;
int S;
S = P/4 * P/4 ;
возможно не так я не знаю паскаля но алгоритм правельный
<span>157(10) = 10011101(2)
со знаком, это представим в прмом коде
1,10011101
обратном
1,01100010
и дополнительном
1,01100011</span>
Какой охранник нужен чтобы охранять систему компьютера? Антивирус.
<em>// PascalABC.NET 3.2, сборка 1334 от 12.11.2016</em>
begin
var n:=ReadInteger('n=');
var a:=SeqRandom(n,-20,20).Select(e->real(e)).ToArray;
a.Println;
var b:=a.Where(x->x=0).Concat(a.Where(x->x<0)).ToArray;
a:=b.Concat(a.Where(x->x>0)).ToArray;
a.Println;
end.
Пример
n= 20
-16 1 16 -11 20 -6 -11 15 0 -9 -14 0 4 -4 2 14 19 7 -14 4
0 0 -16 -11 -6 -11 -9 -14 -4 -14 1 16 20 15 4 2 14 19 7 4
Самые главные недостатки:
- высокие требования к аппаратной составляющей компьютера: к его оперативной памяти, быстроте работы процессора и т.д.,
- необходимость больших временных затрат на создание моделей всех объектов сцены, могущих оказаться в поле зрения камеры. Конечно, такая работа стократно окупается результатом,
- меньшую свободу в создании изображения, чем в двухмерной графике. Создавая объект карандашом на бумаге или средствами 2D-графике на экране, можно совершенно свободно искажать пропорции объектов, пренебрегать законами перспективы и пр. В 3D-формате это возможно только в наиболее мощных пакетах, но даже в них это требует дополнительных усилий и изобретательности,
- необходимость постоянно отслеживать взаимное положение объектов в составе сцене, в частности, при создании 3D-анимации. Так как объекты 3D-графики «бестелесны», они легко проникают друг в друга и важно контролировать отсутствие ненужного контакта между ними.