Переведите натуральное число из двоичной системы в десятичную (в двоичном числе не более 10 цифр). нужна программа на паскале. входные данные: 1 выходные данные: 1
Var n,s,p,d:longint; begin Write('Введите двоичное число: '); Read(n); s:=0; p:=1; repeat d:=n mod 10; s:=s+d*p; p:=p*2; n:=n div 10 until n=0; Writeln('В десятичной системе это число равно ',s) end.
Пример Введите двоичное число: 1101011 В десятичной системе это число равно 107
Амолет - летающий аппарат Еще пару веков назад люди лишь мечтали о передвижении по воздуху. «Парить, словно птица» было мечтой каждого человека. Проектов «железной птицы» появлялось все больше и больше. Однако, как правило, надежды себя не оправдывали и эти «птицы» никак не могли взлететь.
И вот однажды, в 1903 году, братья Райты (США) , Орвил и Уилбур, все-таки подняли в воздух первый прототип современного самолета «Флайер» . Он продержался в воздухе 59 секунд, пролетев при этом целых 260 метров. После этого конструкция самолетов стала развиваться все стремительней и совершенней.
Поскольку об оценке ничего не говорится, можно только оперировать средним количеством информации для случая неравновероятных событий. А это формула Шеннона. 1. Определяем вероятности получения оценок. Общее количество оценок равно 5+10+6+4 = 25. Вероятность получения пятерки составляет 5/25 = 0.2 Четверки - 10/25 = 0.4, тройки 6/25 = 0.24, двойки 4/25 = 0.16. На всякий случай проверим сумму вероятностей - должна получиться единица. 0.2+0.4+0.24+0.16 = 1. Все верно 2. Подставляем значения в формулу Шеннона
n,s,p,d:longint;
begin
Write('Введите двоичное число: '); Read(n);
s:=0; p:=1;
repeat
d:=n mod 10;
s:=s+d*p;
p:=p*2;
n:=n div 10
until n=0;
Writeln('В десятичной системе это число равно ',s)
end.
Пример
Введите двоичное число: 1101011
В десятичной системе это число равно 107