М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dreadman989
dreadman989
08.12.2021 10:40 •  Информатика

Как вычесть из 0,00001 число 101100001? (двоичная система) подробно, , ибо до меня не доходит.

👇
Ответ:
sennik41
sennik41
08.12.2021
Нумеруем цифры 101100001 справа налево с нуля, то есть:
1=0
0=1
0=2
0=3
0=4
1=5
1=6
0=7
1=8
и после этого умножаем по порядку справа налево цифру на систему кодировки(у нас двоичная, то есть 2) и возводим 2 в степень числа, что я писал выше.
1*2^0+0*2^1+0*2^2+0*2^3+0*2^4+1*2^5+1*2^6+0*2^7+1*2^8=1+0+0+0+0+32+64+0+256=353
а теперь вычитаем из 0.00001-353=−352.99999
4,6(40 оценок)
Открыть все ответы
Ответ:
LizaZZ6
LizaZZ6
08.12.2021
Function ArcCos(x:real):real;
var t:real;
begin
     t:=ArcTan(Sqrt(1-x*x)/x);
     if x<0 then ArcCos:=t+Pi
     else ArcCos:=t
end;

var
  a,b,c,p,p2,s,alpha,beta,gamma,h:real;
begin
  Read(a,b,p);
  c:=p-a-b;
  p2:=p/2;
  s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
  alpha:=ArcCos((b*b+c*c-a*a)/(2*b*c));
  beta:=ArcCos((a*a+c*c-b*b)/(2*a*c));
  h:=a*Sin(beta);
  alpha:=alpha*180/Pi;
  beta:=beta*180/Pi;
  gamma:=180-alpha-beta;
  Writeln('c=',c);
  Writeln('alpha=',alpha:0:2,', beta=',beta:0:2,', gamma=',gamma:0:2);
  Writeln('S=',s,', h=',h)
end.
4,6(10 оценок)
Ответ:
самира223
самира223
08.12.2021
MS DOS QBasic 1.0:

CLS
RANDOMIZE TIMER
INPUT "K = ", K
INPUT "L = ", L
DIM X!(K, L)
FOR i = 1 TO K
    FOR j = 1 TO L
        X(i, j) = RND * 21 - 10
        PRINT USING "###"; X(i, j);
        PRINT ; " ";
    NEXT j
    PRINT
NEXT i
FOR i = 1 TO L * 4 - 1
    PRINT ; "_";
NEXT i
PRINT
FOR N = 1 TO L
    FOR i = 1 TO L - N - 1
        IF X(i, 2) < X(i + 1, 2) THEN
        B = X(i, 2)
        X(i, 2) = X(i + 1, 2)
        X(i + 1, 2) = B
        END IF
    NEXT i
NEXT N

FOR i = 1 TO K
    FOR j = 1 TO L
        PRINT USING "###"; X(i, j);
        PRINT " ";
    NEXT j
    PRINT
NEXT i
END
4,6(87 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ