Преобразование числа из прямого кода в дополнительный осуществляется так:
Если число, записанное в прямом коде, положительное, то к нему дописывается старший (знаковый) разряд, равный 0, и на этом преобразование заканчивается;
Если число, записанное в прямом коде, отрицательное, то все разряды числа инвертируются, а к результату прибавляется 1. К получившемуся числу дописывается старший (знаковый) разряд, равный 1.
1) Записываем наше число в прямом(обычном двоичном коде в 16-разрядном представлении)
-7 в десятичной = 0000000000000111 - нули у нас впереди так как сетка 16 -разрядная
2) Инвертируем все разряды числа: 1111111111111000
3) Прибавляем к этому числу 1: 1111111111111001
4) Старший знаковый разряд у нас уже равен 1 следовательно число -7 в 10-ой в дополнительном коде: 1111110100111010
option explicit
dim s,k,i,j,max,min,a
privat sub cmdstart_click()
pic1.cls
redim a(1 to 5,1 to 3)
pic1.scale(0,0)-(5+1,3+1)
randomize:pic1.forecolor=vbblue
for i=1 to 5
for j=1 to 3
a(i,j)=int(rnd*100):pic1.currentx=j
pic1.currenty=i:pic1.print a(i,j)
next
next
max=a(1,1)
min=a(1,1)
for i=1 to 5
for j=1 to 3
if a(i,j)>max and a(i,j)<min then
end if
next
next
pic1.forecolor=vbred:pic1.print max, min
end sub
var d,p,h:real;
begin
readln(d,h);
p:=3.14;
writeln('Площадь бака ', p*d*h)
d:=d*d
writeln('Площадь крышки ', p*d);
end.
625 Кбайт = 625 * 1000 * 8
ответ : (625 * 1000 * 8) / 128000
Обьект - обьект +1000000000000000000!!!